===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/MakeTorrents.pl,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -r1.21 -r1.22
--- openbsd/OpenBSDTorrents/MakeTorrents.pl	2006/11/06 23:17:59	1.21
+++ openbsd/OpenBSDTorrents/MakeTorrents.pl	2007/11/02 03:36:01	1.22
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 # -T
-#$RedRiver: MakeTorrents.pl,v 1.20 2006/07/24 18:03:53 andrew Exp $
+#$RedRiver: MakeTorrents.pl,v 1.21 2006/11/06 23:17:59 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -50,8 +50,15 @@
 {
         my $basedir = shift;
         my $files   = shift;
+        my $ignore_too_few = shift || 0;
 
-        if ($#{ $files } < $OBT->{MIN_FILES}) {
+	my $torrent_base = $basedir;
+        my $comment = "Files from $torrent_base\n";
+	if ($ignore_too_few && $files->[0] =~ /$INSTALL_ISO_REGEX/) {
+		$torrent_base = "$basedir/$files->[0]";
+		$comment = "$torrent_base\n";
+	}
+        elsif ($#{ $files } < $OBT->{MIN_FILES}) {
                 print "Too few files in $basedir, skipping . . .\n";
                 return undef;
         }
@@ -62,23 +69,33 @@
                 die "Invalid characters in dir '$basedir'";
         }
 
-        foreach (@$files) {
-                if (/^([^\/]+)$/) {
-                        $_ = "$basedir/$1";
-                } else {
-                        die "Invalid characters in file '$_' in '$basedir'";
+	my @good_files;
+        foreach my $file (@$files) {
+		if ((!$ignore_too_few) && $file =~ /$INSTALL_ISO_REGEX/) {
+			my @f = ($file);
+			#foreach my $f (@$files) {
+			#	if ($f =~ /INSTALL|MD5/) {
+			#		push @f, $f;
+			#	}
+			#}
+			Make_Torrent($basedir, \@f, 1)
+		}
+                elsif ($file =~ /^([^\/]+)$/) {
+                       	push @good_files, "$basedir/$1";
+                } 
+		else {
+                        die "Invalid characters in file '$file' in '$basedir'";
                 }
         }
 
-        my $torrent = Name_Torrent($basedir);
+        my $torrent = Name_Torrent($torrent_base);
 
         print "Creating $torrent\n";
 
-        my $comment = "Files from $basedir\n" .
-                      "Created by andrew fresh (andrew\@mad-techies.org)\n" .
+	$comment .= "Created by andrew fresh (andrew\@mad-techies.org)\n" .
                       "http://OpenBSD.somedomain.net/";
 
-	eval { btmake($torrent, $comment, $files); };
+	eval { btmake($torrent, $comment, \@good_files); };
 	if ($@) {
 		print "Error creating $torrent\n$@\n";
 	}
@@ -110,6 +127,10 @@
 
     my $torrent_with_path = $OBT->{DIR_NEW_TORRENT} . "/$torrent";
 
+    #if (@$files == 1) {
+        #$name = $files->[0];
+    #}
+
     my $t = BT::MetaInfo::Cached->new(
         {
 		cache_root => '/tmp/OBTFileCache'
@@ -130,7 +151,24 @@
     $t->piece_length($piece_len);
     $t->creation_date(time);
     print "Checksumming files. This may take a little while...\n";
-    $t->set_files(@$files);
+
+    # Can't use this,  have to do this manually because 
+    # we need to have the multi-file type of torrent
+    # even when we have only one file.
+    #$t->set_files(@$files);
+
+    my @file_list;
+    foreach my $f (@$files) {
+    	my $l = (stat("$OBT->{DIR_FTP}/$f"))[7];
+        my @p = split /\//, $f;
+	shift @p;
+	push @file_list, {
+            length => $l,
+            path   => \@p,
+        }
+    }
+    $t->files(\@file_list);
+    $t->make_pieces(@$files);
 
     if ($t->total_size < $OBT->{MIN_SIZE}) {
         print "Skipping smaller than minimum size\n";