Changeset 295

Timestamp:

Oct 4, 2017, 5:57:55 PM (7 years ago)

Author:

g7moreau

Message:

• Begin Digest::SHA implementation in order to checksum switch database...

File:

• trunk/klask (modified) (3 diffs)

trunk/klask

@@ -20 +20 @@
 use Socket;
 use List::Util 'shuffle';
+use Digest::SHA qw(sha512_base64);
 
 # apt-get install snmp fping libnet-cidr-lite-perl libnet-netmask-perl libnet-snmp-perl libnetaddr-ip-perl libyaml-perl
@@ -2711 +2712 @@
       }
 
+   my $checksum_data = ''
+   for my $sw_name (keys %SWITCH_DB) {
+      $checksum_data .= join ':', $SWITCH_DB{$sw_name}->{'description'},
+         $SWITCH_DB{$sw_name}->{model},
+         $SWITCH_DB{$sw_name}->{'hostname'},
+         "\n";
+      }
+
    my $switch_connection = {
       output_port       => \%db_switch_output_port,
@@ -2718 +2727 @@
       switch_db         => \%SWITCH_DB,
       timestamp         => $timestamp,
+      checksum          => sha512_base64($checksum_data),
       };