chiark / gitweb /
Remove yet more obsolete programs.
[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