12,13c12
< ### 4.8b bam:2004/08/20 Sort before displaying.
< ### 4.8a bam:2004/08/20 Mods for "humor" dir.
---
> ### 0.1a bam:2004/08/20 Mods for "humor" dir.
23d21
< my $Q = '"';
35,61c33,35
< #### Set file names. ####
< my $PATH = $in_para{PATH};
< #-- my $path = "";
< my $path = "./";
< if ($PATH) { $path = $path . $PATH; }
<
< my $PIXNAME = $in_para{PIXNAME};
< my $pixname = $path . "./";
< if ($PIXNAME) { $pixname = $path . $PIXNAME; }
<
< my $BGCOLOR = $in_para{BGCOLOR};
< my $bgcolor = "WHITE";
< if ($BGCOLOR) { $bgcolor = $BGCOLOR; }
<
< my $TEXT = $in_para{TEXT};
< my $text = "BLACK";
< if ($TEXT) { $text = $TEXT; print "CHANGED TO $text" }
< elsif ($BGCOLOR =~ /BLACK/i ) { $text="YELLOW"; }
< elsif ($BGCOLOR =~ /^000000$/ ) { $text="YELLOW"; }
<
< my $MAXLINES = $in_para{MAXLINES};
< my $maxlines = $MAXLINES;
< if ($maxlines < 1) { $maxlines = 10; }
<
< my $WIDTH = $in_para{WIDTH};
< my $width = "";
< if ($WIDTH) { $width = "WIDTH=$Q$WIDTH$Q"; }
---
> #### Set prefix to path. ####
> my $name = $ENV { 'COMPUTERNAME' } ;
> my $path = "";
67a42,45
> my $MAXLINES = $in_para{MAXLINES};
> my $maxlines = $MAXLINES;
> if ($maxlines < 1) { $maxlines = 10; }
>
76,80c54
< print " pix.pl -- $path $pixname \n";
< print "";
< print "\n";
< print " $path
\n";
<
---
> print " $dirname \n";
142d115
< my $name;
147,152c120,125
< next if ($f =~ /\/index\.html*$/i);
< next if ($f =~ /\/index[0-9A-Ca-ca.]*\.html* *$/i);
< next if ($f =~ /\/head\.html* *$/i);
< next if ($f =~ /\/tail\.html* *$/i);
< next if ($f =~ /\/index\.pl* *$/i);
< next if ($f =~ /\/\.pl* *$/i);
---
> next if ($f =~ /^[^a-zA-Z0-9_]*index\.html* *$/i);
> next if ($f =~ /^[^a-zA-Z0-9_]*index[0-9A-Ca-ca.]*\.html* *$/i);
> next if ($f =~ /^[^a-zA-Z0-9_]*head\.html* *$/i);
> next if ($f =~ /^[^a-zA-Z0-9_]*tail\.html* *$/i);
> next if ($f =~ /^[^a-zA-Z0-9_]*index\.pl* *$/i);
> next if ($f =~ /^[^a-zA-Z0-9_]*[a-zA-Z0-9_]*\.pl* *$/i);
183,191c156,172
< elsif ($f =~ /\.png$/i
< || $f =~ /\.gif$/i
< || $f =~ /\.png$/i
< || $f =~ /\.jp[eE]*g$/i
< ) {
< print " -- IMG: $f";
< print "$Q";
< print "
";
< print "\n";
---
> elsif ( $f =~ /\.png$/i ) {
> print " -- PNG: ";
> print '';
> print '
';
> print '';
> }
> elsif ( $f =~ /\.gif$/i ) {
> print " -- GIF: ";
> print '';
> print '';
> print '';
> }
> elsif ( $f =~ /\.jp[eE]*g$/i ) {
> print " -- JPEG: ";
> print '';
> print '';
> print '';