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 "<HTML><HEAD><TITLE> pix.pl -- $path $pixname </TITLE>\n";
< 	print "</HEAD>";
< 	print "<BODY BGCOLOR=$Q$bgcolor$Q TEXT=$Q$text$Q>\n";
< 	print "<H2 ALIGN=CENTER> $path </H2>\n";
< 
---
> print "<HTML><HEAD><TITLE> $dirname </TITLE>\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 "<A HREF=$Q$f$Q TARGET=_blank>$Q";
< 			print "<IMG SRC=$Q$f$Q $width HSPACE=6 ALIGN=TOP>";
< 			print "</A>\n";
---
> 		elsif ( $f =~ /\.png$/i ) {
> 			print " -- PNG: "; 
> 			print '<A HREF="' . $f . '" TARGET=_blank>';
> 			print '<IMG SRC="' . $f . '" HSPACE=6 ALIGN=TOP>';
> 			print '</A>';
> 		}
> 		elsif ( $f =~ /\.gif$/i ) {
> 			print " -- GIF: "; 
> 			print '<A HREF="' . $f . '" TARGET=_blank>';
> 			print '<IMG SRC="' . $f . '" HSPACE=6 ALIGN=TOP>';
> 			print '</A>';
> 		}
> 		elsif ( $f =~ /\.jp[eE]*g$/i ) {
> 			print " -- JPEG: "; 
> 			print '<A HREF="' . $f . '" TARGET=_blank>';
> 			print '<IMG SRC="' . $f . '" HSPACE=6 ALIGN=TOP>';
> 			print '</A>';
