Can note the reason when we start seeding tho

afresh1 · Sep 3, 2012 · 762d2ec · 762d2ec
1 parent 3ac732e
commit 762d2ec
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/CurrentTorrents.pl b/CurrentTorrents.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-#$RedRiver: CurrentTorrents.pl,v 1.31 2010/02/26 22:58:20 andrew Exp $
+#$RedRiver: CurrentTorrents.pl,v 1.32 2010/03/03 18:13:07 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -194,7 +194,7 @@
 
     my $name  = $keep{$hash}{name};
     my $epoch = $keep{$hash}{epoch};
-    my $reason = $keep{$hash}{reason};
+    my $reason = $keep{$hash}{reason} ? $keep{$hash}{reason} . q{ } : q{};
 
     #if ($reason && $reason ne 'only') {
     #    print "Keeping $reason instance of [$file] [$hash]\n",
@@ -217,7 +217,7 @@
     }
 
     if ( !$seeding{$hash} ) {
-        print "Starting seed of [$file] [$hash]\n";
+        print "Starting seed of $reason[$file] [$hash]\n";
         if (!$client->add(
                 filename     => "$dir/$file",
                 download_dir => $OBT->{DIR_FTP},