Changeset 25

Show
Ignore:
Timestamp:
10/04/06 20:41:51 (7 years ago)
Author:
max
Message:

Change in online file locations (site now auto-updates from SVN repository).

Files:
2 modified

Legend:

Unmodified
Added
Removed

  • shepherd

    r24 r25  
    33# "Shepherd" 
    44 
    5 my $version = '0.2.6'; 
     5my $version = '0.2.7'; 
    66 
    77# A wrapper for various Aussie TV guide data grabbers 
    … …  
    1919# 0.2.2   : --check 
    2020# 0.2.3   : Bugfix: archives correctly 
    21 # 0.2.5   : multi-grabber (potentially with partial data) 
    22 # 0.2.6   : postprocessor support 
    23 # 
     21# 0.2.5   : Multi-grabber (potentially with partial data) 
     22# 0.2.6   : Postprocessor support 
     23# 0.2.7   : Changed online file structure 
    2424 
    2525BEGIN { *CORE::GLOBAL::die = \&my_die; } 
    … …  
    4444my $progname = 'shepherd'; 
    4545 
    46 my $HOME = 'http://www.whuffy.com'; 
     46my $HOME = 'http://www.whuffy.com/shepherd'; 
    4747 
    4848my $invoked = Cwd::realpath($0); 
    … …  
    672672    foreach my $site (split(/,/,$sites)) { 
    673673        printf "Fetching $site/$rdir/$proggy-$latestversion.\n"; 
    674         $rc = LWP::Simple::getstore("$site/$rdir/$proggy-$latestversion", $newfile); 
     674        $rc = LWP::Simple::getstore("$site/$rdir/$proggy", $newfile); 
    675675        last if (is_success($rc)); 
    676676 
    677         print "Failed to retrieve $site/$rdir/$proggy-$latestversion.\n"; 
     677        print "Failed to retrieve $site/$rdir/$proggy.\n"; 
    678678    } 
    679679    return if (!is_success($rc)); 

  • status

    r8 r25  
    1 shepherd:0.2.6:shepherd 
     1shepherd:0.2.7:shepherd 
    22rex:3.0.1:grabber 
    33oztivo:0.2:grabber