version 1.11, 2004/09/22 15:00:04
|
version 1.12.2.1, 2006/06/02 21:39:02
|
Line 80 sub main {
|
Line 80 sub main {
|
my @allfiles=(sort(readdir(DIR))); |
my @allfiles=(sort(readdir(DIR))); |
foreach my $filename (@allfiles) { |
foreach my $filename (@allfiles) { |
if ($filename=~/^\./) { next; } |
if ($filename=~/^\./) { next; } |
|
if ($filename=~/^publicuser_/) { next; } |
my ($dev,$ino,$mode,$nlink, |
my ($dev,$ino,$mode,$nlink, |
$uid,$gid,$rdev,$size, |
$uid,$gid,$rdev,$size, |
$atime,$mtime,$ctime, |
$atime,$mtime,$ctime, |
Line 100 sub main {
|
Line 101 sub main {
|
while (my $line=<$fh>) { |
while (my $line=<$fh>) { |
chomp($line); |
chomp($line); |
my ($name,$value)=split(/\=/,$line); |
my ($name,$value)=split(/\=/,$line); |
|
$name = &unescape($name); |
|
$value = &unescape($value); |
$userinfo{$name}=$value; |
$userinfo{$name}=$value; |
} |
} |
$fh->close(); |
$fh->close(); |
Line 208 sub showact {
|
Line 211 sub showact {
|
print("</tr></table>\n"); |
print("</tr></table>\n"); |
} |
} |
|
|
|
# -------------------------------------------------------- Escape Special Chars |
|
|
|
sub escape { |
|
my $str=shift; |
|
$str =~ s/(\W)/"%".unpack('H2',$1)/eg; |
|
return $str; |
|
} |
|
|
|
# ----------------------------------------------------- Un-Escape Special Chars |
|
|
|
sub unescape { |
|
my $str=shift; |
|
$str =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
|
return $str; |
|
} |