===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/NewTorrents.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- openbsd/OpenBSDTorrents/NewTorrents.pl	2005/03/25 03:13:45	1.3
+++ openbsd/OpenBSDTorrents/NewTorrents.pl	2005/03/28 23:36:44	1.4
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-#$Id: NewTorrents.pl,v 1.3 2005/03/25 03:13:45 andrew Exp $
+#$Id: NewTorrents.pl,v 1.4 2005/03/28 23:36:44 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -33,7 +33,7 @@
 }
 StartTorrent($last_dir);
 
-sleep(90);
+sleep(300);
 
 StartTorrent('skip');
 
@@ -45,11 +45,12 @@
 
 	if ($dir ne 'skip') {
 		$dir = "$BaseName/$dir";
+	} else {
+		$dir = '';
 	}
 
 	# This actually needs to be a sub that forks off 
 	# the generation of this, and the running of the update script.
-	print "MakeTorrents.pl $BaseName/$dir\n";
 
 	defined(my $pid = fork)	or die "Can't fork: $!";
 
@@ -63,5 +64,6 @@
 	#                        or die "Can't write /dev/null: $!";
 	#open STDERR, '>&STDOUT'	or die "Can't dup stdout: $!";
 
-	exec('/home/andrew/OpenBSDTorrents/regen.sh', "$dir");
+	print "Making torrents for $dir\n";
+	exec($HomeDir . '/regen.sh', "$dir");
 }