#Discus board image lister script
#-------------------------------------------------------------------------------
#This script is copyright (c) 1997-98 by Kevin W. Paulisse and William F. Polik,
#all rights reserved.  You may not modify or delete this copyright header.
#The use of this product is subject to a license agreement.  Contact Kevin
#Paulisse (paulisse@mulliken.chem.hope.edu) for further information.
#-------------------------------------------------------------------------------

open (FILE, "$discus_conf");
@file = <FILE>;
close (FILE);
$evals = "";
foreach $line (@file) {
	if ($line =~ /^(\w+)=(.*)/) {
		$varname = $1;
		$value = $2;
		$value =~ s/'/\\'/g;
		$evals .= "\$$varname='$value'; ";
	}
}
eval($evals);
$titlej = $title;
$titlej =~ s/['"<>]//g; #Not friendly characters for our JavaScript!
require "$admin_dir/source/src-board-subs-common";

$acceptable_images = 'gif';
$image_directory = "$html_dir/clipart";
$image_url = "$html_url/clipart";

&header;
&ex('printuntil', 1, 1, 0, "$L{ILTITLE}");
($bgcolor, $text, $link, $vlink, $alink, $font, $size, $img) = &ex('extract_colorsonly', 1);
print "<CENTER><FONT SIZE=+1><B>$L{ILTITLE}</B></FONT></CENTER>\n";
print "<HR>\n";
print "$L{ILINSTR}\n";
print "<P>\n";
print "<P><TABLE BORDER=1>\n";
print "<TR><TD><B><FONT FACE=\"$face\">$L{ILTAG}</FONT></B></TD><TD><B><FONT FACE=\"$face\">$L{ILIMAGE}</FONT></B></TD></TR>\n";
undef @files;
opendir(IMAGES, "$html_dir/clipart");
while ($name = readdir(IMAGES)) {
	push (@files, $name) if $name =~ /$acceptable_images/;
}
closedir(IMAGES);
foreach $file (sort(@files)) {
	$_ = $file;
	/\/?([^\/]*$)/;
	$_ = $1;
	$filename = $_;
	/(.*)\.(.*)/;
	$name = $1;
	$type = $2;
	if ($type =~ $acceptable_images && $filename !~ /your_image.gif/ && $filename !~ /board_logo.gif/ && $filename !~ /poweredby.gif/) {
		print "<TR>";
		print "<TD><FONT FACE=\"$face\" SIZE=\"$size\"><B>&#92;", $L{ILCLIPTAG}, "{</B>$name<B>}</B></FONT></TD>";
		print "<TD><IMG SRC=\"$image_url/$filename\"></TD></TR>\n";
	}
}
print "</TABLE>\n";
print "<HR><CENTER><A HREF=\"javascript:history.back()\">$L{ILBACK}";
print "</A></CENTER><P>\n\n";
for ($i = 3; $i <= 17; $i += 2) {
	&ex('printuntil', $i, $i, 0,"");
}
exit(0);