===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/MakeTorrents.pl,v
retrieving revision 1.17
retrieving revision 1.20
diff -u -r1.17 -r1.20
--- openbsd/OpenBSDTorrents/MakeTorrents.pl	2005/05/20 01:18:24	1.17
+++ openbsd/OpenBSDTorrents/MakeTorrents.pl	2006/07/24 19:03:53	1.20
@@ -1,5 +1,6 @@
-#!/usr/bin/perl -T
-#$Id: MakeTorrents.pl,v 1.17 2005/05/20 00:18:24 andrew Exp $
+#!/usr/bin/perl
+# -T
+#$RedRiver: MakeTorrents.pl,v 1.19 2006/05/15 18:47:04 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -112,8 +113,7 @@
 
     my $t = BT::MetaInfo::Cached->new(
         {
-            cache_root =>
-            $OBT->{DIR_HOME} . '/FileCache'
+		cache_root => '/tmp/OBTFileCache'
         }
     );
 
@@ -129,7 +129,7 @@
     #    }
     #}
     $t->piece_length($piece_len);
-    $t->creation_date(gmtime);
+    $t->creation_date(time);
     print "Checksumming files. This may take a little while...\n";
     $t->set_files(@$files);