kienan
/
AlternC
mirror of https://github.com/kienanstewart/AlternC.git
1
0
Fork 0
Code Issues Releases Wiki Activity

modification de l'appel systeme à chown, en appel au chown builtin

This commit is contained in:
Rémi 2007-01-04 16:12:21 +00:00
parent 7c2a0058f6
commit 3b3341f6dd
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mail_add
View File

@ -13,7 +13,7 @@ if (!$mailname || !$uid) {
$ENV{PATH} = ""; $ENV{PATH} = "";
delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'}; delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
if (!($mailname =~ /^([a-z0-9_\+-][a-z0-9_\+\.-]+\_[a-z0-9\.-]+)$/)) { if (!($mailname =~ /^([a-z0-9_\+\-][a-z0-9_\+\.\-]+\_[a-z0-9\.-]+)$/)) {
die "Email is incorrect."; die "Email is incorrect.";
} }
$mailname=$1; $mailname=$1;
@ -37,7 +37,7 @@ my @todo=(
foreach(@todo) { foreach(@todo) {
mkdir($_); mkdir($_);
system("/bin/chown 33:$uid '$_'"); chown(33, $uid, $_);
} }
0; 0;

2
src/mem_add
View File

@ -28,7 +28,7 @@ $( = $);
my $PTH="/var/alternc/html/".substr($name,0,1)."/".$name; my $PTH="/var/alternc/html/".substr($name,0,1)."/".$name;
mkdir($PTH); mkdir($PTH);
system("/bin/chown 33:$uid '$PTH'"); chown(33, $uid, $PTH);
system("/bin/chmod 02770 '$PTH'"); system("/bin/chmod 02770 '$PTH'");
0; 0;