version 1.26, 2010/03/22 21:16:02 |
version 1.27, 2010/05/19 23:19:43 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# -T |
# -T |
#$RedRiver: MakeTorrents.pl,v 1.25 2010/03/22 20:15:06 andrew Exp $ |
#$RedRiver: MakeTorrents.pl,v 1.26 2010/03/22 20:16:02 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
use diagnostics; |
use diagnostics; |
|
|
#return undef if $basedir =~ /packages/; |
#return undef if $basedir =~ /packages/; |
|
|
my ( $dirs, $files ) = Get_Files_and_Dirs($basedir); |
my ( $dirs, $files ) = Get_Files_and_Dirs($basedir); |
|
if ( -f $basedir) { |
|
$basedir =~ s{/[^/]+$}{}xms; |
|
} |
if (@$files) { |
if (@$files) { |
Make_Torrent( $basedir, $files ); |
Make_Torrent( $basedir, $files ); |
} |
} |
|
|
die "Invalid characters in dir '$basedir'"; |
die "Invalid characters in dir '$basedir'"; |
} |
} |
|
|
if ( $#{$files} < $OBT->{MIN_FILES} ) { |
if ( $#{$files} < $OBT->{MIN_FILES} |
|
&& $files->[0] !~/$INSTALL_ISO_REGEX/xms ) { |
print "Too few files in $basedir, skipping . . .\n"; |
print "Too few files in $basedir, skipping . . .\n"; |
return undef; |
return undef; |
} |
} |