| 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"; |