Changeset 110


Ignore:
Timestamp:
Jun 7, 2012, 9:58:43 PM (12 years ago)
Author:
g7moreau
Message:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/klask

    r109 r110  
    1717use Net::CIDR::Lite;
    1818use NetAddr::IP;
    19 use Getopt::Long qw(GetOptions GetOptionsFromArray);
     19use Getopt::Long qw(GetOptions);
    2020use Socket;
    2121use List::Util 'shuffle';
     
    2929my $KLASK_DB_FILE  = "$KLASK_VAR/klaskdb";
    3030my $KLASK_SW_FILE  = "$KLASK_VAR/switchdb";
    31 
    32 #my $DEBUG = 0;
    33 #GetOptionsFromArray(\@ARGV,
    34 #   'debug|d=i'   => \$DEBUG,
    35 #   );
    3631
    3732test_running_environnement();
     
    826821
    827822sub cmd_cleandb {
    828    my @options = @_;
     823   my @ARGV = @_;
    829824
    830825   my $days_to_clean = 15;
     
    832827   my $database_has_changed;
    833828
    834    my $ret = GetOptionsFromArray(\@options,
     829   my $ret = GetOptions(
    835830      'day|d=i'   => \$days_to_clean,
    836831      'verbose|v' => \$verbose,
     
    923918
    924919sub cmd_exportdb {
    925    my @ARGV   = @_;
     920   my @ARGV = @_;
    926921
    927922   my $format = 'txt';
     
    12151210
    12161211sub cmd_ip_free {
    1217    my @vlan_name = @_;
     1212   my @ARGV = @_; # VLAN name with option
    12181213
    12191214   my $days_to_dead = 365 * 2;
     
    12211216   my $verbose;
    12221217
    1223    my $ret = GetOptionsFromArray(\@vlan_name,
     1218   my $ret = GetOptions(
    12241219      'day|d=i'      => \$days_to_dead,
    12251220      'format|f=s'   => \$format,
     
    12341229   $format = 'txt' if not defined $possible_format{$format};
    12351230
     1231   my @vlan_name = @ARGV;
    12361232   @vlan_name = get_list_network() if not @vlan_name;
    12371233
     
    14141410
    14151411sub cmd_updatesw {
    1416    my @options = @_;
     1412   my @ARGV = @_;
    14171413
    14181414   my $verbose;
    14191415
    1420    my $ret = GetOptionsFromArray(\@options,
     1416   my $ret = GetOptions(
    14211417      'verbose|v' => \$verbose,
    14221418      );
     
    16141610
    16151611sub cmd_exportsw {
    1616    my @ARGV   = @_;
     1612   my @ARGV = @_;
    16171613
    16181614   test_switchdb_environnement();
Note: See TracChangeset for help on using the changeset viewer.