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

Diff for /openbsd/OpenBSDTorrents/MakeTorrents.pl between version 1.1 and 1.2

version 1.1, 2005/03/22 01:14:11 version 1.2, 2005/03/22 04:19:03
Line 1 
Line 1 
 #!/usr/bin/perl -T  #!/usr/bin/perl -T
   #$Id$
 use strict;  use strict;
 use warnings;  use warnings;
 use diagnostics;  use diagnostics;
Line 9 
Line 10 
   
 my $BaseDir  = '/home/ftp/pub';  my $BaseDir  = '/home/ftp/pub';
 my $BaseName = 'OpenBSD';  my $BaseName = 'OpenBSD';
 my $OutDir   = '/home/andrew';  my $OutDir   = '/home/andrew/torrents';
 my $BTMake   = '/usr/local/bin/btmake';  my $BTMake   = '/usr/local/bin/btmake';
 my $Tracker  = 'http://OpenBSD.somedomain.net/announce.php';  my $Tracker  = 'http://OpenBSD.somedomain.net/announce.php';
   
Line 51 
Line 52 
         }          }
   
         foreach (@$files) {          foreach (@$files) {
                 if (/^([\w\.-]+)$/) {                  if (/^([^\/]+)$/) {
                         $_ = "$basedir/$1";                          $_ = "$basedir/$1";
                 } else {                  } else {
                         die "Invalid characters in file '$_' in '$basedir'";                          die "Invalid characters in file '$_' in '$basedir'";
Line 67 
Line 68 
         print "Creating $torrent\n";          print "Creating $torrent\n";
   
         system($BTMake,          system($BTMake,
                  '-C',
                  '-c', "Created by andrew fresh <andrew\@mad-techies.org>\n" .
                        "See http://OpenBSD.somedomain.net/",
                '-n', $BaseName,                 '-n', $BaseName,
                '-o', "$OutDir/$torrent",                 '-o', "$OutDir/$torrent",
                '-a', $Tracker,                 '-a', $Tracker,
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>