Jeff Trawick <[EMAIL PROTECTED]> writes:

> I'm gonna take a short break then write a perl CGI to put the tag at
> specified offsets, run it for i = 0 to very-large-number, and if I
> don't get any parsing errors I'll commit it.

cool... with 8187 blanks in front of the tag we barf

[Fri Aug 17 15:52:14 2001] [error] [client 127.0.0.1] unknown
directive "<!" in parsed doc
/home/trawick/apacheinst/cgi-bin/createtags.pl

I'll look into it now, but company is arriving from out of town soon
and I can only be so rude.

CGI is below

request it with parms like this: /cgi-bin/createtags.pl?offset=8187

#!/usr/local/bin/perl -w

BEGIN
{
  use CGI::Carp qw(fatalsToBrowser);
}

use strict;

use CGI;

my $q = new CGI;
my $offset = $q->param('offset');

if (!$offset)
{
  die "Yo!  I need an offset!";
}

print "Content-type: text/html\n\n";

while ($offset > 0)
{
  print " ";
  --$offset;
}

print "<!--#include file=\"footer.html\" -->";

$offset = 100;
while ($offset > 0)
{
  print " ";
  --$offset;
}

-- 
Jeff Trawick | [EMAIL PROTECTED] | PGP public key at web site:
       http://www.geocities.com/SiliconValley/Park/9289/
             Born in Roswell... married an alien...

Reply via email to