Escape period and $.

This commit is contained in:
Jun Kuriyama 2000-10-31 10:14:38 +00:00
parent 64e0013900
commit 928e5b911f
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=8256

View file

@ -7,7 +7,7 @@
# usage: prehtml [-revcheck <localtop> <relative to localtop>] <SGML filename>
# (ex. % prehtml -revcheck ../.. news/1996 index.sgml)
#
# $FreeBSD: www/ja/prehtml,v 1.1 2000/10/02 09:16:04 kuriyama Exp $
# $FreeBSD: www/ja/prehtml,v 1.2 2000/10/03 11:10:47 hrs Exp $
my $revcheck;
my $topdir;
@ -48,7 +48,7 @@ while(defined($_ = $ARGV[0])) {
} elsif ($opt_state eq sARG) {
$file{target} = $_;
if($revcheck) {
s/.sgml$//;
s/\.sgml$//;
my $basename = $_;
$file{cvsweb} = "www/en/${reldir}${basename}.sgml";
$file{orgbase} = "${topdir}/../en/${reldir}${basename}";
@ -67,7 +67,7 @@ my $pos_date;
while(defined($_ = <TARGET>)) {
if(/<!ENTITY\s+date/) {
$pos_date = tell(TARGET);
if(m/\"\$Free[B]SD: [^\s]+ [.0-9]+ ([\/0-9]+)[^\$]*\$\"/) {
if(m/\"\x24FreeBSD: [^\s]+ [.0-9]+ ([\/0-9]+)[^\$]*\$\"/) {
$date = "<!ENTITY date \"Last modified: $1\">";
} else {
$date = "<!ENTITY date \"Last modified: UNKNOWN\">";