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