git-svn-id: https://svn.code.sf.net/p/jode/code/trunk@1350 379699f6-c40d-0410-875b-85095c16579emaster
parent
d5a0591d1f
commit
9e5dca11ad
@ -0,0 +1,15 @@ |
|||||||
|
#!/usr/bin/perl -w |
||||||
|
|
||||||
|
my $num = 0; |
||||||
|
for (@ARGV) { |
||||||
|
next if $_ !~ /\.php$/; |
||||||
|
$html = $php = $_; |
||||||
|
$html =~ s/\.php$/.html/; |
||||||
|
|
||||||
|
$ENV{extension}="html"; |
||||||
|
if (! -e "$html" || (-M "$php" <= -M "$html")) { |
||||||
|
$num++; |
||||||
|
system "php -f $php >$html"; |
||||||
|
} |
||||||
|
} |
||||||
|
print $num . " html files updated.\n"; |
Loading…
Reference in new issue