^AUTO-GENERATED-SEARCH-TERMS-END\n
!search_terms()!emsx;
$s =~ s/[ \t]+$//sgm;
- next if $s eq $orig;
- seek($fh, 0, SEEK_SET) or die "seek: $!";
- truncate($fh, 0) or die "truncate: $!";
- print $fh $s or die "print: $!";
- close $fh or die "close: $!";
+ if ($s eq $orig) {
+ my $t = time;
+ utime($t, $t, $fh);
+ } else {
+ seek($fh, 0, SEEK_SET) or die "seek: $!";
+ truncate($fh, 0) or die "truncate: $!";
+ print $fh $s or die "print: $!";
+ close $fh or die "close: $!";
+ }
}
sub search_terms {
"<title>$title</title>",
"</head><body><pre>", $str , '</pre></body></html>';
STDOUT->flush;
-
-# keep mtime on website consistent so clients can cache
-if (-f STDIN && -f STDOUT) {
- my @st = stat(STDIN);
- utime($st[8], $st[9], \*STDOUT);
-}
for my $txt (@dtxt) {
my $html = $txt;
$html =~ s/\.txt\z/.html/ or $html .= '.html';
- $t->{"$html : $txt"} = [ "\$(txt2pre) <$txt" ];
+ $t->{"$html : $txt"} = [ "\$(txt2pre) <$txt", "touch -r $txt \$@" ];
}
$v->{t_slash_star_dot_t} = [ grep(m!\At/.*\.t\z!, @manifest) ];
my @scripts = qw(scripts/ssoma-replay); # legacy
my $txt = "Documentation/$m.txt";
$t->{"$m.$i : $pod"} = [ "\$(podman) -s$i $pod \$@" ];
$t->{"$txt : $m.$i"} = [ "\$(man2text) ./$m.$i >\$\@+",
- "touch -r $pod \$\@+",
+ "touch -r $pod \$\@+ ./$m.$i",
"mv \$\@+ \$@" ];
- $t->{"Documentation/$m.html : $txt"} = [ "\$(txt2pre) <$txt" ];
+ $t->{"Documentation/$m.html : $txt"} = [ "\$(txt2pre) <$txt",
+ "touch -r $txt \$@" ];
$t->{".$m.cols : $m.$i"} = [
"\@echo CHECK80 $m.$i;".
"COLUMNS=80 \$(MAN) ./$m.$i | \$(check_man)",
push @{$v->{manuals}}, @$manuals;
push @{$v->{mantxt}}, map { "Documentation/$_.txt" } @$ary;
}
-push @dtxt, @{$v->{mantxt}};
+push @dtxt;
$v->{docs} = [ @dtxt, 'NEWS' ];
$v->{docs_html} = [ map {;
my $x = $_;
$x =~ s/\.txt\z//;
"$x.html"
- } @{$v->{docs}} ];
+ } (@{$v->{docs}}, @{$v->{mantxt}}) ];
$v->{gz_docs} = [ map { "$_.gz" } (@{$v->{docs}},@{$v->{docs_html}}) ];
$v->{rsync_docs} = [ @{$v->{gz_docs}}, @{$v->{docs}},
@{$v->{docs_html}}, qw(NEWS.atom NEWS.atom.gz)];