Changeset 274

Timestamp:

Sep 22, 2017, 6:28:20 PM (7 years ago)

Author:

g7moreau

Message:

• force switch_port_id to be numeric in upgrade computer database

File:

• trunk/klask (modified) (1 diff)

trunk/klask

@@ -850 +850 @@
    for my $ip (keys %{$computerdb}) {
 
-      # Rename switch_port -> switch_port_id (2017/09/15)
+      # Rename switch_port -> switch_port_id (2017/09/15)
       if (not exists $computerdb->{$ip}{'switch_port_id' and exists $computerdb->{$ip}{'switch_port'}}) {
          $computerdb->{$ip}{'switch_port_id'} = $computerdb->{$ip}{'switch_port'} if defined $computerdb->{$ip}{'switch_port'};
+         $computerdb->{$ip}{'switch_port_id'} = 0 if $computerdb->{$ip}{'switch_port_id'} !~ m/^\d+$/; # force numeric
          }
       delete $computerdb->{$ip}{'switch_port'} if exists $computerdb->{$ip}{'switch_port'};