Keep pushing the limits.

journal
all

SoML excited dreams runes YRUU ultimate KTRU skate sleepy nihongo

Rob is 20,117 days old today.

       Mar 2006
          01 02 03 04 
 05 06 07 08 09 10 11 
 12 13 14 15 16 17 18 
 19 20 21 22 23 24 25 
 26 27 28 29 30 31

       Apr 2006
                   01 
 02 03 04 05 06 07 08 
 09 10 11 12 13 14 15 
 16 17 18 19 20 21 22 
 23 24 25 26 27 28 29 
 30

       May 2006
    01 02 03 04 05 06 
 07 08 09 10 11 12 13 
 14 15 16 17 18 19 20 
 21 22 23 24 25 26 27 
 28 29 30 31

         2005        
  jan  feb  mar  apr  
  may  jun  jul  aug  
  sep  oct  nov  dec

         2006        
  jan  feb  mar  apr  
  may  jun  jul  aug  
  sep  oct  nov  dec

         2007        
  jan  feb  mar  apr  
  may  jun  jul  aug  
  sep  oct  nov  dec

  |< << more >>  >|

prev day next day

printable version

Entries this day: Dream Drizzly Today iPhoto_2_legible.pl showers_and_no_showers

Dream

9:20am JST Tuesday 11 April 2006 (day 13166)

Riding TJ Bike to some GET party or event or something, but didn't have clear directions on how to get there. Amanda (Goodie) was leading me for a bit, riding through some woods, generally around a lake, and then she was like, "turn left up ahead; you'll know where." and I thought "aight" then was worried and she said, "no, really, you will know where."

And soon enough I came across a STAR WARS convention, and knew that must be the place, given that one of the main reasons we met was through Charyl, a lover of all things S W. I turned toward the source of Darth Vader suits and Leah outfits, and cars made into various space ships to a police protected barricaded street where some guy was talking to a cop, asking about his legal rights to video tape the parade, then show it later to his friends. The cop was saying basically, "don't ask; just do it," and I crossed the street by tossing TJ Bike over one of the rails (there was a gap available on one side, but not the opposite) and then down into a ditch to get away from the throngs of Chewies and C3P0s.

The kid finished his recording and wanted to use my computer to do the editing, so I let him, but then there was some conflict because he wanted it for a long time and wouldn't let me (nor anyone) watch what he was doing, so I was like, "fine; you can't use my computer," and, knowing it was a dream, I mentally erased his data from my HD and erased him from my dream altogether.

That reminds me I had another dream-awareness moment earlier in the night, but don't remember the deets.

permalink

Drizzly

9:31am JST Tuesday 11 April 2006 (day 13166)

It's a rizzly drizzly day today, and I don't really want to go out into it. But watching the weather last night I think it's going to continue for a while. Super glad I got here before it started. But I "have to" be somewhere, so I'm wondering about buying a rain slicker and snagging some garbage bags to cover my bags and getting the flock outta here.

Part of my anxiety is that I don't have a feeling that I'm really helpful here; I can't say that I feel unwelcome, but a part of me worries that I'm welcome only through Japanese tatemae (sp).

I'm going to go try asking again if I can use the internet.

9:47am

I didn't ask: the door to that room is closed (first time I've seen it closed), and I don't see Masako, the apparent leader of the house.

permalink

Today

3:58pm JST Tuesday 11 April 2006 (day 13166)

Checked email today, and was able to get a Rob Update sent. I think I'm going to meditate now. Soon, at least. Okay, sometime today.

permalink

iPhoto 2 legible.pl

11:14am JST Tuesday 11 April 2006

Version 0.1 now complete; it includes documentation!!

5:49pm JST Tuesday 11 April 2006

Version 0.2 now complete. Thanks to the fact that Perl rules, the planned change was easy. (handling various working directory locations)

7:53am JST Wednesday 12 April 2006

Version 0.21 includes some better comments and variable name updates, to make the code more legible.

I noticed there's a bit more robnugen.com-specific code that's not easily cut out by deleting entire lines, but I doubt that anyone (especially who can't cut it out themselves) will actually really want this code, so I'm not going to even bother making it easy to cut out.

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.21  (comment and variable name tweaks)
#
# 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:
#    * Overall error trapping and reporting success / failures at the end
#    * Automagically 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 +109: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);
    }
}

#####################################################################
#
# 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 "About to rename files in $input_dir_item/\n";
	my $update_counter = 0;
	my $success_counter = 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 ++;
		if (rename "$input_dir_name$input_dir_item/$key", "$input_dir_name$input_dir_item/$image_name_changes{$key}") {
		    $success_counter ++;
		}
	    }
	}
	print $update_counter - $success_counter, " errors updating $update_counter files.\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;
	print "\nWe are updating pages in $page_dir/\n";
	@page_list = `ls "$page_dir"`;
	foreach my $page (@page_list) {
	    chop $page;
	    my $page_name = "$page_dir/$page";
	    $verbose && print "updating $page_name\n";
	    open (IN, "$page_name") or die "Can't open $page_name for reading";
	    local $/;     # $/ is the eoln marker.  This makes file reads be file slurps!
	    my $page_contents = <IN>;
	    close IN;

# 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|;
	    }
	    
	    open (OUT, ">$page_name") or die "Can't open $page_name for writing";
	    print OUT $page_contents;
	    close OUT;
	}
    }

##----------------------------------------------------------
    #
    # 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";

print "Updating index file $page_name\n";

#
	#    0: read the contents of the page
	#
	open (IN, "$page_name") or die "Can't open $page_name for reading";
	local $/;     # $/ is the eoln marker.  This makes file reads be file slurps!
	my $page_contents = <IN>;
	close IN;

#
	#    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
	#
	open (OUT, ">$page_name") or die "Can't open $page_name for writing";
	print OUT $page_contents;
	close OUT;

#
	#    3: rename the page according to %index_name_changes
	#
	my $new_page_name = "$input_dir_name$index_name_changes{$input_dir_item}";
	if (rename "$page_name", "$new_page_name") {
	    print "Renamed $page_name to $new_page_name successfully.\n";
	}
	else 
	{
	    print "\n\n **** PROBLEM renaming $page_name to $new_page_name. ****\n";
	}
    }
}

####################################################################################
#
#  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

showers and no showers

showers and no showers

Hello from Shima-shi!

TJ Bike and I have ridden about 4 or 500 kilometers (by rough estimate) basically
west by southwest of Tokyo.  We slept outside each night, and one of those nights I
slept in my tent.  Two nights and one full day I spent under a bridge due to rain;
thankfully I had been warned about the impending shower by some people I talked to
the previous day!

The other nights were spent next to a rest stop, in a park, and next to a field,
respectively.  No tent, but definitely sleeping bag; it's been cold!!

For that 6-day stretch, I had no shower, and my food intake was a bit sketchy. 
After finishing the Power Bars donated by Carl, (and peanuts donated by Jesse,) I
ate granola cereal most of the time.  I worked it out at about 100 kilocalories for
100 yen. I ate at McDonald's several times (cheap with free electricity for
journaling on my computer).

At one point, I was able to get free internet access at a small school to teach
people how to use PCs.

The past 2 nights I have been at Koji's house; he was one of my students in the
class called Fantastic Rabbits on the recent PB voyage.  I'm really thankful for
his (and Masako's) hospitality!

I have basically recovered now, but my legs were certainly sore upon arrival.  My
first thoughts when asked, "how was it?" were something like, I won't be
considering riding around the world anytime soon, but I just said, "longer than I
expected."

Greeted by Koji, his wife, and then surprisingly, by a native English speaker!!  I
wondered if they had a previously unmentioned daughter, but it turns out she was
WWOOFing on their farm for a few days during her visit to Japan.

Anne is from Maine, and this summer will be living on a farm with no running water,
no electricity, and _no internet_.  The nearest town is 2 hours away.  I hope it's
a great experience!

For the past two days, it has been rainy; I'm thankful to have arrived before the
drizzly cold weather started.  Soon I hope to be back on TJ Bike, headed toward
Kyoto (where Tomoko and Sumidasan said they would meet me for dinner!), though I
haven't worked out a schedule for that.  I'd like to help out on Koji's farm as
well; hopefully the rain stops in time for everything to happen in dry weather!

I took a few pictures, but right now have no way to get them online.  They've only
got dial-up access here.

Thank you for encouraging emails!

   I hope everyone is well.
     - Rob!

permalink

prev day next day