#!/usr/bin/perl my $user = 'dannyman'; my $domain = 'toldme.com'; if( $ARGV[0] ) { $directory = $ARGV[0]; } else { $directory = './'; } chdir $directory or die "Couldn't go to directory $directory: $!"; select STDOUT; $| = 1; print STDOUT "$0 running on $directory:\n"; open( INDEX, ">index.html" ) or die "Couldn't open index.html: $!"; select INDEX; opendir(DIR, './') or die "Can't open $directory: $!\n"; foreach $file (readdir(DIR)) { if( -d $file && $file !~ /\./ ) { push @dirs, $file; } elsif( $file !~ /(^(\.|small-)|\.html$)/ ) { push @pix, $file; } elsif( $file !~ /(^.htaccess|\.html$|^\.+$)/ ) { if( $file =~ /^(\.|small-)(.*)/ && (! -e $2) ) { print STDOUT "Removing $file.\n"; # unlink $file; } } } print<<__HEAD;
"; } foreach $dir (sort @dirs) { print "[$dir]\n"; } if( @dirs ) { print "
"; } if( @pix ) { foreach $pic (sort @pix) { if(! -s "small-$pic" ) { print STDOUT "Generating small-$pic ... "; $spic = $pic; $spic =~ s/(\W)/\\$1/g; system "cp $spic small-$spic"; system "mogrify -geometry 150x150 small-$spic"; print STDOUT "DONE!\n"; } $size = (stat($pic))[7]; if(! -s ".$pic" ) { print "$pic"; print " ($size bytes)\n"; } else { $comment = '
'; print<<__THEAD;
$pic | ($size bytes) |
---|---|
__THEAD
open( COMMENT, ".$pic" ) or die "Couldn't open $pic: $!";
while( /gs; print "$comment\n |
"; } foreach $dir (sort @dirs) { print "[$dir]\n"; } if( @dirs ) { print "
"; } } foreach $dir (sort @dirs) { system "$0 $dir"; } $date = gmtime((stat('./'))[9]); print<<__TAIL;Parent Directory
Pictures
H O M E