Keep pushing the limits.

journal
all

SoML excited dreams runes YRUU ultimate KTRU skate sleepy nihongo

Rob is 20,117 days old today.

Entries this day: Dreams Farm iPhoto_2_legible.pl

Dreams

2:40pm JST Wednesday 12 April 2006 (day 13167)

I didn't write these when I woke up, but snippets remain in my brain:

I was teaching English outside at a picnic table, and Hitomi sat beside me, to my right. I was surprised to see her again, and was sure she would try something that would distract me. She tried to give me head and I was like, "whoah!" and made her back off; I was totally freaked out. She was all upset and I wouldn't talk to her for a while. I thought for a bit, then came back and decided to finish the lesson as best I could, and showed a man some muffin trays with rice and oatmeal in them and he was supposed to finish some algebraic test with them.

- - - -

Riding a roller coaster, and when it finished, I was surprised to find there had been only 2 other people in the train. All the seats behind them were empty. We put the train away by me pushing it back onto an offramp, and needed to lock it in place, but the guys weren't able to figure it out, so I was like, " ", but I didn't speak their language and I ended up just doing it myself, though it was a bit of a pain to hold the train in place with one hand and fish out the rope with the other. I was finally able to do it, and they were like, "ohh!!" cause they saw what they needed to have done.

permalink

Farm

2:46pm JST Wednesday 12 April 2006 (day 13167)

Went to the farm for about 3 hours of work between 9 and noon. Not that hard at all, actually. Just moving some grainy gray gravel down the hill to put a nice slope off the asphalt to the dirt, then sweeping some other little rocks off the asphalt, then moving some bamboo and brush and shit to a pile at the top of the hill.

Rain was predicted by Koji and Tony, so we headed back, ate lunch, and I sent a happy birthday message to janette, who wrote me back! Great to hear she is doing well, and moving to Austin soooon!

I answered a few more emails, including a little volley with Kazzah, but then AO Hell kicked me off while I was reading about Apple's iLife '06, and noticing that the biggest upgrades were to iPhoto, which may in fact have completely made my little utility unuseable or unnecessary. I may not release it any further than my journal. We shall see.

4:35pm JST Wednesday 12 April 2006

We went back again for about 30 minutes, until it actually started to rain, although now it seems to be abating. I'm going to work on iPhoto_2_legible again. I seem to be addicted.

permalink

iPhoto 2 legible.pl

6:01pm JST Wednesday 12 April 2006 (day 13167)

Version 0.3 has improved error trapping and reporting.

Please note: I have turned angle brackets into < and > in this .html file with the hopes that they will show up in the form below in a way that can just be cut-n-pasted to your local text editor.

#!/usr/bin/perl

#####################################################################
#
# iPhoto_2_legible.pl: convert numeric image names to human-readable ones
# version 0.3  (better error trapping and reporting)
#
# Copyright (C) 2006 Rob Nugen, iPhoto_2_legible@robnugen.com
# 
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
# 
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# General Public License for more details.
# 
# You should have received a copy of the GNU General Public License along
# with this program; if not, write to the Free Software Foundation, Inc.,
# 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
#
#####################################################################

#####################################################################
#
#  This code is supposed to solve the problem of iPhoto (at least
#  until version 4.0.3) using 0.jpg, 2.jpg, 3.jpg, ... as filenames
#  when it writes a photo album for the web.
#
#  The basic idea is to use the image titles as the image names.  It
#  removes any messy punctuation, converts spaces into underscores,
#  then updates the .html files to use the new names.  If you need
#  to tweak the name conversion, do it at STEP 2.
#
#  However, I *don't* want to use the album name as the filename for
#  the main index file to the album.  So this code converts that name
#  to "index.shtml"; therefore visiting http://domain.com/album_name/
#  will NOT give a directory listing.
#  
#  Starting with version 0.1 of this code, it also adds to each index
#  page a webserver pre-processor line, quite specific to my domain,
#  and probably not useful for anyone else.  I have labeled two
#  sections of code that should be removed in the likely event you
#  don't want this functionality.  Search for "BEGIN robnugen.com"
#
#  (( If you *do* want this functionality, but need to change it for
#  your site, search for "navigation_line" ))
#
#  As part of this, the main index pages are converted into .shtml
#  files.  A quick search for .shtml in this code will let you quickly
#  cut that out.
#
#  Also cut out the references to unique_nav_id, though they won't
#  hurt anything if left in.  (They'll just be a little annoying!)
#
#  THINGS TO DO:
#
#  These will probably never get done, but they'd be nice:
#    * Optionally loading the updated index file in browser of choice
#
#  The author can be reached at iPhoto_2_legible@robnugen.com
#
#####################################################################

use strict;

my ($input_dir_name,$unique_nav_id);

my (@input_dir_contents,%image_name_changes,%index_name_changes);

my $verbose = 0;

undef %image_name_changes;
undef %index_name_changes;

#####################################################################
#
# STEP 0 = error checking
#
#####################################################################
unless (($input_dir_name = $ARGV[0]) && ($unique_nav_id = $ARGV[1])) {
    print "usage: $0 iPhoto-created_directory_name unique_nav-id\n";
    print "\n";
    print "  unique_nav-id  must match an id in ~/setup_journal/navigation_definitions.txt\n";
    print "\n";
    print "\n";
    exit;
}

# If input_dir_name started with leading slash, assume it's a fully
# qualified name.  Otherwise, start with the local directory
unless ($input_dir_name =~ /^\//) {
    my $working_dir = "$ENV{PWD}/";
    $input_dir_name = $working_dir . $input_dir_name;
}

# Add a final / unless it's there
$input_dir_name .= "/" unless ($input_dir_name =~ /\/$/);

unless (-d $input_dir_name) {
    print "can't find $input_dir_name\n";
    exit;
}

##--- BEGIN robnugen.com specific code section 1 of 2 ---
my $navigation_line = "";

print "We are processing $input_dir_name\n";
print "\n$navigation_line\n";

########
## Make sure the navigation line is right
########

print "\nIs this correct?  (y/n/q)\n";
my $key = getc(STDIN);  # reads a single key after enter is typed

if ($key =~ /n/i) {  # if user specifically enters 'n', run emacs to edit the offending code
    # -q = don't read startup files
    # +LINE:COL = start cursor here
    # $0 is perl-supplied filename of this program
    # -f = run emacs function
    exec("emacs -q +108:108 $0 -f normal-erase-is-backspace-mode -f font-lock-mode -f recenter");   # replaces this program with emacs
}

unless ($key =~ /y/i) { # 'y' continues execution.  Any other key (or null) exits
    exit;
}
##--- END robnugen.com specific code section 1 of 2 ---

@input_dir_contents = `ls "$input_dir_name"`;

#####################################################################
#
# STEP 1
#
# First we need to find all the .html files in the main directory and
# extract name-change info from them.
#
#####################################################################
foreach my $input_dir_item (@input_dir_contents) {
    chop $input_dir_item;   # remove the CR from the end
    my $name = "$input_dir_name$input_dir_item";
    if ($name =~ /.html$/) {
	print "Extracting name-change info from $name\n";
	&update_hash_of_changes($name);
	&check_for_index_name_updates($name);
    }
}
{
    my $num_keys = keys %image_name_changes;
    print "We plan to rename $num_keys files.\n\n\n";
}

#####################################################################
#
# STEP 2
#
# Edit the titles so they'll make filenames more likely to work online.
#
#####################################################################
foreach my $key (keys %image_name_changes) {
    $image_name_changes{$key} =~ s/ /_/g;               # space => underscore
    $image_name_changes{$key} =~ s/(,|\'|:|$|$)//g;   # drop any , ' : ( or )
    $image_name_changes{$key} .= ".jpg";                # add .jpg to the end
}

#####################################################################
#
# STEP 3
#
# Check to see if there are any repeated titles, which would result in
# lost (overwritten) files when they are renamed.
#
#####################################################################
my %reversed_hash = reverse %image_name_changes ;
my %no_duplicate_values_hash = reverse %reversed_hash;

my $duplicate_names = 0;

while (my ($key, $value) = each %image_name_changes) {
    unless (exists $no_duplicate_values_hash{$key}) {
	print "$value is a repeated filename.\n";
	$duplicate_names = 1;
    }
}

if ($duplicate_names) {
    print "Some names are duplicated; fix these then run again.\n";
    exit;
}

if ($verbose) {
    print "These are the changes we plan to make:\n";
    foreach my $key (sort keys %image_name_changes) {
	print "$key = $image_name_changes{$key}\n";
    }
}

# exit;
# past this point, files start getting renamed and edited

#####################################################################
#
# STEP 4
#
# This is where the main work is done.  We loop through the contents
# of the supplied directory name and do different renames depending on
# what type of thing they are.
#
# This only works on iPhoto-created files and directories
#
#####################################################################
foreach my $input_dir_item (@input_dir_contents) {

if ($verbose) {
	print "Now processing $input_dir_item\n";
    }
    
    ##----------------------------------------------------------
    #
    # If they end with -Images or -Thumbnails, then they are
    # directories with image filenames that need to be renamed
    #
    ##----------------------------------------------------------
    if ($input_dir_item =~ /-Images$|-Thumbnails$/) {
	print "Renaming files in $input_dir_name$input_dir_item/ ... ";
	my ($update_counter, $error_counter) = (0,0);
	foreach my $key (keys %image_name_changes) {
	    if (-f "$input_dir_name$input_dir_item/$key") # is it a file in the directory?
	    {
		$update_counter ++;
		unless (rename "$input_dir_name$input_dir_item/$key", "$input_dir_name$input_dir_item/$image_name_changes{$key}") {
		    $error_counter ++;
		}
	    }
	}
	if ($error_counter) {
	    print "\n\n $error_counter ERRORS updating $update_counter files in $input_dir_item/!!\n";
	}
	else
	{
	    print "success.\n";
	}
    }

##----------------------------------------------------------
    #
    # If it's the directory of pages, they need to be updated
    # internally according to %index_name_changes and %image_name_changes
    #
    ##----------------------------------------------------------
    elsif ($input_dir_item =~ /-Pages$/) {
	my $page_dir = "$input_dir_name$input_dir_item";
	my @page_list;
	my $page_contents;
	my ($update_counter, $error_counter) = (0,0);
	print "Updating pages in $page_dir/ ... ";
	@page_list = `ls "$page_dir"`;
	foreach my $page (@page_list) {
	    $update_counter ++;
	    chop $page;
	    my $page_name = "$page_dir/$page";
	    $verbose && print "updating $page_name\n";
	    if (open (IN, "$page_name")) {
		local $/;     # $/ is the eoln marker.  This makes file reads be file slurps!
		$page_contents = <IN>;
		close IN;
	    }
	    else
	    {
		print "\nERROR: Can't open $page_name for reading!";
		$error_counter ++;
	    }

# Figure out what N.jpg we are looking for; 
            # it should match the filename ImageN.html
	    my ($num) = $page_name =~ m/Image(\d+)\.html$/m;
	    my $old_filename = "$num.jpg";
	    my ($A, $B) = ($old_filename, $image_name_changes{$old_filename});

$page_contents =~ s/$A/$B/;

# change any occurences of index filename links in the page
	    foreach my $key (keys %index_name_changes) {
		my ($A, $B) = ($key, $index_name_changes{$key});
		$page_contents =~ s|$A|$B|;
	    }
	    
	    if (open (OUT, ">$page_name")) {
		print OUT $page_contents;
		close OUT;
	    }
	    else
	    {
		print "\nERROR: Can't open $page_name for writing!";
		$error_counter++;
	    }
	}
	if ($error_counter) {
	    print "\n\n $error_counter ERRORS updating $update_counter pages.\n";
	}
	else
	{
	    print "success.\n";
	}

}

##----------------------------------------------------------
    #
    # If they are index (.html) files, then we need to do three things:
    #    1: update internal filenames according to %index_name_changes
    #       and %image_name_changes
    #    2: add a line for .shtml navigation
    #    3: rename them according to %index_name_changes
    #
    ##----------------------------------------------------------
    elsif ($input_dir_item =~ /\.html$/) {
	my $page_name = "$input_dir_name$input_dir_item";
	my $page_contents;
	my $error_counter;

print "Updating index file $page_name ... ";

#
	#    0: read the contents of the page
	#
	if (open (IN, "$page_name")) {
	    local $/;     # $/ is the eoln marker.  This makes file reads be file slurps!
	    $page_contents = <IN>;
	    close IN;
	}
	else
	{
	    $error_counter ++;
	    print "\n\nERROR: Can't open $page_name for reading";
	}

#
	#    1: update internal filenames...
	#
	foreach my $old_filename (keys %image_name_changes) {
	    my ($A, $B) = ($old_filename, $image_name_changes{$old_filename});
	    $page_contents =~ s|/$A|/$B|;   # must match preceeding slash, else 0.jpg and
					    # 10.jpg will be changed into 0.jpg's new name
	}

foreach my $key (keys %index_name_changes) {
	    my ($A, $B) = ($key, $index_name_changes{$key});
	    $page_contents =~ s|$A|$B|;
	}

#
	#    2: add a line for .shtml navigation
	#
##--- BEGIN robnugen.com specific code section 2 of 2 ---
	$page_contents =~ s|(<body[^>]+>)|$1\n$navigation_line|;
##--- END robnugen.com specific code section 2 of 2 ---

#
	#    *: write the contents of the page
	#
	if (open (OUT, ">$page_name")) {
	    print OUT $page_contents;
	    close OUT;
	}
	else
	{
	    $error_counter ++;
	    print "\n\nERROR: Can't open $page_name for writing";
	}

#
	#    3: rename the page according to %index_name_changes
	#
	my $new_page_name = "$input_dir_name$index_name_changes{$input_dir_item}";
	unless (rename "$page_name", "$new_page_name") {
	    $error_counter ++;
	    print "\n\nERROR renaming $page_name to $new_page_name.\n";
	}

#
        #    4: report success or failure
	#
	if ($error_counter) {
	    print "\nPROBLEMS encountered with $page_name (see above for details).\n";
	}
	else
	{
	    print "success.\n";
	}
    }
}

# Finished!  Show the directory listing of the input directory:
my $ls_command = "ls -l $input_dir_name";
print "\n\n> $ls_command\n";
exec ("$ls_command");

####################################################################################
#
#  sub check_for_index_name_updates
#
#  Creates index-name change information.
#
#  Basically I want http://domain.com/unique_name/ to NOT give a
#  directory listing, and want files to be .shtml so they'll be
#  server-side processed (to add a navigation bar at the top).
#
#  /sample/dir/unique_name/unique_name.html  ->  /sample/dir/unique_name/index.shtml
#  /sample/dir/unique_name/PageN.html        ->  /sample/dir/unique_name/PageN.shtml
#
####################################################################################
sub check_for_index_name_updates {

my ($name) = @_;
    my @split_name = split ('/', $name);
    my $filename = pop @split_name;          # We only want the filename after the final /
    if ($filename =~ /^Page\d+\.html/) {
	    my $newname = $filename;
	    $newname =~ s/\.html/.shtml/;
	    $index_name_changes{$filename} = $newname;
	} 
	else
	{
	    $index_name_changes{$filename} = "index.shtml";
	}
}

####################################################################################
#
#  sub update_hash_of_changes
#
#  This creates/appends a hash that will solve the core problem of renaming
#  brain-dead named files into files with human-readable names.
#
####################################################################################
sub update_hash_of_changes {
    my ($name) = @_;                # the filename where we'll get the HTML that relates N.jpg to better filenames.

my $index_contents;  # the HTML of the iPhoto-created main page.

open (IN, "$name") or die "Can't open $name for reading";
    local $/;     # $/ is the eoln marker.  This makes file reads be file slurps!
    $index_contents = <IN>;
    close IN;

my @local_array = $index_contents =~ m/(\d+\.jpg)["><\/a>\sb]*r><b>([^<]*)<\/b>/g;

# above, @local_array becomes a list of pairs:
    # ("0.jpg", "title for 0th image",
    #  "1.jpg", "title for 1st image",
    #  "2.jpg", "title for 2nd image", etc )

%image_name_changes = (%image_name_changes, @local_array);

}

And, to be sure google indexes it:

#!/usr/bin/perl

#####################################################################
#
# iPhoto_2_legible.pl: convert numeric image names to human-readable ones
# version 0.3  (better error trapping and reporting)
#
# Copyright (C) 2006 Rob Nugen, iPhoto_2_legible@robnugen.com
# 
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
# 
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# General Public License for more details.
# 
# You should have received a copy of the GNU General Public License along
# with this program; if not, write to the Free Software Foundation, Inc.,
# 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
#
#####################################################################

#####################################################################
#
#  This code is supposed to solve the problem of iPhoto (at least
#  until version 4.0.3) using 0.jpg, 2.jpg, 3.jpg, ... as filenames
#  when it writes a photo album for the web.
#
#  The basic idea is to use the image titles as the image names.  It
#  removes any messy punctuation, converts spaces into underscores,
#  then updates the .html files to use the new names.  If you need
#  to tweak the name conversion, do it at STEP 2.
#
#  However, I *don't* want to use the album name as the filename for
#  the main index file to the album.  So this code converts that name
#  to "index.shtml"; therefore visiting http://domain.com/album_name/
#  will NOT give a directory listing.
#  
#  Starting with version 0.1 of this code, it also adds to each index
#  page a webserver pre-processor line, quite specific to my domain,
#  and probably not useful for anyone else.  I have labeled two
#  sections of code that should be removed in the likely event you
#  don't want this functionality.  Search for "BEGIN robnugen.com"
#
#  (( If you *do* want this functionality, but need to change it for
#  your site, search for "navigation_line" ))
#
#  As part of this, the main index pages are converted into .shtml
#  files.  A quick search for .shtml in this code will let you quickly
#  cut that out.
#
#  Also cut out the references to unique_nav_id, though they won't
#  hurt anything if left in.  (They'll just be a little annoying!)
#
#  THINGS TO DO:
#
#  These will probably never get done, but they'd be nice:
#    * Optionally loading the updated index file in browser of choice
#
#  The author can be reached at iPhoto_2_legible@robnugen.com
#
#####################################################################

use strict;

my ($input_dir_name,$unique_nav_id);

my (@input_dir_contents,%image_name_changes,%index_name_changes);

my $verbose = 0;

undef %image_name_changes;
undef %index_name_changes;

#####################################################################
#
# STEP 0 = error checking
#
#####################################################################
unless (($input_dir_name = $ARGV[0]) && ($unique_nav_id = $ARGV[1])) {
    print "usage: $0 iPhoto-created_directory_name unique_nav-id\n";
    print "\n";
    print "  unique_nav-id  must match an id in ~/setup_journal/navigation_definitions.txt\n";
    print "\n";
    print "\n";
    exit;
}

# If input_dir_name started with leading slash, assume it's a fully
# qualified name.  Otherwise, start with the local directory
unless ($input_dir_name =~ /^\//) {
    my $working_dir = "$ENV{PWD}/";
    $input_dir_name = $working_dir . $input_dir_name;
}

# Add a final / unless it's there
$input_dir_name .= "/" unless ($input_dir_name =~ /\/$/);

unless (-d $input_dir_name) {
    print "can't find $input_dir_name\n";
    exit;
}

##--- BEGIN robnugen.com specific code section 1 of 2 ---
my $navigation_line = "<!--#include virtual=\"/cgi-local/draw_navigation_for_static_pages.pl?0main\&travel\&japan\&TJBike\&$unique_nav_id\" -->";

print "We are processing $input_dir_name\n";
print "\n$navigation_line\n";

########
## Make sure the navigation line is right
########

print "\nIs this correct?  (y/n/q)\n";
my $key = getc(STDIN);  # reads a single key after enter is typed

    
if ($key =~ /n/i) {  # if user specifically enters 'n', run emacs to edit the offending code
    # -q = don't read startup files
    # +LINE:COL = start cursor here
    # $0 is perl-supplied filename of this program
    # -f = run emacs function
    exec("emacs -q +108:108 $0 -f normal-erase-is-backspace-mode -f font-lock-mode -f recenter");   # replaces this program with emacs
}

unless ($key =~ /y/i) { # 'y' continues execution.  Any other key (or null) exits
    exit;
}
##--- END robnugen.com specific code section 1 of 2 ---

@input_dir_contents = `ls "$input_dir_name"`;

#####################################################################
#
# STEP 1
#
# First we need to find all the .html files in the main directory and
# extract name-change info from them.
#
#####################################################################
foreach my $input_dir_item (@input_dir_contents) {
    chop $input_dir_item;   # remove the CR from the end
    my $name = "$input_dir_name$input_dir_item";
    if ($name =~ /.html$/) {
	print "Extracting name-change info from $name\n";
	&update_hash_of_changes($name);
	&check_for_index_name_updates($name);
    }
}
{
    my $num_keys = keys %image_name_changes;
    print "We plan to rename $num_keys files.\n\n\n";
}

#####################################################################
#
# STEP 2
#
# Edit the titles so they'll make filenames more likely to work online.
#
#####################################################################
foreach my $key (keys %image_name_changes) {
    $image_name_changes{$key} =~ s/ /_/g;               # space => underscore
    $image_name_changes{$key} =~ s/(,|\'|:|\(|\))//g;   # drop any , ' : ( or )
    $image_name_changes{$key} .= ".jpg";                # add .jpg to the end
}

#####################################################################
#
# STEP 3
#
# Check to see if there are any repeated titles, which would result in
# lost (overwritten) files when they are renamed.
#
#####################################################################
my %reversed_hash = reverse %image_name_changes ;
my %no_duplicate_values_hash = reverse %reversed_hash;

my $duplicate_names = 0;

while (my ($key, $value) = each %image_name_changes) {
    unless (exists $no_duplicate_values_hash{$key}) {
	print "$value is a repeated filename.\n";
	$duplicate_names = 1;
    }
}

if ($duplicate_names) {
    print "Some names are duplicated; fix these then run again.\n";
    exit;
}

if ($verbose) {
    print "These are the changes we plan to make:\n";
    foreach my $key (sort keys %image_name_changes) {
	print "$key = $image_name_changes{$key}\n";
    }
}

# exit;
# past this point, files start getting renamed and edited

#####################################################################
#
# STEP 4
#
# This is where the main work is done.  We loop through the contents
# of the supplied directory name and do different renames depending on
# what type of thing they are.
#
# This only works on iPhoto-created files and directories
#
#####################################################################
foreach my $input_dir_item (@input_dir_contents) {

    if ($verbose) {
	print "Now processing $input_dir_item\n";
    }
    
    ##----------------------------------------------------------
    #
    # If they end with -Images or -Thumbnails, then they are
    # directories with image filenames that need to be renamed
    #
    ##----------------------------------------------------------
    if ($input_dir_item =~ /-Images$|-Thumbnails$/) {
	print "Renaming files in $input_dir_name$input_dir_item/ ... ";
	my ($update_counter, $error_counter) = (0,0);
	foreach my $key (keys %image_name_changes) {
	    if (-f "$input_dir_name$input_dir_item/$key") # is it a file in the directory?
	    {
		$update_counter ++;
		unless (rename "$input_dir_name$input_dir_item/$key", "$input_dir_name$input_dir_item/$image_name_changes{$key}") {
		    $error_counter ++;
		}
	    }
	}
	if ($error_counter) {
	    print "\n\n $error_counter ERRORS updating $update_counter files in $input_dir_item/!!\n";
	}
	else
	{
	    print "success.\n";
	}
    }

    ##----------------------------------------------------------
    #
    # If it's the directory of pages, they need to be updated
    # internally according to %index_name_changes and %image_name_changes
    #
    ##----------------------------------------------------------
    elsif ($input_dir_item =~ /-Pages$/) {
	my $page_dir = "$input_dir_name$input_dir_item";
	my @page_list;
	my $page_contents;
	my ($update_counter, $error_counter) = (0,0);
	print "Updating pages in $page_dir/ ... ";
	@page_list = `ls "$page_dir"`;
	foreach my $page (@page_list) {
	    $update_counter ++;
	    chop $page;
	    my $page_name = "$page_dir/$page";
	    $verbose && print "updating $page_name\n";
	    if (open (IN, "$page_name")) {
		local $/;     # $/ is the eoln marker.  This makes file reads be file slurps!
		$page_contents = <IN>;
		close IN;
	    }
	    else
	    {
		print "\nERROR: Can't open $page_name for reading!";
		$error_counter ++;
	    }

	    # Figure out what N.jpg we are looking for; 
            # it should match the filename ImageN.html
	    my ($num) = $page_name =~ m/Image(\d+)\.html$/m;
	    my $old_filename = "$num.jpg";
	    my ($A, $B) = ($old_filename, $image_name_changes{$old_filename});

	    $page_contents =~ s/$A/$B/;

	    # change any occurences of index filename links in the page
	    foreach my $key (keys %index_name_changes) {
		my ($A, $B) = ($key, $index_name_changes{$key});
		$page_contents =~ s|$A|$B|;
	    }
	    
	    if (open (OUT, ">$page_name")) {
		print OUT $page_contents;
		close OUT;
	    }
	    else
	    {
		print "\nERROR: Can't open $page_name for writing!";
		$error_counter++;
	    }
	}
	if ($error_counter) {
	    print "\n\n $error_counter ERRORS updating $update_counter pages.\n";
	}
	else
	{
	    print "success.\n";
	}

    }

    ##----------------------------------------------------------
    #
    # If they are index (.html) files, then we need to do three things:
    #    1: update internal filenames according to %index_name_changes
    #       and %image_name_changes
    #    2: add a line for .shtml navigation
    #    3: rename them according to %index_name_changes
    #
    ##----------------------------------------------------------
    elsif ($input_dir_item =~ /\.html$/) {
	my $page_name = "$input_dir_name$input_dir_item";
	my $page_contents;
	my $error_counter;

	print "Updating index file $page_name ... ";

	#
	#    0: read the contents of the page
	#
	if (open (IN, "$page_name")) {
	    local $/;     # $/ is the eoln marker.  This makes file reads be file slurps!
	    $page_contents = <IN>;
	    close IN;
	}
	else
	{
	    $error_counter ++;
	    print "\n\nERROR: Can't open $page_name for reading";
	}

	#
	#    1: update internal filenames...
	#
	foreach my $old_filename (keys %image_name_changes) {
	    my ($A, $B) = ($old_filename, $image_name_changes{$old_filename});
	    $page_contents =~ s|/$A|/$B|;   # must match preceeding slash, else 0.jpg and
					    # 10.jpg will be changed into 0.jpg's new name
	}

	foreach my $key (keys %index_name_changes) {
	    my ($A, $B) = ($key, $index_name_changes{$key});
	    $page_contents =~ s|$A|$B|;
	}

	#
	#    2: add a line for .shtml navigation
	#
##--- BEGIN robnugen.com specific code section 2 of 2 ---
	$page_contents =~ s|(<body[^>]+>)|$1\n$navigation_line|;
##--- END robnugen.com specific code section 2 of 2 ---

	#
	#    *: write the contents of the page
	#
	if (open (OUT, ">$page_name")) {
	    print OUT $page_contents;
	    close OUT;
	}
	else
	{
	    $error_counter ++;
	    print "\n\nERROR: Can't open $page_name for writing";
	}


	#
	#    3: rename the page according to %index_name_changes
	#
	my $new_page_name = "$input_dir_name$index_name_changes{$input_dir_item}";
	unless (rename "$page_name", "$new_page_name") {
	    $error_counter ++;
	    print "\n\nERROR renaming $page_name to $new_page_name.\n";
	}

	#
        #    4: report success or failure
	#
	if ($error_counter) {
	    print "\nPROBLEMS encountered with $page_name (see above for details).\n";
	}
	else
	{
	    print "success.\n";
	}
    }
}

# Finished!  Show the directory listing of the input directory:
my $ls_command = "ls -l $input_dir_name";
print "\n\n> $ls_command\n";
exec ("$ls_command");

####################################################################################
#
#  sub check_for_index_name_updates
#
#  Creates index-name change information.
#
#  Basically I want http://domain.com/unique_name/ to NOT give a
#  directory listing, and want files to be .shtml so they'll be
#  server-side processed (to add a navigation bar at the top).
#
#  /sample/dir/unique_name/unique_name.html  ->  /sample/dir/unique_name/index.shtml
#  /sample/dir/unique_name/PageN.html        ->  /sample/dir/unique_name/PageN.shtml
#
####################################################################################
sub check_for_index_name_updates {

    my ($name) = @_;
    my @split_name = split ('/', $name);
    my $filename = pop @split_name;          # We only want the filename after the final /
    if ($filename =~ /^Page\d+\.html/) {
	    my $newname = $filename;
	    $newname =~ s/\.html/.shtml/;
	    $index_name_changes{$filename} = $newname;
	} 
	else
	{
	    $index_name_changes{$filename} = "index.shtml";
	}
}

####################################################################################
#
#  sub update_hash_of_changes
#
#  This creates/appends a hash that will solve the core problem of renaming
#  brain-dead named files into files with human-readable names.
#
####################################################################################
sub update_hash_of_changes {
    my ($name) = @_;                # the filename where we'll get the HTML that relates N.jpg to better filenames.

    my $index_contents;  # the HTML of the iPhoto-created main page.

    open (IN, "$name") or die "Can't open $name for reading";
    local $/;     # $/ is the eoln marker.  This makes file reads be file slurps!
    $index_contents = <IN>;
    close IN;

    my @local_array = $index_contents =~ m/(\d+\.jpg)["><\/a>\sb]*r><b>([^<]*)<\/b>/g;

    # above, @local_array becomes a list of pairs:
    # ("0.jpg", "title for 0th image",
    #  "1.jpg", "title for 1st image",
    #  "2.jpg", "title for 2nd image", etc )

    %image_name_changes = (%image_name_changes, @local_array);

}

permalink