PAL.C.T MINI SHELL
# maketemp.pl
# Create the /tmp/.webmin directory if needed
$tmp_dir = $ENV{'tempdir'} || "/tmp/.webmin";
while($tries++ < 10) {
local @st = lstat($tmp_dir);
exit(0) if ($st[4] == $< && (-d _) && ($st[2] & 0777) == 0755);
if (@st) {
unlink($tmp_dir) || rmdir($tmp_dir) ||
system("/bin/rm -rf ".quotemeta($tmp_dir));
}
mkdir($tmp_dir, 0755) || next;
chown($<, $(, $tmp_dir);
chmod(0755, $tmp_dir);
}
exit(1);
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`