[MKDoc-commit] system (chown) instead of chown()
bruno at mkdoc.demon.co.uk
bruno at mkdoc.demon.co.uk
Thu Nov 25 14:48:10 GMT 2004
Log Message:
-----------
system (chown) instead of chown()
Modified Files:
--------------
mkd/tools:
install-details-gt.pl
-------------- next part --------------
Index: install-details-gt.pl
===================================================================
RCS file: /var/spool/cvs/mkd/tools/install-details-gt.pl,v
retrieving revision 1.28
retrieving revision 1.29
diff -Ltools/install-details-gt.pl -Ltools/install-details-gt.pl -u -r1.28 -r1.29
--- tools/install-details-gt.pl
+++ tools/install-details-gt.pl
@@ -32,7 +32,6 @@
use GPanel::Config;
use constant IP_ADDRESS => '69.28.204.54';
-use constant WWW_USER => 'nobody';
our $MKDOC_DIR;
$MKDOC_DIR = $ENV{MKDOC_DIR} || die 'MKDOC_DIR not set';
@@ -198,7 +197,7 @@
);
close FP;
- chown $user_name, WWW_USER, "$site_dir/mksetenv.sh";
+ system ("chown $user_name:$user_name $site_dir/mksetenv.sh");
}
@@ -208,7 +207,7 @@
print "Creating $dir\n";
-d $dir and return;
mkdir $dir || die "Cannot create $dir!";
- chown $user_name, WWW_USER, $dir;
+ system ("chown $user_name:$user_name $dir");
}
More information about the MKDoc-commit
mailing list