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/*.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         print OUT "<IMG WIDTH=$twidth HEIGHT=$theight SRC=\"$mdir/$linkname.jpg\" ALT=\"$linkname\">";
 289         print OUT "</A>\n";
 290
 291         if ( -f "$mdir/$linkname.txt" ) {
 292             print OUT "<BR>\n";
 293             print OUT "<FONT SIZE=-1 id=\"fgfs\">\n";
 294             open( IN, "<$mdir/$linkname.txt" );
 295             while ( <IN> ) {
 296                 print OUT $_;
 297             }
 298             close( IN );
 299             print OUT "</FONT>\n";
 300         } else {
 301             print OUT "<BR>\n";
 302             print OUT "<FONT SIZE=-1 id=\"fgfs\">\n";
 303             print OUT "$linkname\n";
 304             print OUT "</FONT>\n";
 305         }
 306
 307         print OUT "</TD>\n";
 308
 309         if ( $j == $columns ) {
 310             $in_table = 0;
 311             print OUT "</TR>\n";
 312             print OUT "</TABLE>\n";
 313         }
 314
 315         if ( ++$j > $columns ) {
 316             $j = 1;
 317         }
 318     } else {
 319         # just pass along the rest as is
 320
 321         $j = 1;
 322
 323         if ( $in_table ) {
 324             $in_table = 0;
 325             print OUT "</TR>\n";
 326             print OUT "</TABLE>\n";
 327         }
 328         print OUT "$_\n";
 329     }
 330 }
 331
 332
 333 #
 334 # Generate Links
 335 #
 336
 337 # @FILES = `ls $src/*.jpg $src/*.JPG $src/*.png`;
 338
 339 $first = $imagelist[0];
 340 if ( $first =~ m/\.jpg$/ ) {
 341     # print "  ext = jpg\n";
 342     $firstname = `basename $first .jpg`;
 343 } elsif ( $first =~ m/\.JPG$/ ) {
 344     # print "  ext = JPG\n";
 345     $firstname = `basename $first .JPG`;
 346 } else {
 347     # print "  ext = png\n";
 348     $firstname = `basename $first .png`;
 349 }
 350 chop($firstname);
 351
 352 $last = $imagelist[$#imagelist];
 353 if ( $last =~ m/\.jpg$/ ) {
 354     # print "  ext = jpg\n";
 355     $lastname = `basename $last .jpg`;
 356 } elsif ( $last =~ m/\.JPG$/ ) {
 357     # print "  ext = JPG\n";
 358     $lastname = `basename $last .JPG`;
 359 } else {
 360     # print "  ext = png\n";
 361     $lastname = `basename $last .png`;
 362 }
 363 chop($lastname);
 364
 365 for ($i = 0; $i <= $#imagelist; $i++) {
 366     $file = $imagelist[$i];
 367     # print "'$file'\n";
 368
 369     if ( $i > 0 ) {
 370         $prev = $imagelist[$i - 1];
 371     } else {
 372         $prev = "null";
 373     }
 374
 375     if ( $i < $#imagelist ) {
 376         $next = $imagelist[$i + 1];
 377     } else {
 378         $next = "null";
 379     }
 380
 381     if ( $file =~ m/\.jpg$/ ) {
 382         $linkname = `basename $file .jpg`;
 383         $ext = "jpg";
 384     } elsif ( $file =~ m/\.JPG$/ ) {
 385         $linkname = `basename $file .JPG`;
 386         $ext = "JPG";
 387     } else {
 388         $linkname = `basename $file .png`;
 389         $ext = "png";
 390     }
 391     chop($linkname);
 392     $nice_name = $linkname;
 393     $nice_name =~ s/\_/ /g;
 394
 395     if ( $prev =~ m/\.jpg$/ ) {
 396         # print "  ext = jpg\n";
 397         $prevname = `basename $prev .jpg`;
 398     } elsif ( $prev =~ m/\.JPG$/ ) {
 399         # print "  ext = JPG\n";
 400         $prevname = `basename $prev .JPG`;
 401     } else {
 402         # print "  ext = png\n";
 403         $prevname = `basename $prev .png`;
 404     }
 405     chop($prevname);
 406
 407     if ( $next =~ m/\.jpg$/ ) {
 408         $nextname = `basename $next .jpg`;
 409     } elsif ( $next =~ m/\.JPG$/ ) {
 410         $nextname = `basename $next .JPG`;
 411     } else {
 412         $nextname = `basename $next .png`;
 413     }
 414     chop($nextname);
 415
 416     $outfile = "$link/$linkname.html";
 417
 418     open( OUT, ">$outfile" );
 419     print OUT <<EOF;
 420
 421 <HTML>
 422
 423 <HEAD>
 424   <TITLE>$linkname.$ext</TITLE>
 425 </HEAD>
 426
 427 <!-- <BODY BGCOLOR="#000000" ALINK="#000000" VLINK="#000000" LINK="#000000" TEXT="#FFFFFF"> -->
 428 <BODY>
 429
 430 <A HREF="$firstname.html">[First]</A>
 431 EOF
 432
 433     if ( $prevname ne "null" ) {
 434         print OUT "<A HREF=\"$prevname.html\">[Previous]</A>\n";
 435     } else {
 436         print OUT "[Previous]\n";
 437     }
 438
 439     if ( $nextname ne "null" ) {
 440         print OUT "<A HREF=\"$nextname.html\">[Next]</A>\n";
 441     } else {
 442         print OUT "[Next]\n";
 443     }
 444
 445     print OUT <<EOF;
 446 <A HREF="$lastname.html">[Last]</A>
 447
 448 <TABLE ALIGN=CENTER>
 449   <TR>
 450   <TD ALIGN=CENTER>
 451   <FONT SIZE=+1>
 452   $nice_name
 453   </FONT>
 454   </TD>
 455   </TR>
 456
 457   <TR>
 458   <TD ALIGN=CENTER>
 459   <FONT SIZE=-1>
 460 EOF
 461
 462     if ( -f "$src/$linkname.txt" ) {
 463         # print OUT "<BR>\n";
 464         open( IN, "<$src/$linkname.txt" );
 465         while ( <IN> ) {
 466             print OUT $_;
 467         }
 468         close( IN );
 469     }
 470
 471     print OUT <<EOF;
 472   </FONT>
 473   </TD>
 474   </TR>
 475
 476 </TABLE>
 477
 478 Click on the image for the full size version.
 479
 480 <TABLE ALIGN=CENTER>
 481   <TR>
 482   <TD ALIGN=CENTER>
 483   <A HREF="../$src/$linkname.$ext">
 484 EOF
 485
 486     if ( $use_large ) {
 487         print OUT "  <IMG SRC=\"../$ldir/$linkname.$ext\">\n";
 488     } else {
 489         print OUT "  <IMG SRC=\"../$src/$linkname.$ext\">\n";
 490     }
 491
 492     print OUT <<EOF;
 493   </TD>
 494   </A>
 495   </TR>
 496 </TABLE>
 497
 498 </BODY>
 499 </HTML>
 500 EOF
 501
 502     close( OUT );
 503 }
 504