perl/web/mkindex.pl

209 	    $linkname = `basename $i .jpg`;
211 	    $linkname = `basename $i .JPG`;
213 	    $linkname = `basename $i .png`;
215 	chop($linkname);
225 	print OUT "<A HREF=\"$link/$linkname.html\">";
226 	print OUT "<IMG WIDTH=$twidth HEIGHT=$theight SRC=\"$sdir/$i\" ALT=\"$linkname\">";
229 	if ( -f "$src/$linkname.txt" ) {
231 	    open( IN, "<$src/$linkname.txt" );
239 	    print OUT "$linkname\n";
270 	    $linkname = `basename $i .AVI`;
272 	    $linkname = `basename $i .mpg`;
274 	    $linkname = `basename $i .mov`;
278 	chop($linkname);
282 	$thumbinfo = `identify $mdir/$linkname.jpg`;
289 	if ( -f "$mdir/$linkname.jpg" ) {
290 	    print OUT "<IMG WIDTH=$twidth HEIGHT=$theight SRC=\"$mdir/$linkname.jpg\" ALT=\"$linkname\">";
292 	    print OUT "$linkname";
296 	if ( -f "$mdir/$linkname.txt" ) {
299 	    open( IN, "<$mdir/$linkname.txt" );
308 	    print OUT "$linkname\n";
387         $linkname = `basename $file .jpg`;
390         $linkname = `basename $file .JPG`;
393         $linkname = `basename $file .png`;
396     chop($linkname);
397     $nice_name = $linkname;
421     $outfile = "$link/$linkname.html";
429   <TITLE>$linkname.$ext</TITLE>
467     if ( -f "$src/$linkname.txt" ) {
469 	open( IN, "<$src/$linkname.txt" );
488   <A HREF="../$src/$linkname.$ext">
492 	print OUT "  <IMG SRC=\"../$ldir/$linkname.$ext\">\n";
494   	print OUT "  <IMG SRC=\"../$src/$linkname.$ext\">\n";