![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to NewTorrents.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / openbsd / OpenBSDTorrents|
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; | ||