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"; |
#$base ="http://tombo.sourceforge.jp"; |
| 4 |
$pjhome="http://sourceforge.jp/projects/tombo"; |
$pjhome="http://sourceforge.jp/projects/tombo"; |
| 5 |
|
|
| 6 |
$menufile = "menu.txt"; |
$menufile = "menu.txt"; |
| 9 |
|
|
| 10 |
|
|
| 11 |
|
|
| 12 |
if ($#ARGV != 1 || !-d $ARGV[0] || !-d $ARGV[1]) { |
if ($#ARGV != 2 || !-d $ARGV[0] || !-d $ARGV[1]) { |
| 13 |
print "Usage : pagegen.pl <TMPLDIR> <OUTDIR>\n"; |
print "Usage : pagegen.pl <TMPLDIR> <OUTDIR> <BASE>\n"; |
| 14 |
exit 1; |
exit 1; |
| 15 |
} |
} |
| 16 |
|
|
| 17 |
$srcdir = $ARGV[0]; |
$srcdir = $ARGV[0]; |
| 18 |
$dstdir = $ARGV[1]; |
$dstdir = $ARGV[1]; |
| 19 |
|
$base = $ARGV[2]; |
| 20 |
|
|
| 21 |
opendir(DIR_S, $srcdir) || die; |
opendir(DIR_S, $srcdir) || die; |
| 22 |
while($file = readdir(DIR_S)) { |
while($file = readdir(DIR_S)) { |
|
|
Legend:
| Removed from v.1.4 |
|
| changed lines |
| |
Added in v.1.5 |
|
|
| 
Parent Directory
Revision Log
Revision Graph
Patch