Re: [misterhouse-users] TV Station Logos

[Craig S. <csc...@ya...>]

My first attempt at this did not work until I changed:

unless (-f "$parmsir}/logos/$1") {

to 

unless (-f "$parms{outdir}/logos/$1") {

I was still was not getting logo files. After looking at the html, the logos
were coming from tvlistings2.zap2it.com (not tvlistings.zap2it.com). So I
changed:

s!http://tvlistings2.zap2it.com/tms_network_logos/([^/]*\.(jpg|gif))!/tv/logos/$1!)
{

to

s!http://tvlistings\d?.zap2it.com/tms_network_logos/([^/]*\(jpg|gif))!/tv/logos/$1!)
{

-Craig

--- David Norwood <jud...@gt...> wrote:
> Here's a mod to get_tv_grid so it will make and display a local copy of TV
> station logos:
> 
> Change this:
> 
>                                 # Discard channel .jpgs
>         $record =~ s!<img .+?\.(jpg|gif)[^>]+?>!!g;
> 
> To this:
> 
>                                 # Make local copy of channel .jpgs
>         if ($record =~
> s!http://tvlistings2.zap2it.com/tms_network_logos/([^/]*\.(jpg|gif))!/tv/log
> os/$1!) {
>             unless (-f "$parmsir}/logos/$1") {
>                 my $req = new HTTP::Request('GET',
>                     "http://tvlistings2.zap2it.com/tms_network_logos/$1");
>                 my $res = $ua->request($req, "$parms{outdir}/logos/$1");
>                 unless ($res->is_success) {
>                     print "  Error: " . $res->status_line . "\n";
>                 }
>             }
>         }
> 
> Make a "logos" subdirectory in your tvdir and "redo" your listings.
> 
> David
> 
> 
> 
> 
> ________________________________________________________
> To unsubscribe from this list, go to:
> http://sourceforge.net/mail/?group_id=1365
> 


__________________________________________________
Do You Yahoo!?
Find a job, post your resume.
http://careers.yahoo.com