| $count |
$readmarks |
$title
|
$gutentypes{plucker}{link} |
$gutentypes{html}{link} |
$gutentypes{text}{link} |
\n};
$count++;
}
}
$guten_tables =~ s,\&,\&,g;
$guten_tables =~ s,>\n\s+<,><,g;
return $guten_tables;
}
sub test_head {
my $url = shift;
my $ua = LWP::UserAgent->new();
$ua->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1;) Firefox/2.0.0.6');
my $request = HTTP::Request->new(HEAD => $url);
my $response = $ua->request($request);
my $status = $response->status_line;
my $type = $response->header('Content-Type');
my $content = $response->content;
$status =~ m/(\d+)/;
return ($1, $type);
}