Changeset 642

Timestamp:

05/01/07 21:02:15 (6 years ago)

Author:

max

Message:

oztivo: exit with non-zero status on bad configuration

Files:

• grabbers/oztivo (modified) (3 diffs)
• status (modified) (1 diff)

grabbers/oztivo

@@ -3 +3 @@
 # OzTivo grabber
 
-my $version = '0.25';
+my $version = '0.26';
 
 # Requires configuration!
@@ -36 +36 @@
 #         in sync with Sydney
 # 0.25  : I think I corrected the wrong way
+# 0.26  : Exit with non-zero status on bad configuration
 
 use strict;
@@ -276 +277 @@
     my $username = <>;
     chomp $username;
+    unless ($username)
+    {
+        print "No username supplied. Exiting configuration.\n";
+        exit 3;
+    }
     print "Password? ";
     my $pw = <>;
     chomp $pw;
-
+    unless ($pw)
+    {
+        print "No password supplied. Exiting configuration.\n";
+        exit 3;
+    }
     print "Creating config file $config_file...\n";
     open (CONF, ">$config_file")

status

@@ -5 +5 @@
 grabber         abc2_website        2.11
 grabber         sbsnews_website     0.13
-grabber         oztivo              0.25
+grabber         oztivo              0.26
 grabber         jrobbo              0.09
 grabber         ninemsn             0.14