Ok, late last night I realised the semi colons were missing among a few
other small details. Since then I repaired all of them and ran a debbuger,
but it came back clean. I uploaded and tried to run it on the webserver,
but it doesn't print anything. The script doesn't display any errors or
logfiles, but it prints a blank screen. Anyone see why?
Thanks.
sulfericacid
#!/usr/local/bin/perl -w
my %form;
my $content;
my $userurl = $form{'userurl'};
print "Content-type: text/html\n\n";
use diagnostics;
use strict;
use LWP::Simple;
$content = get($userurl);
use HTML::TokeParser;
my $p = HTML::TokeParser->new(\$content);
my %meta;
while (my $token = $p->get_token) {
next unless $token->[1] eq 'meta' && $token->[0] eq 'S';
$meta{$token->[2]->{name}} = $token->[2]{content};
}
print "$_: $meta{$_}<br>\n" foreach (keys %meta);
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
