| filename | description |
|
));
for $file_name (sort keys %hash) {
if (exists ($hash{$file_name}{"dir"})) {
if ($v_path) {
push(@cells, qq(
 $file_name | ));
} else {
push(@cells, qq( |
| $file_name | ));
}
} else {
if ( $file_name =~ m/decoy.htm/) {}
elsif ( $file_name =~ m/index.conf/) {}
elsif( $file_name =~ m/template.htm/) {}
else {
if ($v_path) {
push(@cells, qq( |
 $file_name | \n));
} else {
push(@cells, qq( |
| $file_name | \n));
}
if (exists ($hash{$file_name}{'description'})) {
push(@cells, qq($hash{$file_name}{description} |
\n));
} else {
push(@cells, qq(\n));
}
push(@cells, qw());
} }
}
push(@cells, qq(
));
return \@cells;
}
1;
# adapted from the eagle book
package Class1;
use IO::File;
use File::Basename;
sub new {
shift;
my $file = shift;
my @directory_listing;
my $fh = new IO::File;
$fh->open("<$file") or die "Cannot open $file";
while (<$fh>) {
chomp;
s/^\s+//; s/\s+$//; #fold leading and trailing white spaces
if (/^#/ || /^$/) { #skip comments and empty lines
}
if (m/.*/) {
push(@directory_listing,$_ );
}
}
my @loop_array = @directory_listing;
my (%self);
for (my $i=0;$i<=$#directory_listing;$i++) {
my $line = shift(@loop_array);
my($url, $label) = split /=/, $line, 2;
$self{$url} = $label;
}
return bless{'hash'=>\%self};
}
sub return_hash_object {return $_[0]->{'hash'};}
1;
__END__
=head1 NAME
B