diff options
Diffstat (limited to 'pinyweb/cgi-bin/piny')
-rwxr-xr-x | pinyweb/cgi-bin/piny/newrepo.cgi | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/pinyweb/cgi-bin/piny/newrepo.cgi b/pinyweb/cgi-bin/piny/newrepo.cgi deleted file mode 100755 index 450fa82..0000000 --- a/pinyweb/cgi-bin/piny/newrepo.cgi +++ /dev/null @@ -1,29 +0,0 @@ -#!/usr/bin/perl -$| = 1; - -use warnings; - -use CGI; - -use IPC::Open2; - -$q = CGI->new; - -print( "Content-type: text/plain\n\n"); - -if( $q->param('n') && $q->param('d') ) { - unless( open2( OUT, IN, '/usr/sbin/piny-suid', $ENV{'REMOTE_USER'}, 'newrepo', $q->param('n') ) ) { - print 'could not execute newrepo'; - die; - }; - # make things flushier - select( (select(IN), $| = 1)[0] ); - select( (select(OUT), $| = 1)[0] ); - print( IN $q->param('d') . "\n" ); - close( IN ); - while( <OUT> ) { - print; - }; -} else { - print 'Missing parameters.'; -}; |