===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/CurrentTorrents.pl,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- openbsd/OpenBSDTorrents/CurrentTorrents.pl	2005/06/01 18:52:14	1.19
+++ openbsd/OpenBSDTorrents/CurrentTorrents.pl	2005/06/01 19:01:46	1.20
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-#$Id: CurrentTorrents.pl,v 1.19 2005/06/01 17:52:14 andrew Exp $
+#$Id: CurrentTorrents.pl,v 1.20 2005/06/01 18:01:46 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -162,30 +162,30 @@
 }
 
 
-##print Dump \%keep;
-#foreach my $name (keys %keep) {
-#	foreach my $hash (keys %{ $keep{$name} }) {
-#		my $file = $keep{$name}{$hash}{file};
-#		my $dir  = $keep{$name}{$hash}{dir };
-#		if ($dir eq $OBT->{DIR_NEW_TORRENT}) {
-#			print "Moving $file to current torrents\n";
-#			rename("$dir/$file", $OBT->{DIR_TORRENT} . "/" . $file)
-#				or die "Couldn't rename '$file': $!";
-#
-#			my $name = $keep{$name}{$hash}{name};
-#			my $epoch = $keep{$name}{$hash}{epoch};
-#
-#			if (exists $files{txt}{$name}{$epoch}) { 
-#				my $m_file = $files{txt}{$name}{$epoch}{file};
-#				my $m_dir  = $files{txt}{$name}{$epoch}{dir };
-#				rename(
-#					"$m_dir/$m_file", 
-#					$OBT->{DIR_TORRENT} . "/" . $m_file
-#				) or die "Couldn't rename '$m_file': $!";
-#			}
-#		}
-#	}
-#}
+#print Dump \%keep;
+foreach my $name (keys %keep) {
+	foreach my $hash (keys %{ $keep{$name} }) {
+		my $file = $keep{$name}{$hash}{file};
+		my $dir  = $keep{$name}{$hash}{dir };
+		if ($dir eq $OBT->{DIR_NEW_TORRENT}) {
+			print "Moving $file to current torrents\n";
+			rename("$dir/$file", $OBT->{DIR_TORRENT} . "/" . $file)
+				or die "Couldn't rename '$file': $!";
+
+			my $name = $keep{$name}{$hash}{name};
+			my $epoch = $keep{$name}{$hash}{epoch};
+
+			if (exists $files{txt}{$name}{$epoch}) { 
+				my $m_file = $files{txt}{$name}{$epoch}{file};
+				my $m_dir  = $files{txt}{$name}{$epoch}{dir };
+				rename(
+					"$m_dir/$m_file", 
+					$OBT->{DIR_TORRENT} . "/" . $m_file
+				) or die "Couldn't rename '$m_file': $!";
+			}
+		}
+	}
+}
 
 sub Process_Dir
 {