#!/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;
$user\'s Pictures: $directory
$directory
__HEAD
if( @dirs ) { print ""; }
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 "![](\"small-$pic\")
$pic";
print " ($size bytes)\n";
}
else {
$comment = '
';
print<<__THEAD;
| $pic | ($size bytes)
|
|---|
|
|
__THEAD
open( COMMENT, ".$pic" ) or die "Couldn't open $pic: $!";
while( ) { $comment .= $_; }
$comment =~ s/\n\n/ /gs;
print "$comment\n |
\n";
}
}
if( @dirs ) { print ""; }
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
This directory last changed $date
<$user\@$domain>
__TAIL