1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#!/usr/bin/perl -spi
if( $found and /^$/ ){
print <<EOF;
<table><tr valign=top>
<td>
<a href="http://www.lprng.com">
<img align=left SRC="LPRng.jpg" ALT="LPRngLogo" height=60>
</a>
</td>
<td></td>
<td>
<a href="http://www.lprng.com">
<img align=left SRC="LPRngT-L.jpg" ALT="ifhp" height=75>
</a>
</td>
<td>
<a href="http://www.lprng.com">
<img align=left SRC="ifhp-S.jpg" ALT="ifhp" height=60>
</a>
</td>
</tr></table>
EOF
$found = 0;
} elsif( m,<body, ){
$found = 1;
}
|
