implementation/classic/diary-edit.pl

#!/usr/bin/perl

(undef, undef, undef, $d, $m, $y) = localtime;  $m++;


$y += 1900 if $y < 1000;
$m = substr('0'.$m, -2);
$d = substr('0'.$d, -2);

my $h2h_path = qq(/home/wakaba/public_html/d/$y/d$y$m${d}.hnf);
unless (-e $h2h_path) {
  open D, '> '.$h2h_path;
    binmode D; print D "H2H/1.0\x0d\x0aTENKI À²\x0d\x0aOK\x0d\x0a\x0d\x0aNEW ";
  close D;
}

system 'emacs -nw '.$h2h_path;

require 'h2h-diary.pl';
#print STDERR "Opening folder window...";
#system 'start D:\home\suika\public_html\d';
#system qq(scp /cygdrive/d/home/suika/public_html/d/d$y$m.ja.html wakaba\@suika.fam.cx:/home/wakaba/public_html/d/);
1	wakaba	1.1	#!/usr/bin/perl
2
3			(undef, undef, undef, $d, $m, $y) = localtime; $m++;
4
5
6			$y += 1900 if $y < 1000;
7			$m = substr('0'.$m, -2);
8			$d = substr('0'.$d, -2);
9
10			my $h2h_path = qq(/home/wakaba/public_html/d/$y/d$y$m${d}.hnf);
11			unless (-e $h2h_path) {
12			open D, '> '.$h2h_path;
13			binmode D; print D "H2H/1.0\x0d\x0aTENKI À²\x0d\x0aOK\x0d\x0a\x0d\x0aNEW ";
14			close D;
15			}
16
17			system 'emacs -nw '.$h2h_path;
18
19			require 'h2h-diary.pl';
20			#print STDERR "Opening folder window...";
21			#system 'start D:\home\suika\public_html\d';
22			#system qq(scp /cygdrive/d/home/suika/public_html/d/d$y$m.ja.html wakaba\@suika.fam.cx:/home/wakaba/public_html/d/);