Changeset 47
- Timestamp:
- 10/08/06 21:00:32 (7 years ago)
- Files:
-
- 2 modified
-
grabbers/d1 (modified) (4 diffs)
-
status (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
grabbers/d1
r43 r47 6 6 =head1 NAME 7 7 8 tv_grab_au (0.6.2. 1) - Grab TV listings for Australia.8 tv_grab_au (0.6.2.2) - Grab TV listings for Australia. 9 9 10 10 =head1 SYNOPSIS … … 117 117 use XMLTV::Usage <<END 118 118 119 $0 (0.6.2. 1): grab Australian television listings in XMLTV format119 $0 (0.6.2.2): grab Australian television listings in XMLTV format 120 120 To configure: $0 --configure [--config-file FILE] 121 121 To grab listings: $0 [--config-file FILE] [--output FILE] [--days N] … … 179 179 180 180 # set user-agent manually 181 $XMLTV::Get_nice::ua->agent("tv_grab_au/0.6.2 ");181 $XMLTV::Get_nice::ua->agent("tv_grab_au/0.6.2.2"); 182 182 183 183 my ($opt_days, $opt_offset, $opt_help, $opt_output, … … 243 243 my $proc_time = ParseDate('now'); 244 244 245 print "d1 v0.6.2. 1tv_grab_au\n";245 print "d1 v0.6.2.2 tv_grab_au\n"; 246 246 printf "d1 grabs tv guide data from Development 1 Australia (www.d1.com.au).\n" if $opt_desc; 247 247 exit(0) if ($opt_version || $opt_desc); 248 248 249 if (($opt_ timezone) && ($opt_channels_file) && ($opt_region) && ($opt_output)) {249 if (($opt_channels_file) && ($opt_region) && ($opt_output)) { 250 250 # called from shepherd! 251 print STDERR "\td1 tv_grab_au - (version 0.6.2.1) - called from shepherd!\n\n";252 253 $BASE_TZ = "+".$opt_timezone;254 Date_Init("TZ=$BASE_TZ");251 if ($opt_timezone) { 252 $BASE_TZ = "+".$opt_timezone; 253 Date_Init("TZ=$BASE_TZ"); 254 } 255 255 256 256 # based on $opt_region set 'region' appropriately -
status
r45 r47 6 6 yahoo7widget:1.53:grabber 7 7 jrobbo:0.01:grabber 8 d1:0.6.2. 1:grabber8 d1:0.6.2.2:grabber
