4 |
use warnings; |
use warnings; |
5 |
|
|
6 |
use lib qw( /data/libs/nfo/perl/libs ); |
use lib qw( /data/libs/nfo/perl/libs ); |
7 |
use org::netfrag::shortcuts qw( run_cmd ); |
use shortcuts qw( run_cmd ); |
8 |
use Data::Storage::Handler::File qw( s2f ); |
use Data::Storage::Handler::File::Basic qw( s2f ); |
9 |
use Data::Transform::String qw( getLastPart ); |
use Data::Mungle::Transform::String qw( getLastPart ); |
10 |
|
|
11 |
my $config = { baseurl => "http://cvs.netfrag.org/" }; |
my $config = { baseurl => "http://cvs.netfrag.org/" }; |
12 |
my $wget = "/usr/bin/wget --quiet"; |
my $wget = "/usr/bin/wget --quiet"; |