65 |
our $regexp_pkgsubmit = "^/usr/share/repsys/create-srpm |^/usr/local/bin/submit_package "; |
our $regexp_pkgsubmit = "^/usr/share/repsys/create-srpm |^/usr/local/bin/submit_package "; |
66 |
our $bin_pkgsubmit = "/usr/local/bin/submit_package"; |
our $bin_pkgsubmit = "/usr/local/bin/submit_package"; |
67 |
|
|
68 |
|
our $use_maintdb = "0"; |
69 |
|
our $regexp_maintdb = "^/usr/local/bin/wrapper.maintdb "; |
70 |
|
our $bin_maintdb = "/usr/local/bin/wrapper.maintdb"; |
71 |
|
|
72 |
# Open configuration file |
# Open configuration file |
73 |
if (-e "/etc/membersh-conf.pl") { |
if (-e "/etc/membersh-conf.pl") { |
74 |
do "/etc/membersh-conf.pl" or die "System misconfiguration, contact administrators. Exiting"; |
do "/etc/membersh-conf.pl" or die "System misconfiguration, contact administrators. Exiting"; |
96 |
# $regexp_dir_rsync = "^(/upload)|(/var/ftp)"; |
# $regexp_dir_rsync = "^(/upload)|(/var/ftp)"; |
97 |
# |
# |
98 |
# $use_pkgsubmit = "1"; |
# $use_pkgsubmit = "1"; |
99 |
|
# |
100 |
|
# $use_maintdb = "1"; |
101 |
|
|
102 |
|
|
103 |
if ($#ARGV == 1 and $ARGV[0] eq "-c") { |
if ($#ARGV == 1 and $ARGV[0] eq "-c") { |
151 |
my ($createsrpm, @rest) = split(' ', $ARGV[1]); |
my ($createsrpm, @rest) = split(' ', $ARGV[1]); |
152 |
|
|
153 |
exec($bin_pkgsubmit, @rest) or die("Failed to exec $bin_pkgsubmit: $!"); |
exec($bin_pkgsubmit, @rest) or die("Failed to exec $bin_pkgsubmit: $!"); |
154 |
|
} elsif ($use_maintdb and |
155 |
|
$ARGV[1] =~ m:$regexp_maintdb:) { |
156 |
|
my ($maintdb, @rest) = split(' ', $ARGV[1]); |
157 |
|
exec($bin_maintdb, @rest) or die("Failed to exec $bin_maintdb: $!"); |
158 |
} |
} |
159 |
} |
} |
160 |
|
|