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} = "";
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.";
}
$mailname=$1;
@ -37,7 +37,7 @@ my @todo=(
foreach(@todo) {
mkdir($_);
system("/bin/chown 33:$uid '$_'");
chown(33, $uid, $_);
}
0;

2
src/mem_add
View File

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