From: Ed A. <ep...@us...> - 2003-12-10 21:30:18
|
Update of /cvsroot/xmltv/xmltv/grab/uk_rt In directory sc8-pr-cvs1:/tmp/cvs-serv2569/uk_rt Modified Files: tv_grab_uk_rt.in Log Message: Refactoring: use XMLTV::Get_nice instead of LWP::Simple, with $Delay = 0 where appropriate. Index: tv_grab_uk_rt.in =================================================================== RCS file: /cvsroot/xmltv/xmltv/grab/uk_rt/tv_grab_uk_rt.in,v retrieving revision 1.38 retrieving revision 1.39 diff -C2 -d -r1.38 -r1.39 *** tv_grab_uk_rt.in 19 Nov 2003 22:04:38 -0000 1.38 --- tv_grab_uk_rt.in 10 Dec 2003 21:30:04 -0000 1.39 *************** *** 87,91 **** use XMLTV::Version '$Id$ '; use IO::Socket; - use LWP::Simple; use Date::Manip; use Getopt::Long; --- 87,90 ---- *************** *** 95,98 **** --- 94,98 ---- use XMLTV::Europe_TZ; use XMLTV::Config_file; + use XMLTV::Get_nice; use XMLTV::Usage <<END To configure: $0 --configure [--config-file FILE] *************** *** 149,156 **** ); ! # Check options. First do the undocumented --cache option (to cache ! # get(), which retrieves web pages), then the normal ones. # ! my $using_cache = XMLTV::Memoize::check_argv('get_url'); my ($opt_days, $opt_help, --- 149,157 ---- ); ! # Check options. First do the undocumented --cache option, then the ! # normal ones. # ! my $using_cache ! = XMLTV::Memoize::check_argv('XMLTV::Get_nice::get_nice_aux'); my ($opt_days, $opt_help, *************** *** 440,444 **** sub get_url( $ ) { my $url = shift; ! for (my $tmp = get($url)) { die "cannot get $url" if not defined; tr/\222\222\226/''-/; --- 441,445 ---- sub get_url( $ ) { my $url = shift; ! for (my $tmp = get_nice($url)) { die "cannot get $url" if not defined; tr/\222\222\226/''-/; |