openbsd/OpenBSDTorrents/lib/OpenBSDTorrents.pm - diff

Return to OpenBSDTorrents.pm CVS log

Up to [local] / openbsd / OpenBSDTorrents / lib

version 1.11, 2010/03/03 21:15:20

version 1.15, 2010/05/26 20:41:15

Line 1

package OpenBSDTorrents;

#$RedRiver: OpenBSDTorrents.pm,v 1.10 2007/11/02 02:36:01 andrew Exp $

#$RedRiver: OpenBSDTorrents.pm,v 1.14 2010/05/19 22:19:43 andrew Exp $

use 5.008005;

use strict;

use warnings;

Line 13

our @EXPORT = qw(

$OBT

$INSTALL_ISO_REGEX

$SONG_REGEX

&Name_Torrent

&Get_Files_and_Dirs

&justme

Line 20

Line 21

my $config_file = '/etc/OpenBSDTorrents.conf';

our $OBT = Config();

our $INSTALL_ISO_REGEX = qr/install\d+\.iso/;

our $INSTALL_ISO_REGEX = qr/ \b install\d+\.iso \b /xms;

our $SONG_REGEX = qr/^song.*\.([^\.]+)$/xms;

sub Config

{

Line 61

Line 63

sub Get_Files_and_Dirs

{

my $basedir = shift;

if ( -f $basedir ) {

$basedir =~ s{^.*/}{}xms;

return [], [ $basedir ];

}

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

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

closedir DIR;