Changeset 13

Timestamp:

Jan 31, 2008, 11:37:27 AM (17 years ago)

Author:

g7moreau

Message:

• Suppress the last call to a hardcore router address
• Rename global variable KLASK_DB -> KLASK_DB_FILE and so on

File:

• trunk/klask (modified) (14 diffs)

trunk/klask

@@ -13 +13 @@
 # libcrypt-des-perl libcrypt-hcesha-perl   libdigest-hmac-perl
 
-my $KLASK_DB  = '/var/cache/klask/klaskdb';
-my $KLASK_SW  = '/var/cache/klask/switchdb';
-my $KLASK_CFG = '/etc/klask.conf';
-
-my $KLASK_CFG = YAML::LoadFile("$KLASK_CFG");
+my $KLASK_DB_FILE  = '/var/cache/klask/klaskdb';
+my $KLASK_SW_FILE  = '/var/cache/klask/switchdb';
+my $KLASK_CFG_FILE = '/etc/klask.conf';
+
+my $KLASK_CFG = YAML::LoadFile("$KLASK_CFG_FILE");
 
 my %DEFAULT = %{$KLASK_CFG->{default}};
@@ -317 +317 @@
 
    my $ret = {};
-#   $ret->{unknow} = {};
-#   $ret->{unknow}{description} = "unknow";
-#   $ret->{unknow}{port} = "0";
 
    return $ret if $arp eq 'unknow';
@@ -325 +322 @@
    for my $sw (@SWITCH) {
       $switch_port_count{$sw->{hostname}} = {} if not exists $switch_port_count{$sw->{hostname}};
-#      $sw->{_port} = {} if not exists $sw->{_port};
       }
 
    my $research = "1.3.6.1.2.1.17.4.3.1.2".arp_hex_to_dec($arp);
-#print " $arp -> $research\n";
    LOOP_ON_ALL_SWITCH:
    for my $sw (@SWITCH) {
       my ($session, $error) = Net::SNMP->session( %{$sw->{local_session}} );
-print "$error \n" if $error;
-#         -hostname   => $sw->{hostname},
-#         -community  => $sw->{community} || $DEFAULT{community} || 'public',
-#         -port       => $sw->{snmpport}  || $DEFAULT{snmpport}  || 161
-#         );
-#print "$sw->{hostname} --  $research \n";
+      print "$error \n" if $error;
+
       my $result = $session->get_request(
          -varbindlist => [$research]
          );
+
       if(defined($result) and $result->{$research} ne 'noSuchInstance'){
-#print "+++ $sw->{hostname} -> $result->{$research}\n" ;
          my $swport = $result->{$research};
 
@@ -352 +343 @@
 
          $switch_port_count{$sw->{hostname}}->{$swport}++;
-#         $sw->{_port}{$swport}++;
-         }
-      else {
-#print "$sw->{hostname} --  $research --".$session->error()."\n";
          }
 
       $session->close;
       }
-#print "end \n";
    return $ret;
    }
@@ -482 +468 @@
 
    fastping(@computer);
-   my $computerdb = YAML::LoadFile("$KLASK_DB");
+   my $computerdb = YAML::LoadFile("$KLASK_DB_FILE");
    
    LOOP_ON_COMPUTER:
@@ -510 +496 @@
       @network = get_list_network() if not @network;
 
-   my $computerdb = YAML::LoadFile("$KLASK_DB");
+   my $computerdb = YAML::LoadFile("$KLASK_DB_FILE");
    my $timestamp = time;
    
@@ -647 +633 @@
    printf "\n";
 
-   my $dirdb = $KLASK_DB;
+   my $dirdb = $KLASK_DB_FILE;
       $dirdb =~ s#/[^/]*$##;
    mkdir "$dirdb", 0755 unless -d "$dirdb";
-   YAML::DumpFile("$KLASK_DB", $computerdb);
+   YAML::DumpFile("$KLASK_DB_FILE", $computerdb);
 
    for my $one_computer (keys %computer_not_detected) {
@@ -662 +648 @@
    my @computer = @_;
    
-   my $computerdb = YAML::LoadFile("$KLASK_DB");
+   my $computerdb = YAML::LoadFile("$KLASK_DB_FILE");
 
    LOOP_ON_COMPUTER:
@@ -672 +658 @@
       }
 
-   my $dirdb = $KLASK_DB;
+   my $dirdb = $KLASK_DB_FILE;
       $dirdb =~ s#/[^/]*$##;
    mkdir "$dirdb", 0755 unless -d "$dirdb";
-   YAML::DumpFile("$KLASK_DB", $computerdb);
+   YAML::DumpFile("$KLASK_DB_FILE", $computerdb);
    }
 
 sub cmd_exportdb {
-   my $computerdb = YAML::LoadFile("$KLASK_DB");
+   my $computerdb = YAML::LoadFile("$KLASK_DB_FILE");
 
    printf "%-24s %-4s            %-30s %-15s %-18s %-s\n", qw(Switch Port Hostname IPv4-Address MAC-Address Date);
@@ -711 +697 @@
 
 sub cmd_iplocation {
-   my $computerdb = YAML::LoadFile("$KLASK_DB");
+   my $computerdb = YAML::LoadFile("$KLASK_DB_FILE");
 
    LOOP_ON_IP_ADDRESS:
@@ -768 +754 @@
 #   for my $one_computer ('194.254.66.254') {
    for my $one_router ( get_list_main_router(get_list_network()) ) {
-      my %resol_arp = resolve_ip_arp_host($one_router,'*','low');            #resolution arp
+      my %resol_arp = resolve_ip_arp_host($one_router,'*','low');            # resolution arp
       next DETECT_ALL_ROUTER if $resol_arp{mac_address} eq 'unknow';
       
-      $where{$resol_arp{ipv4_address}} = find_all_switch_port($resol_arp{mac_address}); #retrouve les emplacements
+      $where{$resol_arp{ipv4_address}} = find_all_switch_port($resol_arp{mac_address}); # retrouve les emplacements des routeurs
       }
 
    ALL_ROUTER_IP_ADDRESS:
-   for my $ip (Net::Netmask::sort_by_ip_address('194.254.66.254')) {
-   
-      next ALL_ROUTER_IP_ADDRESS if not exists $where{$ip};
+   for my $ip (Net::Netmask::sort_by_ip_address(keys %where)) { # '194.254.66.254')) {
+   
+      next ALL_ROUTER_IP_ADDRESS if not exists $where{$ip}; # /a priori/ idiot car ne sers à rien...
 
       ALL_SWITCH_CONNECTED:
@@ -932 +918 @@
       };
       
-   YAML::DumpFile("$KLASK_SW", $switch_connection);
+   YAML::DumpFile("$KLASK_SW_FILE", $switch_connection);
    }
 
@@ -957 +943 @@
 sub cmd_exportsw_txt {
 
-   my $switch_connection = YAML::LoadFile("$KLASK_SW");
+   my $switch_connection = YAML::LoadFile("$KLASK_SW_FILE");
 
    my %db_switch_output_port       = %{$switch_connection->{output_port}};
@@ -992 +978 @@
 sub cmd_exportsw_dot {
 
-   my $switch_connection = YAML::LoadFile("$KLASK_SW");
+   my $switch_connection = YAML::LoadFile("$KLASK_SW_FILE");
    
    my %db_switch_output_port       = %{$switch_connection->{output_port}};