Minor replay issues

[flightgear.git] / scripts / perl / web / mkindex.pl

diff --git a/scripts/perl/web/mkindex.pl b/scripts/perl/web/mkindex.pl
index 47b5115b4cd2d164c6afe9dc950031207a2a4171..1574369d8e5a26775c319c3eff6edb24f513c263 100755 (executable)
--- a/scripts/perl/web/mkindex.pl
+++ b/scripts/perl/web/mkindex.pl
@@ -35,10 +35,10 @@ $ldir = "Large";
 $sdir = "Small";
 $mdir = "Movies";
 
-$columns = 3;
+$columns = 2;
 
-$wwidth = 170;
-$sheight = 128;
+$swidth = 320;
+$sheight = 233;
 
 $lwidth = 1024;
 $lheight = 768;
@@ -213,14 +213,15 @@ while ( <MASTER> ) {
            $linkname = `basename $i .png`;
         }
        chop($linkname);
-       # print OUT "<TD WIDTH=220 HEIGHT=160>\n";
-       print OUT "<TD WIDTH=$swidth HEIGHT=$sheight>\n";
 
        $thumbinfo = `identify $sdir/$i`;
        ($name, $type, $geom, $junk) = split(/\s+/, $thumbinfo, 4);
        ($twidth, $theight) = split(/x/, $geom);
        $theight =~ s/\+.*$//;
 
+       # print OUT "<TD WIDTH=220 HEIGHT=160>\n";
+       print OUT "<TD WIDTH=$twidth HEIGHT=$sheight>\n";
+
        print OUT "<A HREF=\"$link/$linkname.html\">";
        print OUT "<IMG WIDTH=$twidth HEIGHT=$theight SRC=\"$sdir/$i\" ALT=\"$linkname\">";
        print OUT "</A><BR>\n";
@@ -285,7 +286,11 @@ while ( <MASTER> ) {
         print "movie thumb geom = $geom  $twidth  $theight\n";
 
        print OUT "<A HREF=\"$mdir/$i\">";
-       print OUT "<IMG WIDTH=$twidth HEIGHT=$theight SRC=\"$mdir/$linkname.jpg\" ALT=\"$linkname\">";
+       if ( -f "$mdir/$linkname.jpg" ) {
+           print OUT "<IMG WIDTH=$twidth HEIGHT=$theight SRC=\"$mdir/$linkname.jpg\" ALT=\"$linkname\">";
+       } else {
+           print OUT "$linkname";
+       }
        print OUT "</A>\n";
 
        if ( -f "$mdir/$linkname.txt" ) {