sslug-teknik team mailing list archive

[Peter Makholm <peter@xxxxxxxxxxx>]

Ole Kofoed Hansen <ole@xxxxxxxxxxxxxxx> writes:

> Så Lasse har brug for et script, som på standard-ind tage linier som:
> -r-xr-xr-x     root     root         6203 maj 14  2002 /usr/bin/ptked

#!/usr/bin/perl -n

my ($symbolic_mode, $name) = /^(.{10})[^/]*(.*)/;

$_ = $symbolic_mode;

my $numeric_mode = 0;
$numeric_mode |= 04000 if /^...[sS]......$/;
$numeric_mode |= 02000 if /^......[sS]...$/;
$numeric_mode |= 01000 if /^.........[tT]$/;
$numeric_mode |= 00400 if /^.r........$/;
$numeric_mode |= 00200 if /^..w.......$/;
$numeric_mode |= 00100 if /^...[xs]......$/;
$numeric_mode |= 00040 if /^....r.....$/;
$numeric_mode |= 00020 if /^.....w....$/;
$numeric_mode |= 00010 if /^......[xs]...$/;
$numeric_mode |= 00004 if /^.......r..$/;
$numeric_mode |= 00002 if /^........w.$/;
$numeric_mode |= 00001 if /^.........[xt]$/;

chmod $numeric_mode, $name
__END__

Burde umidelbart gøre tricket, antaget at alle inddatalinjer giver
absolutte filnavne og der ikke gives noget spøjst inddata.

Det er ikke afprøvet, så lav lige selv en prøve før i smadre systemet
endnu mere end det er i forvejen.

-- 
 Peter Makholm     |      There are 10 kinds of people. Those who count in
 peter@xxxxxxxxxxx |                            binary and those who don't
 http://hacking.dk |