counter 1.10

• counter: 1.10 2004/05/04 19:16:32 ichiki Exp
  • add log-turn-over function.
  • specify $size_log to turn-over.

counter 1.9

• counter: 1.9 2004/04/07 04:48:16 ichiki Exp
  • bug fixed on counting $w for $k-th digits.

counter 1.8 and new digit-images 1.2

• counter: 1.8 2004/04/07 00:09:58 ichiki Exp
  • split the log file for bots in $log_bot from the regular $log.
  • introduce $counterwidth to adjust the width automatically.
  • also introduce $ndigits for the digits to print (zero-padding).
• image files are updated for this:
  • 1.2 : add "pkichiki.gif" and "widths.dat".

diary2blosxom.pl v 1.14

• diary2blosxom.pl: 1.14 2004/04/05 20:56:39 ichiki Exp
  • (categorize): add [phys] label for the "phys" category.

diary2blosxom.pl

• diary2blosxom.pl: 1.13 2004/04/04 00:22:08 ichiki Exp
  • (categorize): return the title with the category label removed. matching pattern is corrected.
• diary2blosxom.pl: 1.12 2004/04/03 19:40:50 ichiki Exp
  • (end): bug fixed -- $t was not defined here.
  • (end): add new category "news".
  • (print_entry): add new category "news".
  • (categorize): added to categorize entries.
  • (check_category_in_link): added.
• Due to the recursive checks for links, the speed is terribly slow now...

path_image 1.2

• path_image: 1.2 2004/03/27 19:33:26 ichiki Exp
  • put the anchor tag.

image files for the counter plugin

diary2blosxom.pl

• diary2blosxom.pl: 1.11 2004/01/28 03:13:52 ichiki Exp
  • add the function of checking updates.
  • (print_entry): updated. once write each entry into 'tmp.txt', and then compare it with the existing file (if exists).
  • (getfiles): borrowed from 'recentwritebacks_tree' Version 1.0 written by typester .
  • (getentries): added to construct list of entries.
  • (compare_files): added to compare present and existing entries.
• Finally...
  • then, weex only upload the revised entries!

writeback plugin with date entry

• we do not need 'date' entry in @fields, so the diff is just

  % diff writeback.orig writeback
  7a8,9
  > use Time::Local;
  > 
  15c17,18
  < my $writeback_dir = "";
  ---
  > #my $writeback_dir = "";
  > my $writeback_dir = "$blosxom::plugin_state_dir/writeback";
  133a137,146
  >       # add 'date:' field -- tedeous, though, it is working here
  >       my ($Second, $Minute, $Hour,
  >         $Day, $Month, $Year,
  >         $WeekDay, $DayOfYear, $IsDST) = localtime ();
  >       my $postdate = sprintf ("%d/%d/%d %d:%02d:%02d",
  >                             $Year + 1900,
  >                             $Month + 1,
  >                             $Day,
  >                             $Hour, $Minute, $Second);
  >       print $fh "date: $postdate\n";
   

• also, I am now using modified "recentwritebacks_tree" (cf.recentwritebacks_tree プラグイン (Blosxom))

  % diff recentwritebacks_tree.orig recentwritebacks_tree
  17,18c15,19
  < my $cm_entry = 3;
  < my $cm_num = 5;
  ---
  > my $wb_entry = 3;
  > my $wb_num = 5;
  > # comments
  > #my $cm_entry = 3;
  > #my $cm_num = 5;
  20,21c21,22
  < my $tb_entry = 3;
  < my $tb_num = 3;
  ---
  > #my $tb_entry = 3;
  > #my $tb_num = 3;
  25c26,27
  < use vars qw/$cm_list $tb_list @wb_list/;
  ---
  > #use vars qw/$cm_list $tb_list @wb_list/;
  > use vars qw/$wbs @wb_list/;
  29d30
  <   #return 0 if ($blosxom::path_info =~ /\./);
  31,32c32,34
  <   $cm_list =  &getwritebacks("comment", $cm_entry, $cm_num);
  <   $tb_list = &getwritebacks("excerpt", $tb_entry, $tb_num);
  ---
  >   $wbs     = &getwritebacks("", $wb_entry, $wb_num);
  >   #$cm_list = &getwritebacks("comment", $cm_entry, $cm_num);
  >   #$tb_list = &getwritebacks("excerpt", $tb_entry, $tb_num);
  61,64c63,73
  <       if($_ =~ /[\r\n]+$mode:(.+)/) {
  <         $count++;
  <         $body = $1;
  <         if($count == 1) {
  ---
  >       #if($_ =~ /[\r\n]+$mode:(.+)/) {
  >       #  $count++;
  >       #  $body = $1;
  >       #  if($count == 1) {
  >       #    $entrytitle = &gettitle($file);
  >       #    $entry++;
  >       #  }
  >       #}
  >       $count++;
  >       $body = $1;
  >       if($count == 1) {
  67d75
  <         }
  81,84c89,95
  <         if($_ =~ /[\r\n]+date:(\d+)/) {
  <           @dates = localtime($1);
  <           $date = sprintf("%02d/%02d %02d:%02d", $dates[4]+1, $dates[3], $dates[2], $dates[1]);
  <         }
  ---
  > 	#if($_ =~ /[\r\n]+date:(\d+)/) {
  >           #@dates = localtime($1);
  >           #$date = sprintf("%02d/%02d %02d:%02d", $dates[4]+1, $dates[3], $dates[2], $dates[1]);
  >         #}
  > 	if($_ =~ /[\r\n]+date: (.+)/) {
  > 	    $date = $1;
  > 	}
  98c109
  <       $ret .= "</ul>\n</li>\n";
  ---
  >       $ret .= "</ul>\n";
  99a111
  >     $ret .= "</li>\n";
   

• to use it, put "$recentwritebacks_tree::wbs" where you want.

add 'date' field to the writeback format

• I use the original writeback plugin:

  # Blosxom Plugin: writeback
  # Author(s): Rael Dornfest <rael@oreilly.com>
  # Version: 2003-09-18
  # Documentation: See the bottom of this file or type: perldoc writeback
   

• Here is my change:

  diff writeback.orig writeback.new
  7a8,9
  > use Time::Local;
  > 
  15c17,18
  < my $writeback_dir = "";
  ---
  > #my $writeback_dir = "";
  > my $writeback_dir = "$blosxom::plugin_state_dir/writeback";
  27c30,31
  < my @fields = qw! name url title comment excerpt blog_name !;
  ---
  > #my @fields = qw! name url title comment excerpt blog_name !;
  > my @fields = qw! name url title comment excerpt blog_name date !;
  133a138,147
  >       # add 'date:' field -- tedious, though, it is working here
  >       my ($Second, $Minute, $Hour,
  >         $Day, $Month, $Year,
  >         $WeekDay, $DayOfYear, $IsDST) = localtime ();
  >       my $postdate = sprintf ("%d/%d/%d %d:%02d:%02d",
  >                             $Year + 1900,
  >                             $Month + 1,
  >                             $Day,
  >                             $Hour, $Minute, $Second);
  >       print $fh "date: $postdate\n";
   

• cf.コメント、トラックバックにも投稿された時間を表示 @UnknownPlace.

diary2blosxom.pl

• diary2blosxom.pl: 1.10 2004/01/20 20:41:04 ichiki Exp
  • increment $num for titled-entries (to prevent the duplicated $num).

diary2blosxom.pl

• diary2blosxom.pl: 1.9 2004/01/16 06:50:35 ichiki Exp
  • (end): bug fixed on hierarchical link including anchor tag inside.
• diary2blosxom.pl: 1.8 2004/01/16 06:24:32 ichiki Exp
  • (start): bug fixed for <a href="#..."> type anchor tag.

diary2blosxom.pl

• diary2blosxom.pl: 1.7 2004/01/11 04:19:46 ichiki Exp
  • (start): print attributes for HTML tags.
• during writing the above, i learned "reference of hash" in Perl:
  • in HTML::Parser, "attr" is a reference of hash.
  • $attr is passed to the routine "start" as

    sub start
    {
        my ($tagname, $attr) = @_;
        ...
      

  • there, the hash itself can be accessed via %{$attr} as

    while (($a, $c) = each (%{$attr})) {
    ...
    }
      

  • also note that
    • %hash = (a => Z, b => Y, ...);
    • $hashref = {a => Z, b => Y, ...};
    • %hash is equivalent to %{$hashref}
    • $hash{a}, ${$hashref}{a}, $ $hashref{a}, and $hashref->{a} are all Z.

path_image 1.1

• put the image instead of $path.
• path_image: 1.1 2004/01/09 05:58:16 ichiki Exp
  • initial revision.

LOGO is made

• I made two images:
  
  
• for blosxom path_image plugin (see blosxom/2004/1/9), I also made smaller versions:
  
• ... I admit that my drawing skill is not good.

counter 1.7

• counter: counter,v 1.6 2004/01/06 19:50:09 ichiki Exp
  • add $linkurl.
• counter: counter,v 1.7 2004/01/07 02:05:56 ichiki Exp
  • (filter): change the format of log file on date.

diary2blosxom.pl

• diary2blosxom.pl: 1.6 2004/01/08 23:49:30 ichiki Exp
  • several bug fixed.
• todo :
  • check updated or not for each entry.

diary2blosxom.pl

• this converts my conventional diary contents in HTML into blosxom entries.
• diary2blosxom.pl: 1.5 2004/01/07 01:09:04 ichiki Exp
  • finally, it is working practically.
• todo :
  • handling img tag properly.