| 6 |
$menufile = "menu.txt"; |
$menufile = "menu.txt"; |
| 7 |
$topfile = "title.txt"; |
$topfile = "title.txt"; |
| 8 |
$headerfile = "header.txt"; |
$headerfile = "header.txt"; |
| 9 |
|
$num_headlines = 5; |
|
|
|
| 10 |
|
|
| 11 |
if ($#ARGV != 2 || !-d $ARGV[0] || !-d $ARGV[1]) { |
if ($#ARGV != 2 || !-d $ARGV[0] || !-d $ARGV[1]) { |
| 12 |
print "Usage : pagegen.pl <TMPLDIR> <OUTDIR> <BASE>\n"; |
print "Usage : pagegen.pl <TMPLDIR> <OUTDIR> <BASE>\n"; |
| 23 |
pagegen($file); |
pagegen($file); |
| 24 |
} |
} |
| 25 |
closedir(DIR_S); |
closedir(DIR_S); |
|
|
|
| 26 |
exit 0; |
exit 0; |
| 27 |
|
|
| 28 |
sub pagegen() { |
sub pagegen() { |
| 53 |
include_footer(OUT, $1); |
include_footer(OUT, $1); |
| 54 |
next; |
next; |
| 55 |
} |
} |
| 56 |
|
if (/^<!-- HISTORY -->$/) { |
| 57 |
|
include_history(OUT); |
| 58 |
|
} |
| 59 |
|
if (/^<!-- HEADLINE -->$/) { |
| 60 |
|
include_headline(OUT); |
| 61 |
|
} |
| 62 |
print OUT "$_\n"; |
print OUT "$_\n"; |
| 63 |
} |
} |
| 64 |
close(BODY); |
close(BODY); |
| 121 |
</html> |
</html> |
| 122 |
HTML_FOOTER |
HTML_FOOTER |
| 123 |
} |
} |
| 124 |
|
|
| 125 |
|
sub include_headline() |
| 126 |
|
{ |
| 127 |
|
my ($stream) = @_; |
| 128 |
|
opendir(DIR, "$srcdir/news") || die; |
| 129 |
|
my @l = sort({$b <=> $a } readdir(DIR)); |
| 130 |
|
closedir(DIR); |
| 131 |
|
|
| 132 |
|
my $f, $d, $t, $sec, $headline, $dum; |
| 133 |
|
$i = 0; |
| 134 |
|
foreach $f(@l) { |
| 135 |
|
next if ($f eq "." || $f eq ".."); |
| 136 |
|
next unless ($f =~ /^([0-9]{4})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})\.txt$/); |
| 137 |
|
last if ($i > $num_headlines); |
| 138 |
|
$d = "$1/$2/$3"; |
| 139 |
|
$t = "$4:$5"; |
| 140 |
|
$sec = "$1$2$3$4$5"; |
| 141 |
|
|
| 142 |
|
open(F, "$srcdir/news/$f") || die; |
| 143 |
|
|
| 144 |
|
$headline = <F>; |
| 145 |
|
chop($headline); |
| 146 |
|
|
| 147 |
|
print $stream " <li><a href=\"history.html#$sec\">$headline</a> ($d)</li>\n"; |
| 148 |
|
|
| 149 |
|
close(F); |
| 150 |
|
$i++; |
| 151 |
|
} |
| 152 |
|
} |
| 153 |
|
|
| 154 |
|
sub include_history() |
| 155 |
|
{ |
| 156 |
|
my ($stream) = @_; |
| 157 |
|
opendir(DIR, "$srcdir/news") || die; |
| 158 |
|
my @l = sort( { $b <=> $a } readdir(DIR)); |
| 159 |
|
closedir(DIR); |
| 160 |
|
|
| 161 |
|
my $f, $d, $t, $sec, $headline, $dum; |
| 162 |
|
foreach $f (@l) { |
| 163 |
|
next if ($f eq "." || $f eq ".."); |
| 164 |
|
next unless ($f =~ /^([0-9]{4})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})\.txt$/); |
| 165 |
|
$d = "$1-$2-$3"; |
| 166 |
|
$t = "$4:$5"; |
| 167 |
|
$sec = "$1$2$3$4$5"; |
| 168 |
|
|
| 169 |
|
open(F, "$srcdir/news/$f") || die; |
| 170 |
|
|
| 171 |
|
$headline = <F>; |
| 172 |
|
chop($headline); |
| 173 |
|
|
| 174 |
|
$dum = <F>; # skip blank line |
| 175 |
|
|
| 176 |
|
print $stream "<a name=\"$sec\" />\n"; |
| 177 |
|
print $stream "<h3>$d $headline</h3>\n"; |
| 178 |
|
while(<F>) { |
| 179 |
|
print $stream $_; |
| 180 |
|
} |
| 181 |
|
close(F); |
| 182 |
|
} |
| 183 |
|
|
| 184 |
|
} |
Parent Directory
Revision Log
Revision Graph
Patch