===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/NewTorrents.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- openbsd/OpenBSDTorrents/NewTorrents.pl	2005/04/01 01:35:56	1.5
+++ openbsd/OpenBSDTorrents/NewTorrents.pl	2005/04/07 00:00:31	1.6
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-#$Id: NewTorrents.pl,v 1.5 2005/04/01 01:35:56 andrew Exp $
+#$Id: NewTorrents.pl,v 1.6 2005/04/06 23:00:31 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -44,7 +44,7 @@
 	return undef unless $dir;
 
 	if ($dir ne 'skip') {
-		$dir = "$BaseName/$dir";
+		$dir = $OBT->{BASENAME} . "/$dir";
 	} else {
 		$dir = '';
 	}
@@ -65,6 +65,6 @@
 	##open STDERR, '>&STDOUT'	or die "Can't dup stdout: $!";
 
 	print "Making torrents for $dir\n";
-	exec($HomeDir . '/regen.sh' . " $dir &");
+	exec($OBT->{DIR_HOME} . '/regen.sh' . " $dir &");
 	#exec($HomeDir . '/regen.sh', "$dir");
 }