implementation/classic/h2h-diary-09.pl


$H2H::themepath = '/home/local/h2h/H2H/';
require H2H;
require $H2H::themepath.'default/theme.ph';

($O{y}, $O{m}, $O{path}) = @ARGV;

unless ($O{y}) {
  (undef, undef, undef, undef, $O{m}, $O{y}) = localtime;  $O{m}++;
  $rev = 1;
}
$O{y} += 1900 if $O{y} < 1000;
$O{m} = substr('0'.$O{m}, -2);
$O{path} = $O{path} || '\\home\\local\\d\\'.$O{y}.'\\';

$basepath = $O{path};
$hnffiles = 'd'.$O{y}.$O{m}.'??.hnf';
$output_filename = '\\home\\suika\\public_html\\d\\d'.$O{y}.$O{m}.'.ja.html';

open A, '| dir /B '.$basepath.$hnffiles.' > .filelist.txt';  close A;
open D, '.filelist.txt';  @FILELIST = <D>; close D;

if ($rev)       {@FILELIST = sort {$b cmp $a} @FILELIST}
else    {@FILELIST = sort {$a cmp $b} @FILELIST}

my $output;

for (@FILELIST) {  chop;
  my @prefix;  if (/(\d{4})(\d\d)(\d\d)/) {@prefix = ($1,$2,$3)}
  elsif (/^(.+)\.hnf$/) {$prefix[3] = $1}
  open HNF, $basepath.$_;
    my @HNF = <HNF>;
    $output .= &H2H::h2h(undef, \@prefix, @HNF);
  close HNF;
}

if ($output) {
  my $title;
  if(-e $basepath.'.title'){open T,$basepath.'.title';while(<T>){$title.=$_}close T}
  require '/home/rocket/pl/jcode.pl';
  my $s = &H2H::Page::start($title).$output.&H2H::Page::end($title);
  jcode::convert(\$s, 'jis', 'euc');
  open HTML, '> '.$output_filename;  binmode HTML;
    print HTML $s;
  close HTML;
}

1;
1
2	$H2H::themepath = '/home/local/h2h/H2H/';
3	require H2H;
4	require $H2H::themepath.'default/theme.ph';
5
6	($O{y}, $O{m}, $O{path}) = @ARGV;
7
8	unless ($O{y}) {
9	(undef, undef, undef, undef, $O{m}, $O{y}) = localtime; $O{m}++;
10	$rev = 1;
11	}
12	$O{y} += 1900 if $O{y} < 1000;
13	$O{m} = substr('0'.$O{m}, -2);
14	$O{path} = $O{path} \|\| '\\home\\local\\d\\'.$O{y}.'\\';
15
16	$basepath = $O{path};
17	$hnffiles = 'd'.$O{y}.$O{m}.'??.hnf';
18	$output_filename = '\\home\\suika\\public_html\\d\\d'.$O{y}.$O{m}.'.ja.html';
19
20	open A, '\| dir /B '.$basepath.$hnffiles.' > .filelist.txt'; close A;
21	open D, '.filelist.txt'; @FILELIST = <D>; close D;
22
23	if ($rev) {@FILELIST = sort {$b cmp $a} @FILELIST}
24	else {@FILELIST = sort {$a cmp $b} @FILELIST}
25
26	my $output;
27
28	for (@FILELIST) { chop;
29	my @prefix; if (/(\d{4})(\d\d)(\d\d)/) {@prefix = ($1,$2,$3)}
30	elsif (/^(.+)\.hnf$/) {$prefix[3] = $1}
31	open HNF, $basepath.$_;
32	my @HNF = <HNF>;
33	$output .= &H2H::h2h(undef, \@prefix, @HNF);
34	close HNF;
35	}
36
37	if ($output) {
38	my $title;
39	if(-e $basepath.'.title'){open T,$basepath.'.title';while(<T>){$title.=$_}close T}
40	require '/home/rocket/pl/jcode.pl';
41	my $s = &H2H::Page::start($title).$output.&H2H::Page::end($title);
42	jcode::convert(\$s, 'jis', 'euc');
43	open HTML, '> '.$output_filename; binmode HTML;
44	print HTML $s;
45	close HTML;
46	}
47
48	1;