===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/MakeTorrents.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- openbsd/OpenBSDTorrents/MakeTorrents.pl	2005/03/22 01:14:11	1.1
+++ openbsd/OpenBSDTorrents/MakeTorrents.pl	2005/03/22 04:19:03	1.2
@@ -1,4 +1,5 @@
 #!/usr/bin/perl -T
+#$Id: MakeTorrents.pl,v 1.2 2005/03/22 04:19:03 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -9,7 +10,7 @@
 
 my $BaseDir  = '/home/ftp/pub';
 my $BaseName = 'OpenBSD';
-my $OutDir   = '/home/andrew';
+my $OutDir   = '/home/andrew/torrents';
 my $BTMake   = '/usr/local/bin/btmake';
 my $Tracker  = 'http://OpenBSD.somedomain.net/announce.php';
 
@@ -51,7 +52,7 @@
 	}
 
 	foreach (@$files) {
-		if (/^([\w\.-]+)$/) {
+		if (/^([^\/]+)$/) {
 			$_ = "$basedir/$1";
 		} else {
 			die "Invalid characters in file '$_' in '$basedir'";
@@ -67,6 +68,9 @@
 	print "Creating $torrent\n";
 
 	system($BTMake, 
+	       '-C',
+	       '-c', "Created by andrew fresh <andrew\@mad-techies.org>\n" . 
+	             "See http://OpenBSD.somedomain.net/",
 	       '-n', $BaseName,
 	       '-o', "$OutDir/$torrent",
 	       '-a', $Tracker,