# RSS 1.0を生成するスクリプトと併用する、更新時刻をHTML文書に埋め込むスクリプト
# 平成18年10月 8日 さいたま・しらぎくさいと
# (c)2006 Marguerite Site, Saitama, Japan.
# www.marguerite.jp
#
# ※このスクリプトの保存文字コードは問いません。
$cdir='';
$cdir2='';
proc();
print "===== Completed!!\n$MODN\n";
print "\n";
for(;;) {}
sub proc {
local *DIR;
local *F;
opendir (DIR,".");
my ($tEnd,$i,$n,$k,$l,$CTIME);
my @d=readdir(DIR);
closedir (DIR);
foreach $n (@d) {
if (!$n) { next; }
if ($n=~/\A[\-\w]+\Z/) {
chdir("./$n");
$cdir2.='../'; $cdir.="/$n";
&proc(); chdir("../");
$cdir2=substr($cdir2,3); $cdir=~s/\/$n\Z//;
next;
}
unless ($n=~/\.s?html?\Z/) { next; } #.htmlのみ対象。
open (F,$n);
$i='';
while () { $i="$i$_"; }
close (F);
$tEnd=''; if ($i=~/<\?xml[^>]*\?>/) { $tEnd=' /'; }
print "$cdir/$n\n";
next if $i=~m!\s*]*>\s*!i;
$CTIME=(stat($n))[9];
open (F,">$n");
$i=~s|
\s*|\n\n\n|i ||
$i=~s|(]*>)\s*|$1\n\n\n|i ||
$i=~s|(]*>)\s*|$1\n\n\n|i ||
($i=qq|\n$i|);
print F $i;
close F;
$MODN.="$cdir/$n\n";
}
return;
}