diff options
Diffstat (limited to 'pinyweb/cgi-bin/newuser.cgi')
-rwxr-xr-x | pinyweb/cgi-bin/newuser.cgi | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/pinyweb/cgi-bin/newuser.cgi b/pinyweb/cgi-bin/newuser.cgi deleted file mode 100755 index 002d2be..0000000 --- a/pinyweb/cgi-bin/newuser.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('a') && $q->param('p') ) { - unless( open2( OUT, IN, '/usr/bin/sudo', '/usr/sbin/newuser', '--batch', $q->param('a'), $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('p') . "\n" ); - close( IN ); - while( <OUT> ) { - print; - }; -} else { - print 'Missing parameters.'; -}; |