Browse CVS Repository
Diff of /tombo/htdocs/pagegen.pl
 Parent Directory
|  Revision Log
|  Revision Graph
|  Patch
| 1 |
#! /usr/bin/perl |
#! /usr/bin/perl |
| 2 |
|
|
| 3 |
|
$base ="http://tombo.sourceforge.jp"; |
| 4 |
|
$pjhome="http://sourceforge.jp/projects/tombo"; |
| 5 |
|
|
| 6 |
$menufile = "menu.txt"; |
$menufile = "menu.txt"; |
| 7 |
$topfile = "title.txt"; |
$topfile = "title.txt"; |
| 8 |
$headerfile = "header.txt"; |
$headerfile = "header.txt"; |
| 9 |
|
|
| 10 |
|
|
| 11 |
|
|
| 12 |
if ($#ARGV != 1 || !-d $ARGV[0] || !-d $ARGV[1]) { |
if ($#ARGV != 1 || !-d $ARGV[0] || !-d $ARGV[1]) { |
| 13 |
print "Usage : pagegen.pl <TMPLDIR> <OUTDIR>\n"; |
print "Usage : pagegen.pl <TMPLDIR> <OUTDIR>\n"; |
| 14 |
exit 1; |
exit 1; |
| 88 |
|
|
| 89 |
open(MENU, "$srcdir/$menufile") || die; |
open(MENU, "$srcdir/$menufile") || die; |
| 90 |
while(<MENU>) { |
while(<MENU>) { |
| 91 |
|
s/_PJHOME_/$pjhome/g; |
| 92 |
|
s/_BASE_/$base/g; |
| 93 |
print $stream $_; |
print $stream $_; |
| 94 |
} |
} |
| 95 |
close(MENU); |
close(MENU); |
|
|
Legend:
| Removed from v.1.3 |
|
| changed lines |
| |
Added in v.1.4 |
|
|
| 
Parent Directory
Revision Log
Revision Graph
Patch