openbsd/OpenBSDTorrents/lib/OpenBSDTorrents.pm - diff

Return to OpenBSDTorrents.pm CVS log

Up to [local] / openbsd / OpenBSDTorrents / lib

version 1.2, 2005/03/22 23:44:43

version 1.4, 2005/03/24 19:51:50

Line 19

&Get_Files_and_Dirs

);

our $BaseDir = '/home/ftp/pub';

our $TorrentDir = '/home/andrew/torrents';

our $BaseName = 'OpenBSD';

# These are regexes that tell what files to skip;

our $SkipDirs = qr/\/patches$/;

Line 47

{

my $basedir = shift;

opendir DIR, $basedir or die "Couldn't opendir $basedir: $!";

my @contents = grep { ! /^\.\.$/ } grep { ! /^\.$/ } readdir DIR;

my @contents = sort grep { ! /^\.\.$/ } grep { ! /^\.$/ } readdir DIR;

closedir DIR;

my @dirs = grep { -d "$basedir/$_" } @contents;