diff options
author | Michael Scherer <misc@mageia.org> | 2011-07-20 23:38:19 +0000 |
---|---|---|
committer | Michael Scherer <misc@mageia.org> | 2011-07-20 23:38:19 +0000 |
commit | c5f6d18976070f13d996c98ffbfb74158516f209 (patch) | |
tree | d726b79c476121d27716cf1b81c583d1ea1a5ea5 /modules/buildsystem/templates/submit_package.pl | |
parent | c9f3138049583678a506f880ede6936b757b253e (diff) | |
download | puppet-c5f6d18976070f13d996c98ffbfb74158516f209.tar puppet-c5f6d18976070f13d996c98ffbfb74158516f209.tar.gz puppet-c5f6d18976070f13d996c98ffbfb74158516f209.tar.bz2 puppet-c5f6d18976070f13d996c98ffbfb74158516f209.tar.xz puppet-c5f6d18976070f13d996c98ffbfb74158516f209.zip |
add missing file
Diffstat (limited to 'modules/buildsystem/templates/submit_package.pl')
-rwxr-xr-x | modules/buildsystem/templates/submit_package.pl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/modules/buildsystem/templates/submit_package.pl b/modules/buildsystem/templates/submit_package.pl new file mode 100755 index 00000000..3a34591b --- /dev/null +++ b/modules/buildsystem/templates/submit_package.pl @@ -0,0 +1,19 @@ +#!/usr/bin/perl +use strict; +use warnings; + +my $svn_server = 'svn.<%= domain %>'; +my $packagersgroup="<%= packagers_group %>"; +my $createsrpm="<%= createsrpm_path %>"; + +my $login = getpwuid($<); +my (undef, undef, undef, $members) = getgrnam $packagersgroup; +if (not $members =~ /\b$login\b/) { + print "You are not in $packagersgroup group\n"; + exit 1; +} + +# for bug 914 +# https://bugs.mageia.org/show_bug.cgi?id=914 +map { $_ =~ s|^svn\+ssh://$svn_server/|svn://$svn_server/| } @ARGV; +exec $createsrpm , @ARGV; |