if ($ENV{"GATEWAY_INTERFACE"}) {
my $future=HTTP::Date::time2str(2000000000);
my $past =HTTP::Date::time2str(1000000000);
print <<"EOH";
if ($ENV{"GATEWAY_INTERFACE"}) {
my $future=HTTP::Date::time2str(2000000000);
my $past =HTTP::Date::time2str(1000000000);
print <<"EOH";
last PAGES if $seen{$base}++;
my $infourl=$BASE.'&styl=zoom&foto='.$base;
my $info=LWP::Simple::get($infourl) or die $infourl;
last PAGES if $seen{$base}++;
my $infourl=$BASE.'&styl=zoom&foto='.$base;
my $info=LWP::Simple::get($infourl) or die $infourl;
$info=~m{<p>([^<>]*)</p>},
$info=~m{<div class="text"><!--google_ad_section_start--><h4>([^<>]*)</h4><p>([^<>]*)<!--google_ad_section_end--></p><p>Autor:\s+(.*?)(?:, <a target="_blank" href="http://www.idnes.cz">iDNES.cz</a>)?</p></div>}s,
) {
next if !$text;
$info=~m{<p>([^<>]*)</p>},
$info=~m{<div class="text"><!--google_ad_section_start--><h4>([^<>]*)</h4><p>([^<>]*)<!--google_ad_section_end--></p><p>Autor:\s+(.*?)(?:, <a target="_blank" href="http://www.idnes.cz">iDNES.cz</a>)?</p></div>}s,
) {
next if !$text;