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 $wwidth = 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/*.gif`;
  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/\.gif$/ ) {
 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/\.gif$/ ) {
 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         } else {
 213             $linkname = `basename $i .gif`;
 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>\n";
 227
 228         if ( -f "$src/$linkname.txt" ) {
 229             if ( $twidth < $swidth ) {
 230                 print OUT "<BR>\n";
 231             }
 232             print OUT "<FONT SIZE=-1 id=\"fgfs\">\n";
 233             open( IN, "<$src/$linkname.txt" );
 234             while ( <IN> ) {
 235                 print OUT $_;
 236             }
 237             close( IN );
 238             print OUT "</FONT>\n";
 239         } else {
 240             if ( $twidth < $swidth ) {
 241                 print OUT "<BR>\n";
 242             }
 243             print OUT "<FONT SIZE=-1 id=\"fgfs\">\n";
 244             print OUT "$linkname\n";
 245             print OUT "</FONT>\n";
 246         }
 247
 248         print OUT "</TD>\n";
 249
 250         if ( $j == $columns ) {
 251             $in_table = 0;
 252             print OUT "</TR>\n";
 253             print OUT "</TABLE>\n";
 254         }
 255
 256         if ( ++$j > $columns ) {
 257             $j = 1;
 258         }
 259     } elsif ( m/\.AVI$/ || m/\.mpg$/ || m/\.mov$/ ) {
 260         # insert image in 3 wide tables
 261
 262         $in_table = 1;
 263         $file = $_;
 264
 265         $i = `basename $file`;
 266         chop($i);
 267
 268         if ( $j == 1 ) {
 269             print OUT "<!-- Begin Row -->\n";
 270             print OUT "<TABLE ALIGN=CENTER>\n";
 271             print OUT "<TR VALIGN=TOP>\n";
 272         }
 273
 274         if ( $i =~ m/\.AVI$/ ) {
 275             $linkname = `basename $i .AVI`;
 276         } elsif ( $i =~ m/\.mpg$/ ) {
 277             $linkname = `basename $i .mpg`;
 278         } elsif ( $i =~ m/\.mov$/ ) {
 279             $linkname = `basename $i .mov`;
 280         } else {
 281             die "unknown movie type\n";
 282         }
 283         chop($linkname);
 284         # print OUT "<TD WIDTH=220 HEIGHT=160>\n";
 285         print OUT "<TD WIDTH=$swidth HEIGHT=$sheight>\n";
 286
 287         $thumbinfo = `identify $mdir/$linkname.jpg`;
 288         ($name, $type, $geom, $junk) = split(/\s+/, $thumbinfo, 4);
 289         ($twidth, $theight) = split(/x/, $geom);
 290         print "movie thumb geom = $geom  $twidth  $theight\n";
 291
 292         print OUT "<A HREF=\"$mdir/$i\">";
 293         print OUT "<IMG WIDTH=$twidth HEIGHT=$theight SRC=\"$mdir/$linkname.jpg\" ALT=\"$linkname\">";
 294         print OUT "</A>\n";
 295
 296         if ( -f "$mdir/$linkname.txt" ) {
 297             if ( $twidth < $swidth ) {
 298                 print OUT "<BR>\n";
 299             }
 300             print OUT "<FONT SIZE=-1 id=\"fgfs\">\n";
 301             open( IN, "<$mdir/$linkname.txt" );
 302             while ( <IN> ) {
 303                 print OUT $_;
 304             }
 305             close( IN );
 306             print OUT "</FONT>\n";
 307         } else {
 308             if ( $twidth < $swidth ) {
 309                 print OUT "<BR>\n";
 310             }
 311             print OUT "<FONT SIZE=-1 id=\"fgfs\">\n";
 312             print OUT "$linkname\n";
 313             print OUT "</FONT>\n";
 314         }
 315
 316         print OUT "</TD>\n";
 317
 318         if ( $j == $columns ) {
 319             $in_table = 0;
 320             print OUT "</TR>\n";
 321             print OUT "</TABLE>\n";
 322         }
 323
 324         if ( ++$j > $columns ) {
 325             $j = 1;
 326         }
 327     } else {
 328         # just pass along the rest as is
 329
 330         $j = 1;
 331
 332         if ( $in_table ) {
 333             $in_table = 0;
 334             print OUT "</TR>\n";
 335             print OUT "</TABLE>\n";
 336         }
 337         print OUT "$_\n";
 338     }
 339 }
 340
 341
 342 #
 343 # Generate Links
 344 #
 345
 346 # @FILES = `ls $src/*.jpg $src/*.JPG $src/*.gif`;
 347
 348 $first = $imagelist[0];
 349 if ( $first =~ m/\.jpg$/ ) {
 350     # print "  ext = jpg\n";
 351     $firstname = `basename $first .jpg`;
 352 } elsif ( $first =~ m/\.JPG$/ ) {
 353     # print "  ext = JPG\n";
 354     $firstname = `basename $first .JPG`;
 355 } else {
 356     # print "  ext = gif\n";
 357     $firstname = `basename $first .gif`;
 358 }
 359 chop($firstname);
 360
 361 $last = $imagelist[$#imagelist];
 362 if ( $last =~ m/\.jpg$/ ) {
 363     # print "  ext = jpg\n";
 364     $lastname = `basename $last .jpg`;
 365 } elsif ( $last =~ m/\.JPG$/ ) {
 366     # print "  ext = JPG\n";
 367     $lastname = `basename $last .JPG`;
 368 } else {
 369     # print "  ext = gif\n";
 370     $lastname = `basename $last .gif`;
 371 }
 372 chop($lastname);
 373
 374 for ($i = 0; $i <= $#imagelist; $i++) {
 375     $file = $imagelist[$i];
 376     # print "'$file'\n";
 377
 378     if ( $i > 0 ) {
 379         $prev = $imagelist[$i - 1];
 380     } else {
 381         $prev = "null";
 382     }
 383
 384     if ( $i < $#imagelist ) {
 385         $next = $imagelist[$i + 1];
 386     } else {
 387         $next = "null";
 388     }
 389
 390     if ( $file =~ m/\.jpg$/ ) {
 391         $linkname = `basename $file .jpg`;
 392         $ext = "jpg";
 393     } elsif ( $file =~ m/\.JPG$/ ) {
 394         $linkname = `basename $file .JPG`;
 395         $ext = "JPG";
 396     } else {
 397         $linkname = `basename $file .gif`;
 398         $ext = "gif";
 399     }
 400     chop($linkname);
 401     $nice_name = $linkname;
 402     $nice_name =~ s/\_/ /g;
 403
 404     if ( $prev =~ m/\.jpg$/ ) {
 405         # print "  ext = jpg\n";
 406         $prevname = `basename $prev .jpg`;
 407     } elsif ( $prev =~ m/\.JPG$/ ) {
 408         # print "  ext = JPG\n";
 409         $prevname = `basename $prev .JPG`;
 410     } else {
 411         # print "  ext = gif\n";
 412         $prevname = `basename $prev .gif`;
 413     }
 414     chop($prevname);
 415
 416     if ( $next =~ m/\.jpg$/ ) {
 417         $nextname = `basename $next .jpg`;
 418     } elsif ( $next =~ m/\.JPG$/ ) {
 419         $nextname = `basename $next .JPG`;
 420     } else {
 421         $nextname = `basename $next .gif`;
 422     }
 423     chop($nextname);
 424
 425     $outfile = "$link/$linkname.html";
 426
 427     open( OUT, ">$outfile" );
 428     print OUT <<EOF;
 429
 430 <HTML>
 431
 432 <HEAD>
 433   <TITLE>$linkname.$ext</TITLE>
 434 </HEAD>
 435
 436 <!-- <BODY BGCOLOR="#000000" ALINK="#000000" VLINK="#000000" LINK="#000000" TEXT="#FFFFFF"> -->
 437 <BODY>
 438
 439 <A HREF="$firstname.html">[First]</A>
 440 EOF
 441
 442     if ( $prevname ne "null" ) {
 443         print OUT "<A HREF=\"$prevname.html\">[Previous]</A>\n";
 444     } else {
 445         print OUT "[Previous]\n";
 446     }
 447
 448     if ( $nextname ne "null" ) {
 449         print OUT "<A HREF=\"$nextname.html\">[Next]</A>\n";
 450     } else {
 451         print OUT "[Next]\n";
 452     }
 453
 454     print OUT <<EOF;
 455 <A HREF="$lastname.html">[Last]</A>
 456
 457 <TABLE ALIGN=CENTER>
 458   <TR>
 459   <TD ALIGN=CENTER>
 460   <FONT SIZE=+1>
 461   $nice_name
 462   </FONT>
 463   </TD>
 464   </TR>
 465
 466   <TR>
 467   <TD ALIGN=CENTER>
 468   <FONT SIZE=-1>
 469 EOF
 470
 471     if ( -f "$src/$linkname.txt" ) {
 472         # print OUT "<BR>\n";
 473         open( IN, "<$src/$linkname.txt" );
 474         while ( <IN> ) {
 475             print OUT $_;
 476         }
 477         close( IN );
 478     }
 479
 480     print OUT <<EOF;
 481   </FONT>
 482   </TD>
 483   </TR>
 484
 485 </TABLE>
 486
 487 Click on the image for the full size version.
 488
 489 <TABLE ALIGN=CENTER>
 490   <TR>
 491   <TD ALIGN=CENTER>
 492   <A HREF="../$src/$linkname.$ext">
 493 EOF
 494
 495     if ( $use_large ) {
 496         print OUT "  <IMG SRC=\"../$ldir/$linkname.$ext\">\n";
 497     } else {
 498         print OUT "  <IMG SRC=\"../$src/$linkname.$ext\">\n";
 499     }
 500
 501     print OUT <<EOF;
 502   </TD>
 503   </A>
 504   </TR>
 505 </TABLE>
 506
 507 </BODY>
 508 </HTML>
 509 EOF
 510
 511     close( OUT );
 512 }
 513