chiark
/
gitweb
/
~cjwatson
/
bin.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Keysigning script, from Gergely Nagy via Martin Michlmayr.
[bin.git]
/
ssize.pl
1
#! /usr/bin/perl -w
2
use diagnostics;
3
use strict;
4
5
my $body = 0;
6
my $filename = shift;
7
8
while (<>)
9
{
10
if (/^<BODY/)
11
{
12
$body = 1;
13
$_ = <>;
14
$_ = <>;
15
print "<!--#include virtual=\"$filename.header.ssi\" -->\n";
16
}
17
next unless $body;
18
last if /^<\/BODY/;
19
print;
20
}
21
22
print "<!--#include virtual=\"footer.ssi\" -->\n";
23