Changeset 12

Timestamp:

Jan 31, 2008, 11:19:50 AM (17 years ago)

Author:

g7moreau

Message:

• Rename SWITCH_DB variable to KLASK_CFG

File:

• trunk/klask (modified) (6 diffs)

trunk/klask

@@ -17 +17 @@
 my $KLASK_CFG = '/etc/klask.conf';
 
-my $SWITCH_DB = YAML::LoadFile("$KLASK_CFG");
-
-my %DEFAULT = %{$SWITCH_DB->{default}};
-my @SWITCH  = @{$SWITCH_DB->{switch}};
+my $KLASK_CFG = YAML::LoadFile("$KLASK_CFG");
+
+my %DEFAULT = %{$KLASK_CFG->{default}};
+my @SWITCH  = @{$KLASK_CFG->{switch}};
 
 my %switch_level = ();
@@ -27 +27 @@
    $switch_level{$sw->{hostname}} = $sw->{level} || $DEFAULT{switch_level}  || 2;
    }
-@SWITCH = sort { $switch_level{$b->{hostname}} <=> $switch_level{$a->{hostname}} } @{$SWITCH_DB->{switch}};  
+@SWITCH = sort { $switch_level{$b->{hostname}} <=> $switch_level{$a->{hostname}} } @{$KLASK_CFG->{switch}};  
 
 my %switch_port_count = ();
@@ -366 +366 @@
 sub get_list_network {
 
-   return keys %{$SWITCH_DB->{network}};
+   return keys %{$KLASK_CFG->{network}};
    }
 
@@ -372 +372 @@
    my $network = shift;
 
-   return $SWITCH_DB->{network}{$network}{interface};
+   return $KLASK_CFG->{network}{$network}{interface};
    }
   
@@ -383 +383 @@
 
    for my $net (@network) {
-      my @line  = @{$SWITCH_DB->{network}{$net}{'ip-subnet'}};
+      my @line  = @{$KLASK_CFG->{network}{$net}{'ip-subnet'}};
       for my $cmd (@line) {
          for my $method (keys %$cmd){
@@ -411 +411 @@
 
    for my $net (@network) {
-      push @res, $SWITCH_DB->{network}{$net}{'main-router'};
+      push @res, $KLASK_CFG->{network}{$net}{'main-router'};
       }