Updates.

diff --git a/scripts/perl/web/mkindex.pl b/scripts/perl/web/mkindex.pl
index 0b1cb28fcf539a2496a47b03a4ba80dc223b8bf4..be01f7d0f57c8a2803694b62850c58cc85d157ab 100755 (executable)
--- a/scripts/perl/web/mkindex.pl
+++ b/scripts/perl/web/mkindex.pl
@@ -286,6 +286,7 @@ while ( <MASTER> ) {
 
        $thumbinfo = `identify $mdir/$linkname.jpg`;
        ($name, $type, $geom, $junk) = split(/\s+/, $thumbinfo, 4);
+       $geom =~ s/\+.*//;
        ($twidth, $theight) = split(/x/, $geom);
         print "movie thumb geom = $geom  $twidth  $theight\n";