| version 1.14, 2005/05/05 22:45:03 |
version 1.21, 2006/11/06 23:17:59 |
|
|
| #!/usr/bin/perl -T |
#!/usr/bin/perl |
| #$Id$ |
# -T |
| |
#$RedRiver: MakeTorrents.pl,v 1.20 2006/07/24 18:03:53 andrew Exp $ |
| use strict; |
use strict; |
| use warnings; |
use warnings; |
| use diagnostics; |
use diagnostics; |
|
|
| return 1 if $StartDir ne $OBT->{BASENAME}; |
return 1 if $StartDir ne $OBT->{BASENAME}; |
| |
|
| foreach my $subdir (@$dirs) { |
foreach my $subdir (@$dirs) { |
| next if $subdir eq '.'; |
next if $subdir =~ /^\./; |
| next if $subdir eq '..'; |
|
| Process_Dir("$basedir/$subdir") |
Process_Dir("$basedir/$subdir") |
| } |
} |
| } |
} |
|
|
| |
|
| my $torrent_with_path = $OBT->{DIR_NEW_TORRENT} . "/$torrent"; |
my $torrent_with_path = $OBT->{DIR_NEW_TORRENT} . "/$torrent"; |
| |
|
| my $t = BT::MetaInfo::Cached->new(); |
my $t = BT::MetaInfo::Cached->new( |
| |
{ |
| |
cache_root => '/tmp/OBTFileCache' |
| |
} |
| |
); |
| |
|
| $t->name($name); |
$t->name($name); |
| $t->announce($announce); |
$t->announce($announce); |
| unless ($announce =~ m!^http://[^/]+/!i) { |
unless ($announce =~ m!^http://[^/]+/!i) { |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to MakeTorrents.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / openbsd / OpenBSDTorrents