Changeset 423

Timestamp:

01/07/07 13:54:07 (6 years ago)

Author:

max

Message:

More descriptive dying for Rex

Files:

• grabbers/rex (modified) (7 diffs)
• status (modified) (1 diff)

grabbers/rex

@@ -3 +3 @@
 # "Rex"
 
-my $version  = '3.3.8';
+my $version  = '3.3.9';
 
 # An Australian TV Guide Grabber (a.k.a. tv_grab_au)
@@ -70 +70 @@
 # 3.3.7   : Bugfix : now runs from current dir, not ~/.rex/
 # 3.3.8   : Bugfix : better handling of failed downloads & parses
+# 3.3.9   : Bugfix : more descriptive dies
 
 use strict;
@@ -373 +374 @@
   {
     my $fh = new IO::File(">" . $opt->{output})  
-             or die "can't open " . $opt->{output} . ": $!";
+             or die "Can't open " . $opt->{output} . ": $!";
     $writer_args{OUTPUT} = $fh;
   }
@@ -598 +599 @@
               "network problem. Exiting.\n";
         print stats(1);
-        exit 1;
+        die "No connectivity";
     }
     return undef;
@@ -883 +884 @@
             "Exiting.\n";
       print stats(1);
-      exit 1;
+      die "Major parsing error";
   }
   return 0;
@@ -921 +922 @@
         no warnings 'all';
         eval <>;
-        die "$@" if ($@);
+        die "Can't parse channels file: $@" if ($@);
     }
     else
@@ -1042 +1043 @@
 }
 
-sub Ymd { UnixDate($_[0], "%Y-%m-%d") or die "problem in Ymd($_[0])" }
+sub Ymd { UnixDate($_[0], "%Y-%m-%d") or die "Date problem in Ymd($_[0])" }
 
 sub strip_whitespace 

status

@@ -1 +1 @@
 application     shepherd            0.4.30
 grabber         yahoo7widget        1.71
-grabber         rex                 3.3.8
+grabber         rex                 3.3.9
 grabber         abc_website         2.03
 grabber         abc2_website        2.03