[BACK]Return to MakeTorrents.pl CVS log [TXT][DIR] Up to [local] / openbsd / OpenBSDTorrents

Diff for /openbsd/OpenBSDTorrents/MakeTorrents.pl between version 1.22 and 1.24

version 1.22, 2007/11/02 03:36:01 version 1.24, 2010/03/08 20:19:37
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
 # -T  # -T
 #$RedRiver: MakeTorrents.pl,v 1.21 2006/11/06 23:17:59 andrew Exp $  #$RedRiver: MakeTorrents.pl,v 1.23 2010/02/25 17:54:13 andrew Exp $
 use strict;  use strict;
 use warnings;  use warnings;
 use diagnostics;  use diagnostics;
Line 92 
Line 92 
   
         print "Creating $torrent\n";          print "Creating $torrent\n";
   
         $comment .= "Created by andrew fresh (andrew\@mad-techies.org)\n" .          $comment .= "Created by andrew fresh (andrew\@afresh1.com)\n" .
                       "http://OpenBSD.somedomain.net/";                        "http://OpenBSD.somedomain.net/";
   
         eval { btmake($torrent, $comment, \@good_files); };          eval { btmake($torrent, $comment, \@good_files); };
Line 150 
Line 150 
     #}      #}
     $t->piece_length($piece_len);      $t->piece_length($piece_len);
     $t->creation_date(time);      $t->creation_date(time);
     print "Checksumming files. This may take a little while...\n";      #print "Checksumming files. This may take a little while...\n";
   
     # Can't use this,  have to do this manually because      # Can't use this,  have to do this manually because
     # we need to have the multi-file type of torrent      # we need to have the multi-file type of torrent
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.24
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>