version 1.12, 2010/03/22 20:08:48 |
version 1.13, 2010/03/22 21:13:53 |
|
|
package OpenBSDTorrents; |
package OpenBSDTorrents; |
#$RedRiver: OpenBSDTorrents.pm,v 1.11 2010/03/03 21:15:20 andrew Exp $ |
#$RedRiver: OpenBSDTorrents.pm,v 1.12 2010/03/22 19:08:48 andrew Exp $ |
use 5.008005; |
use 5.008005; |
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
our @EXPORT = qw( |
our @EXPORT = qw( |
$OBT |
$OBT |
$INSTALL_ISO_REGEX |
$INSTALL_ISO_REGEX |
$SONGS_REGEX |
$SONG_REGEX |
&Name_Torrent |
&Name_Torrent |
&Get_Files_and_Dirs |
&Get_Files_and_Dirs |
&justme |
&justme |
|
|
my $config_file = '/etc/OpenBSDTorrents.conf'; |
my $config_file = '/etc/OpenBSDTorrents.conf'; |
our $OBT = Config(); |
our $OBT = Config(); |
our $INSTALL_ISO_REGEX = qr/install\d+\.iso/xms; |
our $INSTALL_ISO_REGEX = qr/install\d+\.iso/xms; |
our $SONGS_REGEX = qr/^(song.*\.([^\.]+))$/xms; |
our $SONG_REGEX = qr/^song.*\.([^\.]+)$/xms; |
|
|
sub Config |
sub Config |
{ |
{ |