61 lines
1.5 KiB
Plaintext
Executable File
61 lines
1.5 KiB
Plaintext
Executable File
push(@local_yearmap, "Jan", "Feb", "Mar", "Apr", "May", "Jun",
|
|
"Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
|
|
|
|
$local_version = '';
|
|
$local_date = '';
|
|
$local_http = '';
|
|
|
|
$local_approval_header_file = '/home/gdr/etc/GNO-FAQ.approval';
|
|
|
|
sub local_approval {
|
|
open(local_fp, "< $local_approval_header_file") ||
|
|
die("couldn't open $local_approval_header_file. Are you supposed " .
|
|
"to be trying to post this FAQ?");
|
|
$approval_line = <local_fp>;
|
|
chop($approval_line);
|
|
close(local_fp);
|
|
return $approval_line;
|
|
}
|
|
|
|
sub local_hdr_parse_rcs {
|
|
local($src, $year, $day, $time, $month);
|
|
|
|
# $src = "\@articledir\@/FAQ.gno.src";
|
|
$src = "/home/gdr/src/doc/FAQs/FAQ.gno.src";
|
|
open (local_fp, "$src") || die("couldn't open $src");
|
|
while ($_ = <local_fp>) {
|
|
if (m,\$Id:\s+\S+\s+(\S+)\s+(\d+)/(\d+)/(\d+)\s+(\S+)\s*,) {
|
|
$local_version = $1;
|
|
$year = $2;
|
|
$day = $4;
|
|
$time = $5;
|
|
$month = $local_yearmap[int($3)-1];
|
|
$local_date = "$day $month $year $time";
|
|
} elsif (/%FAQ-http-addr%([^%]+)%/) {
|
|
$local_http = $1;
|
|
}
|
|
}
|
|
close(local_fp);
|
|
}
|
|
|
|
sub local_hdr_version {
|
|
($local_version eq '') && &local_hdr_parse_rcs();
|
|
&pr_header("Version", "$local_version");
|
|
}
|
|
|
|
sub local_hdr_subject {
|
|
($local_version eq '') && &local_hdr_parse_rcs();
|
|
&pr_header("Subject", "comp.sys.apple2.gno FAQ (v$local_version)");
|
|
}
|
|
|
|
sub local_hdr_last_modified {
|
|
($local_date eq '') && &local_hdr_parse_rcs();
|
|
&pr_header("Last-modified", "$local_date");
|
|
}
|
|
|
|
sub local_hdr_url {
|
|
&pr_header("URL", "$local_http");
|
|
}
|
|
|
|
1;
|