if ($PARAM{"editUser"} =~ /^#.*/) {
&editRestrictionsForm;
} else {
+ $user = normalize_user($PARAM{"editUser"});
if (defined $PARAM{"delete file"}) {
- $user = normalize_user($PARAM{"editUser"});
unlink "$user/\@ALLOWED_RECIPIENTS";
print "upload restrictions for $user have been deleted\n";
&end_html;
} else {
- editUser($PARAM{"editUser"});
+ editUser($user);
}
}
} elsif ($PARAM{"contentBox"} and $PARAM{"ar"}) {
&end_html;
}
} else {
- system qw'cp -a',$ar,"$ar~";
+ system 'mv',$ar,"$ar~";
}
+ $rf =~ s/^\s+$//;
open $ar,'>',$ar or http_die("cannot write $ar - $!");
print {$ar} $rf;
close $ar or http_die("cannot write $ar - $!");;