1#!/usr/local/bin/perl 2 3use strict; 4 5# Net connection? 6if(!-f "t/have_network") { 7 print "1..0\n"; 8 exit 0; 9} 10 11use Image::Grab; 12my $toons = [ 13{Name => "Arlo And Janis", 14 regexp => "arlonjanis[0-9]+.*\.gif", 15 refer => "http://www.unitedmedia.com/comics/arlonjanis/", 16 search_url => "http://www.unitedmedia.com/comics/arlonjanis/", 17}, 18{Name => "Over the Hedge", 19 regexp => "hedge[0-9]+\.gif", 20 refer => "http://www.unitedmedia.com/comics/hedge/", 21 search_url => "http://www.unitedmedia.com/comics/hedge/", 22}]; 23 24print "1..", $#{$toons} + 1,"\n"; 25my $comic; 26my $num=0; 27my $name; 28foreach (@$toons) { 29 $num++; 30 $name = $_->{Name}; 31 print "$name\n"; 32 $comic->{$name} = new Image::Grab; 33 $comic->{$name}->url($_->{url}) if defined $_->{url}; 34 $comic->{$name}->refer($_->{refer}) if defined $_->{refer}; 35 $comic->{$name}->regexp($_->{regexp}) if defined $_->{regexp}; 36 $comic->{$name}->search_url($_->{search_url}) if defined $_->{search_url}; 37 38 if(defined $comic->{$name}->expand_url) { 39 print "\turl: ", $_->{url}, "\n" if defined $_->{url}; 40 print "\trefer: ", $_->{refer}, "\n" if defined $_->{refer}; 41 print "\tregexp: ", $_->{regexp}, "\n" if defined $_->{regexp}; 42 print "\tsearch_url: ", $_->{search_url}, "\n" if defined $_->{search_url}; 43 print "\treal: ", $comic->{$name}->expand_url(), "\n"; 44# getAllURLs should really be fixed so that it only has to fetch once. 45 print "\t\t", join("\n\t\t", $comic->{$name}->getAllURLs), "\n" if $_->{search_url}; 46 } else { 47 print "not "; 48 } 49 50 print "ok $num\n" if $comic; 51} 52