scripts/perl/web/mkindex.pl

   1 #!/usr/bin/perl
   2
   3 #
   4 # adapted from a script by Bob Hain, 11/30/99
   5 #
   6
   7 #
   8 # default values
   9 #
  10
  11 $outfile = "new.index.html";
  12
  13
  14 #
  15 # process arguments
  16 #
  17
  18 $use_large = 1;
  19 while ( $arg = shift @ARGV ) {
  20     if ( $arg eq "--large" ) {
  21         $use_large = 1;
  22     }
  23     if ( $arg eq "--outfile" ) {
  24         $outfile = shift @ARGV;
  25     }
  26 }
  27
  28
  29 #
  30 # Generate all images
  31 #
  32
  33 $src = "Source";
  34 $ldir = "Large";
  35 $sdir = "Small";
  36 $mdir = "Movies";
  37
  38 $columns = 3;
  39
  40 $swidth = 170;
  41 $sheight = 128;
  42
  43 $lwidth = 1024;
  44 $lheight = 768;
  45
  46
  47 #
  48 # Make sure directories exist
  49 #
  50
  51 if ( ! -e $ldir ) {
  52     mkdir $ldir, 0755;
  53 }
  54
  55 if ( ! -e $sdir ) {
  56     mkdir $sdir, 0755;
  57 }
  58
  59 # return 1 if file1 is newer than rile2
  60 sub is_newer {
  61     my($file1, $file2) = @_;
  62     # print " - $file1 - $file2 - \n";
  63
  64     ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime1,
  65      $ctime, $blksize, $blocks) = stat($file1);
  66     ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime2,
  67      $ctime, $blksize, $blocks) = stat($file2);
  68
  69     if ( $mtime1 > $mtime2 ) {
  70         return 1;
  71     } else {
  72         return 0;
  73     }
  74 }
  75
  76
  77 #
  78 # Make images (both large and small)
  79 #
  80
  81 @FILES = `ls $src/*.jpg $src/*.JPG $src/*.png`;
  82
  83 foreach $file ( @FILES ) {
  84     chop $file;
  85     $file =~ s/$src\///;
  86
  87     if ( is_newer( "$src/$file", "$ldir/$file" ) || ! -e "$ldir/$file" ) {
  88         print "Updating $ldir/$file\n";
  89         system("cp -f $src/$file $ldir");
  90         system("mogrify -geometry \'$lwidth" . "X" .
  91                "$lheight>\' -interlace LINE -quality 80 $ldir/$file");
  92     }
  93
  94     if ( is_newer( "$ldir/$file", "$sdir/$file" ) || ! -e "$sdir/$file" ) {
  95         print "Updating $sdir/$file\n";
  96         system("cp -f $ldir/$file $sdir");
  97         system("mogrify -geometry \'$swidth" . "X" .
  98                "$sheight>\' -interlace LINE -quality 80 $sdir/$file");
  99     }
 100 }
 101
 102
 103 #
 104 # Check for large and small images to remove
 105 #
 106
 107 @FILES = `ls $ldir`;
 108 foreach $file ( @FILES ) {
 109     chop($file);
 110     # print "$file\n";
 111     if ( ! -f "$src/$file" ) {
 112         print "No matching src file - deleting large image $file ...\n";
 113         unlink( "$ldir/$file" );
 114     }
 115 }
 116
 117 @FILES = `ls $sdir`;
 118 foreach $file ( @FILES ) {
 119     chop($file);
 120     if ( ! -f "$src/$file" ) {
 121         print "No matching src file - deleting small image $file ...\n";
 122         unlink( "$sdir/$file" );
 123     }
 124 }
 125
 126
 127 #
 128 # Build image list (for next/previous/first/last links)
 129 #
 130
 131 open( MASTER, "<master.idx" );
 132
 133 @imagelist = ();
 134
 135 while ( <MASTER> ) {
 136     chop;
 137     if ( m/\.jpg$/ || m/\.JPG$/ || m/\.png$/ ) {
 138         push @imagelist, $_;
 139     } else {
 140         # just ignore everything else
 141     }
 142 }
 143
 144 close( MASTER );
 145
 146
 147 #
 148 # Prepair $link subdirectory
 149 #
 150
 151 $link = "Link";
 152 system("rm -rf $link");
 153 mkdir $link, 0755;
 154
 155
 156 #
 157 # Assemble index.html
 158 #
 159
 160 $dir = `pwd`;
 161 chop($dir);
 162 $title = `basename $dir`;
 163 chop($title);
 164
 165 open( MASTER, "<master.idx" );
 166 open( OUT, ">$outfile" );
 167
 168 $j = 1;
 169 $in_table = 0;
 170
 171 while ( <MASTER> ) {
 172     chop;
 173     if ( m/^#/ ) {
 174         # ignore comments
 175     } elsif ( m/\.txt$/ ) {
 176         # insert text
 177
 178         if ( $in_table ) {
 179             $in_table = 0;
 180             print OUT "</TR>\n";
 181             print OUT "</TABLE>\n";
 182         }
 183
 184         $file = $_;
 185         open( IN, "<$src/$file" );
 186         while ( <IN> ) {
 187             print OUT $_;
 188         }
 189         close( IN );
 190         print OUT "<P>\n";
 191         $j = 1;
 192         $in_table = 0;
 193     } elsif ( m/\.jpg$/ || m/\.JPG$/ || m/\.png$/ ) {
 194         # insert image in 3 wide tables
 195
 196         $in_table = 1;
 197         $file = $_;
 198
 199         $i = `basename $file`;
 200         chop($i);
 201
 202         if ( $j == 1 ) {
 203             print OUT "<!-- Begin Row -->\n";
 204             print OUT "<TABLE ALIGN=CENTER>\n";
 205             print OUT "<TR VALIGN=TOP>\n";
 206         }
 207
 208         if ( $i =~ m/\.jpg$/ ) {
 209             $linkname = `basename $i .jpg`;
 210         } elsif ( $i =~ m/\.JPG$/ ) {
 211             $linkname = `basename $i .JPG`;
 212         } elsif ($i =~ m/\.png$/ ) {
 213             $linkname = `basename $i .png`;
 214         }
 215         chop($linkname);
 216         # print OUT "<TD WIDTH=220 HEIGHT=160>\n";
 217         print OUT "<TD WIDTH=$swidth HEIGHT=$sheight>\n";
 218
 219         $thumbinfo = `identify $sdir/$i`;
 220         ($name, $type, $geom, $junk) = split(/\s+/, $thumbinfo, 4);
 221         ($twidth, $theight) = split(/x/, $geom);
 222         $theight =~ s/\+.*$//;
 223
 224         print OUT "<A HREF=\"$link/$linkname.html\">";
 225         print OUT "<IMG WIDTH=$twidth HEIGHT=$theight SRC=\"$sdir/$i\" ALT=\"$linkname\">";
 226         print OUT "</A><BR>\n";
 227
 228         if ( -f "$src/$linkname.txt" ) {
 229             print OUT "<FONT SIZE=-1 id=\"fgfs\">\n";
 230             open( IN, "<$src/$linkname.txt" );
 231             while ( <IN> ) {
 232                 print OUT $_;
 233             }
 234             close( IN );
 235             print OUT "</FONT>\n";
 236         } else {
 237             print OUT "<FONT SIZE=-1 id=\"fgfs\">\n";
 238             print OUT "$linkname\n";
 239             print OUT "</FONT>\n";
 240         }
 241
 242         print OUT "</TD>\n";
 243
 244         if ( $j == $columns ) {
 245             $in_table = 0;
 246             print OUT "</TR>\n";
 247             print OUT "</TABLE>\n";
 248         }
 249
 250         if ( ++$j > $columns ) {
 251             $j = 1;
 252         }
 253     } elsif ( m/\.AVI$/ || m/\.mpg$/ || m/\.mov$/ ) {
 254         # insert image in 3 wide tables
 255
 256         $in_table = 1;
 257         $file = $_;
 258
 259         $i = `basename $file`;
 260         chop($i);
 261
 262         if ( $j == 1 ) {
 263             print OUT "<!-- Begin Row -->\n";
 264             print OUT "<TABLE ALIGN=CENTER>\n";
 265             print OUT "<TR VALIGN=TOP>\n";
 266         }
 267
 268         if ( $i =~ m/\.AVI$/ ) {
 269             $linkname = `basename $i .AVI`;
 270         } elsif ( $i =~ m/\.mpg$/ ) {
 271             $linkname = `basename $i .mpg`;
 272         } elsif ( $i =~ m/\.mov$/ ) {
 273             $linkname = `basename $i .mov`;
 274         } else {
 275             die "unknown movie type\n";
 276         }
 277         chop($linkname);
 278         # print OUT "<TD WIDTH=220 HEIGHT=160>\n";
 279         print OUT "<TD WIDTH=$swidth HEIGHT=$sheight>\n";
 280
 281         $thumbinfo = `identify $mdir/$linkname.jpg`;
 282         ($name, $type, $geom, $junk) = split(/\s+/, $thumbinfo, 4);
 283         $geom =~ s/\+.*//;
 284         ($twidth, $theight) = split(/x/, $geom);
 285         print "movie thumb geom = $geom  $twidth  $theight\n";
 286
 287         print OUT "<A HREF=\"$mdir/$i\">";
 288         if ( -f "$mdir/$linkname.jpg" ) {
 289             print OUT "<IMG WIDTH=$twidth HEIGHT=$theight SRC=\"$mdir/$linkname.jpg\" ALT=\"$linkname\">";
 290         } else {
 291             print OUT "$linkname";
 292         }
 293         print OUT "</A>\n";
 294
 295         if ( -f "$mdir/$linkname.txt" ) {
 296             print OUT "<BR>\n";
 297             print OUT "<FONT SIZE=-1 id=\"fgfs\">\n";
 298             open( IN, "<$mdir/$linkname.txt" );
 299             while ( <IN> ) {
 300                 print OUT $_;
 301             }
 302             close( IN );
 303             print OUT "</FONT>\n";
 304         } else {
 305             print OUT "<BR>\n";
 306             print OUT "<FONT SIZE=-1 id=\"fgfs\">\n";
 307             print OUT "$linkname\n";
 308             print OUT "</FONT>\n";
 309         }
 310
 311         print OUT "</TD>\n";
 312
 313         if ( $j == $columns ) {
 314             $in_table = 0;
 315             print OUT "</TR>\n";
 316             print OUT "</TABLE>\n";
 317         }
 318
 319         if ( ++$j > $columns ) {
 320             $j = 1;
 321         }
 322     } else {
 323         # just pass along the rest as is
 324
 325         $j = 1;
 326
 327         if ( $in_table ) {
 328             $in_table = 0;
 329             print OUT "</TR>\n";
 330             print OUT "</TABLE>\n";
 331         }
 332         print OUT "$_\n";
 333     }
 334 }
 335
 336
 337 #
 338 # Generate Links
 339 #
 340
 341 # @FILES = `ls $src/*.jpg $src/*.JPG $src/*.png`;
 342
 343 $first = $imagelist[0];
 344 if ( $first =~ m/\.jpg$/ ) {
 345     # print "  ext = jpg\n";
 346     $firstname = `basename $first .jpg`;
 347 } elsif ( $first =~ m/\.JPG$/ ) {
 348     # print "  ext = JPG\n";
 349     $firstname = `basename $first .JPG`;
 350 } else {
 351     # print "  ext = png\n";
 352     $firstname = `basename $first .png`;
 353 }
 354 chop($firstname);
 355
 356 $last = $imagelist[$#imagelist];
 357 if ( $last =~ m/\.jpg$/ ) {
 358     # print "  ext = jpg\n";
 359     $lastname = `basename $last .jpg`;
 360 } elsif ( $last =~ m/\.JPG$/ ) {
 361     # print "  ext = JPG\n";
 362     $lastname = `basename $last .JPG`;
 363 } else {
 364     # print "  ext = png\n";
 365     $lastname = `basename $last .png`;
 366 }
 367 chop($lastname);
 368
 369 for ($i = 0; $i <= $#imagelist; $i++) {
 370     $file = $imagelist[$i];
 371     # print "'$file'\n";
 372
 373     if ( $i > 0 ) {
 374         $prev = $imagelist[$i - 1];
 375     } else {
 376         $prev = "null";
 377     }
 378
 379     if ( $i < $#imagelist ) {
 380         $next = $imagelist[$i + 1];
 381     } else {
 382         $next = "null";
 383     }
 384
 385     if ( $file =~ m/\.jpg$/ ) {
 386         $linkname = `basename $file .jpg`;
 387         $ext = "jpg";
 388     } elsif ( $file =~ m/\.JPG$/ ) {
 389         $linkname = `basename $file .JPG`;
 390         $ext = "JPG";
 391     } else {
 392         $linkname = `basename $file .png`;
 393         $ext = "png";
 394     }
 395     chop($linkname);
 396     $nice_name = $linkname;
 397     $nice_name =~ s/\_/ /g;
 398
 399     if ( $prev =~ m/\.jpg$/ ) {
 400         # print "  ext = jpg\n";
 401         $prevname = `basename $prev .jpg`;
 402     } elsif ( $prev =~ m/\.JPG$/ ) {
 403         # print "  ext = JPG\n";
 404         $prevname = `basename $prev .JPG`;
 405     } else {
 406         # print "  ext = png\n";
 407         $prevname = `basename $prev .png`;
 408     }
 409     chop($prevname);
 410
 411     if ( $next =~ m/\.jpg$/ ) {
 412         $nextname = `basename $next .jpg`;
 413     } elsif ( $next =~ m/\.JPG$/ ) {
 414         $nextname = `basename $next .JPG`;
 415     } else {
 416         $nextname = `basename $next .png`;
 417     }
 418     chop($nextname);
 419
 420     $outfile = "$link/$linkname.html";
 421
 422     open( OUT, ">$outfile" );
 423     print OUT <<EOF;
 424
 425 <HTML>
 426
 427 <HEAD>
 428   <TITLE>$linkname.$ext</TITLE>
 429 </HEAD>
 430
 431 <!-- <BODY BGCOLOR="#000000" ALINK="#000000" VLINK="#000000" LINK="#000000" TEXT="#FFFFFF"> -->
 432 <BODY>
 433
 434 <A HREF="$firstname.html">[First]</A>
 435 EOF
 436
 437     if ( $prevname ne "null" ) {
 438         print OUT "<A HREF=\"$prevname.html\">[Previous]</A>\n";
 439     } else {
 440         print OUT "[Previous]\n";
 441     }
 442
 443     if ( $nextname ne "null" ) {
 444         print OUT "<A HREF=\"$nextname.html\">[Next]</A>\n";
 445     } else {
 446         print OUT "[Next]\n";
 447     }
 448
 449     print OUT <<EOF;
 450 <A HREF="$lastname.html">[Last]</A>
 451
 452 <TABLE ALIGN=CENTER>
 453   <TR>
 454   <TD ALIGN=CENTER>
 455   <FONT SIZE=+1>
 456   $nice_name
 457   </FONT>
 458   </TD>
 459   </TR>
 460
 461   <TR>
 462   <TD ALIGN=CENTER>
 463   <FONT SIZE=-1>
 464 EOF
 465
 466     if ( -f "$src/$linkname.txt" ) {
 467         # print OUT "<BR>\n";
 468         open( IN, "<$src/$linkname.txt" );
 469         while ( <IN> ) {
 470             print OUT $_;
 471         }
 472         close( IN );
 473     }
 474
 475     print OUT <<EOF;
 476   </FONT>
 477   </TD>
 478   </TR>
 479
 480 </TABLE>
 481
 482 Click on the image for the full size version.
 483
 484 <TABLE ALIGN=CENTER>
 485   <TR>
 486   <TD ALIGN=CENTER>
 487   <A HREF="../$src/$linkname.$ext">
 488 EOF
 489
 490     if ( $use_large ) {
 491         print OUT "  <IMG SRC=\"../$ldir/$linkname.$ext\">\n";
 492     } else {
 493         print OUT "  <IMG SRC=\"../$src/$linkname.$ext\">\n";
 494     }
 495
 496     print OUT <<EOF;
 497   </TD>
 498   </A>
 499   </TR>
 500 </TABLE>
 501
 502 </BODY>
 503 </HTML>
 504 EOF
 505
 506     close( OUT );
 507 }
 508