Return to NewTorrents.pl CVS log | Up to [local] / openbsd / OpenBSDTorrents |
version 1.11, 2007/02/07 23:09:05 | version 1.12, 2007/10/01 21:17:23 | ||
---|---|---|---|
|
|
||
#!/usr/bin/perl -T | #!/usr/bin/perl -T | ||
#$RedRiver: NewTorrents.pl,v 1.10 2006/07/24 18:03:53 andrew Exp $ | #$RedRiver: NewTorrents.pl,v 1.11 2007/02/07 23:09:05 andrew Exp $ | ||
use strict; | use strict; | ||
use warnings; | use warnings; | ||
use diagnostics; | use diagnostics; | ||
|
|
||
{ | { | ||
my $dir = shift; | my $dir = shift; | ||
return undef unless $dir; | return undef unless $dir; | ||
$dir =~ s/^.*$OBT->{BASENAME}\///; | |||
my $should_fork = 1; | my $should_fork = 1; | ||