Changeset 151


Ignore:
Timestamp:
Jun 8, 2016, 6:59:53 PM (8 years ago)
Author:
g7moreau
Message:
  • Add sub computerdb_load and update switch_port_hr if not defined...
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/klask

    r150 r151  
    77use strict;
    88use warnings;
    9 use version; our $VERSION = qv('0.5.5');
     9use version; our $VERSION = qv('0.5.6');
    1010
    1111use Readonly;
     
    681681   }
    682682
     683# Load computer database
    683684sub computerdb_load {
    684685   my $computerdb = YAML::Syck::LoadFile("$KLASK_DB_FILE");
    685    
     686
     687   LOOP_ON_IP_ADDRESS:
     688   for my $ip (keys %{$computerdb}) {
     689
     690      next LOOP_ON_IP_ADDRESS if exists $computerdb->{$ip}{switch_port_hr};
     691     
     692      $computerdb->{$ip}{switch_port_hr} = $computerdb->{$ip}{switch_port};
     693      }
     694
    686695   return $computerdb;
    687696   }
     
    784793
    785794   fast_ping(@computer);
    786    my $computerdb = YAML::Syck::LoadFile("$KLASK_DB_FILE");
     795   my $computerdb = computerdb_load();
    787796
    788797   LOOP_ON_COMPUTER:
     
    812821   my @mac = map { normalize_mac_address($_) } @_;
    813822
    814    my $computerdb = YAML::Syck::LoadFile("$KLASK_DB_FILE");
     823   my $computerdb = computerdb_load();
    815824
    816825   LOOP_ON_MAC:
     
    846855
    847856   my $computerdb = {};
    848       $computerdb = YAML::Syck::LoadFile("$KLASK_DB_FILE") if -e "$KLASK_DB_FILE";
     857      $computerdb = computerdb_load() if -e "$KLASK_DB_FILE";
    849858   my $timestamp = time;
    850859
     
    10201029   test_maindb_environnement();
    10211030
    1022    my $computerdb = YAML::Syck::LoadFile("$KLASK_DB_FILE");
     1031   my $computerdb = computerdb_load();
    10231032
    10241033   LOOP_ON_COMPUTER:
     
    11631172   test_maindb_environnement();
    11641173
    1165    my $computerdb = YAML::Syck::LoadFile("$KLASK_DB_FILE");
     1174   my $computerdb = computerdb_load();
    11661175
    11671176   printf "%-27s %-4s            %-40s %-15s %-18s %-16s %s\n", qw(Switch Port Hostname-FQ IPv4-Address MAC-Address Date VLAN);
     
    11991208   test_maindb_environnement();
    12001209
    1201    my $computerdb = YAML::Syck::LoadFile("$KLASK_DB_FILE");
     1210   my $computerdb = computerdb_load();
    12021211
    12031212#<link rel="stylesheet" type="text/css" href="style-klask.css" />
     
    14121421   test_maindb_environnement();
    14131422
    1414    my $computerdb = YAML::Syck::LoadFile("$KLASK_DB_FILE");
     1423   my $computerdb = computerdb_load();
    14151424
    14161425   # create a database with the most recent computer by switch port
     
    17001709
    17011710sub cmd_ip_location {
    1702    my $computerdb = YAML::Syck::LoadFile("$KLASK_DB_FILE");
     1711   my $computerdb = computerdb_load();
    17031712
    17041713   LOOP_ON_IP_ADDRESS:
     
    17471756
    17481757   my $computerdb = {};
    1749       $computerdb = YAML::Syck::LoadFile("$KLASK_DB_FILE") if -e "$KLASK_DB_FILE";
     1758      $computerdb = computerdb_load() if -e "$KLASK_DB_FILE";
    17501759   my $timestamp = time;
    17511760
Note: See TracChangeset for help on using the changeset viewer.