===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/CurrentTorrents.pl,v
retrieving revision 1.31
retrieving revision 1.33
diff -u -r1.31 -r1.33
--- openbsd/OpenBSDTorrents/CurrentTorrents.pl	2010/02/26 22:58:20	1.31
+++ openbsd/OpenBSDTorrents/CurrentTorrents.pl	2010/03/03 18:15:31	1.33
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-#$RedRiver: CurrentTorrents.pl,v 1.30 2010/02/25 18:03:01 andrew Exp $
+#$RedRiver: CurrentTorrents.pl,v 1.32 2010/03/03 18:13:07 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -194,12 +194,12 @@
 
     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 [$name] [$hash]\n",
-            "\t", $file, "\n";
-    }
+    #if ($reason && $reason ne 'only') {
+    #    print "Keeping $reason instance of [$file] [$hash]\n",
+    #        "\t", $file, "\n";
+    #}
 
     if ( $dir eq $OBT->{DIR_NEW_TORRENT} ) {
         print "Moving $file to current torrents\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},