===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/ServerTorrents.pl,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -r1.23 -r1.24
--- openbsd/OpenBSDTorrents/ServerTorrents.pl	2007/10/01 21:17:23	1.23
+++ openbsd/OpenBSDTorrents/ServerTorrents.pl	2007/11/02 03:36:01	1.24
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-#$RedRiver: ServerTorrents.pl,v 1.22 2006/07/24 18:03:53 andrew Exp $
+#$RedRiver: ServerTorrents.pl,v 1.23 2007/10/01 20:17:23 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -159,7 +159,7 @@
 	$comment =~ s/\n.*$//s;
 	
 	my $filename = 
-		 $comment =~ /Files from (.+)/ ? $1
+		 $comment =~ /($OBT->{BASENAME}.+)/ ? $1
 		:                                $file;
 	$filename =~ s#/# #g;
 	$filename =~ s/\.torrent\z//;