Entries this day: Dream To_do_lists_combined iPhoto_2_legible.pl nihongo

Dream

2:50am JST Wednesday 17 May 2006 (day 13202)

Working for a survey company, but with VAX equipment, I saw little snippets of log files and knew a user was going to have a problem, and I knew the solution, but I had just crapped my pants and had to go clean myself up. IJust as I was about to go to the shower room, the problem with the user hit and people were dumbfounded and I stopped and went in and was like, "right this is what happened" and they were like, "who died?" and I was like, "me; now shut up and I'll show you what happened" but it had been a while since I used the system so I had to call tech support to see what hardwae to use to login to the system. They said the DEC terminals would be fine, and I was like, "aright" caused I had used them in college. なつかし

Showed them how to solve the problem, then headed to the head and realized I was on the next voyage of PB, and we set sail on 12 September, which, after I got cleaned up and settled in my room I noted and was like, "woah! Today is Captain Costas' birthday!" and went up to give him greetings and best wishes. I was quite happy to be on the voyage with him again, althought there was some confusion as to who was the previous captain; they were saying Costas was repeating this time, but the previous time for me was the othe captin who I didn't like and didn't even know the name

Went up and some other people knew it was is birthday and were having a celebration / ceremony and he was busy piloting through a pretty tight channel, but still smiling nd waving for everyone who came up.

To get to the helm, I had to go through a crew area and I saw a woman strapping herself into a swinging suspended hammock thing with three seatbelts that she systematically locked down to get hrself in a little coccoon of safety. Walked past her and hoped I wouldn't wake her, but still bumped her hammock a bit.

To do lists combined

3:13am JST Wednesday 17 May 2006 (day 13202)

I have combined my To Do list that I wrote under the bridge, and the todo list I had written before the meditation, basically all of which seem to be important, except perhaps asking Zac for a free registration to WoW; with my newfound sense around money, I may buy another one. But I'll still ask him if the one I bought is supposed to work with the upgrade.

plus adding a few extra items, of course.

Things to do online and otherwise

* = finished; bold equals higher priority / easier to knock off the list

1. * clean up breakfast dishes

2. * meditate

3. * wash rug

4. * dig through clear plastic thing for things to do

5. * dig through books, papers in books, paper in backpack for things to transcribe online

6. figure out what I have transcribed from PB 52 journal

7. list below what I need to transcribe from PB 52 journal

8. transcribe

   1. * letter to 16800 day old Rob

   2. * funny brain emergency emails

      1. * page 1
      2. * page 2
      3. * page 3

   3. * なら from ２００５年０６月２２日（水）

   4. Japanese journal from PB 52

9. * upload funny brain emergency emails story to ２００４年１２月０５日

10. * upload nara to 22 June 2005

11. * upload 16800 letter to 17 Mar 2006

12. * figure out when I'll be 16800 days old (24 March 2016)

13. * copy 16800 letter to 24 March 2016

14. * process need_to_upload directory

15. * look for Bushido by Imazo Nitobe 武士道

16. * look for Erika S snail addy

17. * Get snail addy for Genkiman Dan

18. X make a consistent cronjob thing to send me the log files (need to rethink how it's done; basically need to send exactly the files that have been created that day)

19. promote http://labs.zarate.org/passwd/ cause it's cool

20. change my passwords (starting with yahoo.com)

21. * check pics on 14 October

22. write card to あかね

23. mail November card to Delphine

24. mail card to あかね

25. * figure out why I remember updating the todo list from yesterday, but don't see the changes here on my local machine. (shrug)

26. write to Saki

27. check/fix virtual string of final_pb52 pics

28. see what pictures have been uploaded

    1. 2005_dec_17_packing-spocha

    2. final_pb52

    3. inline_journal_images

    4. inline_journal_images/dan_lately/

    5. inline_journal_images/fkh_2004_sep_21/

    6. inline_journal_images/fooj/

    7. inline_journal_images/official_byebye_party/

    8. inline_journal_images/olivia_byebye/

    9. inline_journal_images/rob_in_suit/

    10. inline_journal_images/secret_byebye_party/

    11. inline_journal_images/thumbs/

    12. janette

    13. japan

    14. kyoto_nara_kamakura

    15. nooj

    16. not_sure_what_these_are

    17. the_rest

    18. thumbs

    19. tjbike

    20. tjbike.bak

29. delete these from my local /journal/images directory

30. create more albums in images/need_to_upload

31. Write about my trip from Kobe to the meditation center, including pictures, if any are taken)

32. Uploading more pictures from my hard drive:

    • from Kobe to meditation center

    • those that are in folders on the desktop (marble track, moving from me-an-Wende's house, etc)

    • the final final ones from PB 52

    • the final final final ones from PB 49 (unless I did them already)

    • the ones from Koji's farm

    • from riding to Koji's farm (unless those are done)

33. Incorporating them into my journal entries from those occassions.

34. Updating iPhoto to iPhoto 6 (if it's a free upgrade, which I think it is)

35. Testing the output of saving for web and updating (or hopefully scrapping!) iPhoto_2_legible.pl as necessary.

36. write birthday reminder code

37. * Do any necessary maintenance on TJ Bike. Buy an allen wrench that will tighten the pedal bolt (my left pedal fell off last night on the way to Pia's from Richard's work, and is loose already)

38. * Logging the receipts I have dutifully collected, noting that (including 20,000 yen donation from Richard, and 1,000 yen he gave me to buy bread for last night, but I ended up buying 1,050 yen worth, and kicking in the extra 50 yen myself. (Damn, and I left the extras (the non-baguettes) at Pia's house. I hope ひで ends up enjoying them.)) I now have 23,580 yen.

39. * Updating other system software on my computer (though I think it's all up to date at this point)

40. X (possibly) trying to figure out why Virex won't get new virus definitions (has a subscription run out??)

41. * Write a State of My Life Address (post meditation version)

42. move pictures online

43. read email

44. research auto-geotagging camera

45. start looking into how to do googlemaps again. draw that red line!

46. look for official US govt info regarding Airplane Day

    archive it

47. make a note to look again in (each year for) 10 years

48. in 10 years, look up public school textbooks about Airplane Day

49. archive proof against govt version physics911, etc

50. add birthday field to Rob Updates db

51. add birthdays:

    1. Rei, May 2nd

    2. Slavena, 17 February

52. write comic snagger with on/off switch

53. allow Rob Updates to change directory

54. think about writing site_visualizer; look for a free version

55. look in to marketing Francois branded cups and shirts

56. write to Jimmy regarding Francois branding

57. offer to take teddybear Tomoko's teddybear up Mt Fuji

58. login to quicken/turbotax to do taxes.

59. Ask Zach from World of Where if I can get a registration code (I helped him find some bugs in his previous version of the software (and paid for a registration anyway after he gave me one free); perhaps if I can find bugs in the new version...)

60. Write a Rob Update

61. Decide where to go next if I continue TJ Biking: (basic ideas:

    1. * Nagoya to see Kaz

    2. X Nagano to see Eri

    3. ? somewhere near Fuji to see the peeps who I met on the last day of PB52

    4. ? (afterward, perhaps Odawara to meet Nachiko)

    5. ? northwest Tokyo to meet Alice and her husband

    6. back into Tokyo), OR escape the country OR plant myself somewhere.

62. Decide what to do next...

    Korea?

iPhoto 2 legible.pl

#!/usr/bin/perl ##################################################################### # # iPhoto_2_legible.pl: convert numeric image names to human-readable ones # version 0.31 (better error trapping and reporting; no "/" in image names) # # 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. # # http://www.gnu.org/copyleft/gpl.html # ##################################################################### ##################################################################### # # 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\&images\&YRUU\&$unique_nav_id\" -->"; # my $navigation_line = "<!--#include virtual=\"/cgi-local/draw_navigation_for_static_pages.pl?0main\&travel\&tjbike\&kyoto2006\&$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 ++; print "Couldn't rename $input_dir_name$input_dir_item/$key to $input_dir_name$input_dir_item/$image_name_changes{$key}"; } } } 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 { $error_counter ++; print "\nERROR: Can't open $page_name for reading!"; } # 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

nihongo

2006年5月17日（水）19時17分 (13202日目)

よかったら、さいきんウプロードした日記を読んで。

「車と足した」

「16800 日目の路武へ」