summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xpinyweb/cgi-bin/auth/newrepo.cgi4
1 files changed, 2 insertions, 2 deletions
diff --git a/pinyweb/cgi-bin/auth/newrepo.cgi b/pinyweb/cgi-bin/auth/newrepo.cgi
index dfd9f02..0810fa7 100755
--- a/pinyweb/cgi-bin/auth/newrepo.cgi
+++ b/pinyweb/cgi-bin/auth/newrepo.cgi
@@ -16,7 +16,7 @@ print( "Content-type: text/plain\n\n");
open(STDERR, ">&STDOUT");
if( defined( $q->param('r') ) && defined( $q->param('d') ) ) { # repository, description
- @cmd = ( '/usr/sbin/piny-suid', $ENV{'REMOTE_USER'}, 'newrepo', '--batch', '--enable-ikiwiki', $q->param('r') );
+ @cmd = ( '/usr/sbin/piny-suid', $ENV{'REMOTE_USER'}, 'newrepo', '--batch', '--enable-ikiwiki', scalar( $q->param('r') ) );
if( defined( scalar( $q->param('i') ) ) && scalar( $q->param('i') ) eq "0" ) {
push( @cmd, '--disable-ikiwiki' );
@@ -34,7 +34,7 @@ if( defined( $q->param('r') ) && defined( $q->param('d') ) ) { # repository, des
# make things flushier
select( (select(IN), $| = 1)[0] );
select( (select(OUT), $| = 1)[0] );
- print( IN $q->param('d') . "\n" );
+ print( IN scalar( $q->param('d') ) . "\n" );
close( IN );
while( <OUT> ) {
print;