61 |
our $use_git = "0"; |
our $use_git = "0"; |
62 |
our $bin_git = "/usr/bin/git-shell"; |
our $bin_git = "/usr/bin/git-shell"; |
63 |
|
|
64 |
|
our $use_pkgsubmit = "0"; |
65 |
|
our $regexp_pkgsubmit = "^/usr/share/repsys/create-srpm "; |
66 |
|
our $bin_pkgsubmit = "/usr/share/repsys/create-srpm"; |
67 |
|
|
68 |
# Open configuration file |
# Open configuration file |
69 |
if (-e "/etc/membersh-conf.pl") { |
if (-e "/etc/membersh-conf.pl") { |
70 |
do "/etc/membersh-conf.pl" or die "System misconfiguration, contact administrators. Exiting"; |
do "/etc/membersh-conf.pl" or die "System misconfiguration, contact administrators. Exiting"; |
90 |
# $bin_rsync = "/usr/bin/rsync"; |
# $bin_rsync = "/usr/bin/rsync"; |
91 |
# $regexp_rsync = "^rsync --server"; |
# $regexp_rsync = "^rsync --server"; |
92 |
# $regexp_dir_rsync = "^(/upload)|(/var/ftp)"; |
# $regexp_dir_rsync = "^(/upload)|(/var/ftp)"; |
93 |
|
# |
94 |
|
# $use_pkgsubmit = "1"; |
95 |
|
|
96 |
|
|
97 |
if ($#ARGV == 1 and $ARGV[0] eq "-c") { |
if ($#ARGV == 1 and $ARGV[0] eq "-c") { |
139 |
|
|
140 |
# Delegate filtering to git-shell |
# Delegate filtering to git-shell |
141 |
exec($bin_git, @ARGV) or die("Failed to exec $bin_git: $!"); |
exec($bin_git, @ARGV) or die("Failed to exec $bin_git: $!"); |
142 |
|
} elsif ($use_pkgsubmit and |
143 |
|
$ARGV[1] =~ m:$regexp_pkgsubmit:) { |
144 |
|
|
145 |
|
my ($createsrpm, @rest) = split(' ', $ARGV[1]); |
146 |
|
|
147 |
|
exec($bin_pkgsubmit, @rest) or die("Failed to exec $bin_pkgsubmit: $!"); |
148 |
} |
} |
149 |
} |
} |
150 |
|
|