Changeset 64

Timestamp:

10/10/06 23:41:59 (7 years ago)

Author:

max

Message:

Removed a few useless commented-out lines; cosmetic string change.

Files:

• shepherd (modified) (4 diffs)

shepherd

@@ -341 +341 @@
 
     my $r = int(rand($total));
-#    print "Total score: $total.\nRand: $r.\n";
 
     my $c = 0;
@@ -421 +420 @@
     
     my $match = ($channels_supported =~ /\b$ch\b/);
-#    $match ||= 0;
     my $exceptions = ($channels_supported =~/^-/);
-#    $exceptions ||= 0;
-#       print "M: " . Dumper ($match) . "E:" . Dumper ($exceptions) . "\n";
-#    print "Can $grabber support channel $ch: " . ($match != $exceptions ? 1 : 0) . 
-        #      " (match $match, exceptions: $exceptions).\n";
     return ($match != $exceptions);
 }
@@ -441 +435 @@
         $days_supported = 2;
     }
-#    print "Can $grabber support day $day: " . ($day <= $days_supported) . ".\n";
     return $day <= $days_supported;
 }
@@ -1241 +1234 @@
     my $result = versioncmp($ver, $latestversion);
     if ($result == -1) {
-        print "Upgrading $proggy from v$ver to v$latestversion.\n";
+        print "UPGRADING $proggy from v$ver to v$latestversion.\n";
     } elsif ($result == 1) {
-        print "Downgrading $proggy from v$ver to v$latestversion.\n";
+        print "DOWNGRADING $proggy from v$ver to v$latestversion.\n";
     } else {
         print "Already have latest version of $proggy: v$ver.\n";