Changeset 1196

Timestamp:

12/26/12 17:40:49 (11 years ago)

Author:

nanardon

Message:

fix la-free-ip script

File:

• trunk/LATMOS-Accounts/bin/la-freeip (modified) (2 diffs)

trunk/LATMOS-Accounts/bin/la-freeip

@@ -3 +3 @@
 use strict;
 use warnings;
-use LATMOS::Accounts::BuildNet;
+use LATMOS::Accounts;
 use Getopt::Long;
 use Pod::Usage;
@@ -50 +50 @@
 =cut
 
-my $LA = LATMOS::Accounts::BuildNet->new($config, noacl => 1);
+@ARGV or pod2usage(1);
+
+my $LA = LATMOS::Accounts->new($config, noacl => 1);
 my $labase = $LA->base($base);
 $labase && $labase->load or die "Cannot load base";