[solved] perl scriptlet question

[ghostbunny]

Hi dudes,

i'm working on a solution for the webmin tmp folder permission problem but i need a perl "guru" which can explain what the following does

Code: [Select]

perl <<EOD;
# 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);
EOD

regards
ghostbunny

[TerryN]

Set variable $tmp_dir to be the value of $tempdir from the shell environment or /tmp/.webmin if $tempdir is not set.
Exit if $tmp_dir is a directory owned by current user (REAL UID) and has permissions 755
otherwise delete it  and then:
create it with permissions 755
change owner to current user (REAL UID)
change permissions to 755

It will try up to 10 times to achieve correct directory and will exit with return code=0 if it succeeds or return code=1 if it fails.

Terry

[ghostbunny]

thanks terry,

i hopefully fixed that permission problem now.  i replaced this code by three lines of bash script xD

[gseaman]

Please, show us the code.

Galen

[ghostbunny]

here it is

Code: [Select]

if [ ! -d /tmp/.webmin ]; then
mkdir -p /tmp/.webmin
fi

the only thing is i don't know what webmin places there so i don't know whether the rights are correctly set.