source: trunk/klask @ 254

Last change on this file since 254 was 254, checked in by g7moreau, 7 years ago
  • Better dot result
  • Property svn:executable set to *
  • Property svn:keywords set to Date Author Id Rev
File size: 115.5 KB
Line 
1#!/usr/bin/perl -w
2#
3# Copyright (C) 2005-2017 Gabriel Moreau
4#
5# $Id: klask 254 2017-09-08 16:09:52Z g7moreau $
6
7use strict;
8use warnings;
9use version; our $VERSION = qv('0.6.4');
10
11use Readonly;
12use FileHandle;
13use Net::SNMP;
14#use YAML;
15use YAML::Syck;
16use Net::Netmask;
17use Net::CIDR::Lite;
18use NetAddr::IP;
19use Getopt::Long qw(GetOptions);
20use Socket;
21use List::Util 'shuffle';
22
23# apt-get install snmp fping libnet-cidr-lite-perl libnet-netmask-perl libnet-snmp-perl libnetaddr-ip-perl libyaml-perl
24# libcrypt-des-perl libcrypt-hcesha-perl libdigest-hmac-perl
25# arping net-tools fping bind9-host arpwatch
26
27################################################################
28# general initialization
29################################################################
30
31my $KLASK_VAR      = '/var/lib/klask';
32my $KLASK_CFG_FILE = '/etc/klask/klask.conf';
33my $KLASK_DB_FILE  = "$KLASK_VAR/klaskdb";
34my $KLASK_SW_FILE  = "$KLASK_VAR/switchdb";
35
36test_running_environnement();
37
38my $KLASK_CFG = YAML::Syck::LoadFile("$KLASK_CFG_FILE");
39
40my %DEFAULT     = %{$KLASK_CFG->{'default'}};
41my @SWITCH_LIST = @{$KLASK_CFG->{'switch'}};
42
43my %SWITCH_LEVEL = ();
44my %SWITCH_DB    = ();
45LEVEL_OF_EACH_SWITCH:
46for my $sw (@SWITCH_LIST) {
47   $SWITCH_LEVEL{$sw->{hostname}} = $sw->{'level'} || $DEFAULT{'switch_level'}  || 2;
48   $SWITCH_DB{$sw->{hostname}} = $sw;
49
50   # SNMP parameter initialisation
51   my %session = ( -hostname   => $sw->{hostname} );
52   $session{-version} = $sw->{'version'}  || 1;
53   $session{-port}    = $sw->{'snmpport'} || $DEFAULT{'snmpport'}  || 161;
54   if (exists $sw->{'version'} and $sw->{'version'} eq '3') {
55      $session{-username} = $sw->{'username'} || 'snmpadmin';
56      }
57   else {
58      $session{-community} = $sw->{'community'} || $DEFAULT{'community'} || 'public';
59      }
60   $sw->{'snmp_param_session'} = \%session;
61   }
62@SWITCH_LIST = reverse sort { $SWITCH_LEVEL{$a->{hostname}} <=> $SWITCH_LEVEL{$b->{hostname}} } @{$KLASK_CFG->{'switch'}};
63
64#my %SWITCH_PORT_COUNT = ();
65
66my %CMD_DB = (
67   'help'                 => \&cmd_help,
68   'version'              => \&cmd_version,
69   'exportdb'             => \&cmd_exportdb,
70   'updatedb'             => \&cmd_updatedb,
71   'searchdb'             => \&cmd_searchdb,
72   'removedb'             => \&cmd_removedb,
73   'cleandb'              => \&cmd_cleandb,
74   'search'               => \&cmd_search,
75   'enable'               => \&cmd_enable,
76   'disable'              => \&cmd_disable,
77   'status'               => \&cmd_status,
78   'updatesw'             => \&cmd_updatesw,
79   'exportsw'             => \&cmd_exportsw,
80   'iplocation'           => \&cmd_ip_location,
81   'ip-free'              => \&cmd_ip_free,
82   'search-mac-on-switch' => \&cmd_search_mac_on_switch,
83   'bad-vlan-id'          => \&cmd_bad_vlan_id,
84   'poe-enable'           => \&cmd_poe_enable,
85   'poe-disable'          => \&cmd_poe_disable,
86   'poe-status'           => \&cmd_poe_status,
87   'port-setvlan'         => \&cmd_port_setvlan,
88   'port-getvlan'         => \&cmd_port_getvlan,
89   'vlan-setname'         => \&cmd_vlan_setname,
90   'vlan-getname'         => \&cmd_vlan_getname,
91   'vlan-list'            => \&cmd_vlan_list,
92   'rebootsw'             => \&cmd_rebootsw,
93   );
94
95#Readonly my %INTERNAL_PORT_MAP => (
96#   0 => 'A',
97#   1 => 'B',
98#   2 => 'C',
99#   3 => 'D',
100#   4 => 'E',
101#   5 => 'F',
102#   6 => 'G',
103#   7 => 'H',
104#   );
105#Readonly my %INTERNAL_PORT_MAP_REV => reverse %INTERNAL_PORT_MAP;
106
107Readonly my %SWITCH_KIND => (
108   # HP
109   J3299A           => { type => 1, model => 'HP224M',         match => 'HP J3299A ProCurve Switch 224M'       },
110   J4120A           => { type => 1, model => 'HP1600M',        match => 'HP J4120A ProCurve Switch 1600M'      },
111   J9029A           => { type => 1, model => 'HP1800-8G',      match => 'PROCURVE J9029A'                      },
112   J9449A           => { type => 1, model => 'HP1810-8G',      match => 'HP ProCurve 1810G - 8 GE'             },
113   J4093A           => { type => 1, model => 'HP2424M',        match => 'HP J4093A ProCurve Switch 2424M'      },
114   J9279A           => { type => 1, model => 'HP2510G-24',     match => 'ProCurve J9279A Switch 2510G-24'      },
115   J9280A           => { type => 1, model => 'HP2510G-48',     match => 'ProCurve J9280A Switch 2510G-48'      },
116   J4813A           => { type => 1, model => 'HP2524',         match => 'HP J4813A ProCurve Switch 2524'       },
117   J4900A           => { type => 1, model => 'HP2626A',        match => 'HP J4900A ProCurve Switch 2626'       },
118   J4900B           => { type => 1, model => 'HP2626B',        match => 'J4900B.+?Switch 2626'                 }, # ProCurve J4900B Switch 2626 # HP J4900B ProCurve Switch 2626
119   J4899B           => { type => 1, model => 'HP2650',         match => 'ProCurve J4899B Switch 2650'          },
120   J9021A           => { type => 1, model => 'HP2810-24G',     match => 'ProCurve J9021A Switch 2810-24G'      },
121   J9022A           => { type => 1, model => 'HP2810-48G',     match => 'ProCurve J9022A Switch 2810-48G'      },
122   J8692A           => { type => 1, model => 'HP3500-24G',     match => 'J8692A Switch 3500yl-24G'             },
123   J4903A           => { type => 1, model => 'HP2824',         match => 'J4903A.+?Switch 2824,'                },
124   J4110A           => { type => 1, model => 'HP8000M',        match => 'HP J4110A ProCurve Switch 8000M'      },
125   JE074A           => { type => 2, model => 'HP5120-24G',     match => 'HP Comware.+?A5120-24G EI Switch'     },
126   JE069A           => { type => 2, model => 'HP5120-48G',     match => 'HP Comware.+?A5120-48G EI Switch'     },
127   JD377A           => { type => 2, model => 'HP5500-24G',     match => 'HP Comware.+?A5500-24G EI Switch'     },
128   JD374A           => { type => 2, model => 'HP5500-24F',     match => 'HP Comware.+?A5500-24G-SFP EI Switch' },
129   # BayStack
130   BS350T           => { type => 1, model => 'BS350T',         match => 'BayStack 350T HW'                     },
131   # Nexans
132   N3483G           => { type => 2, model => 'NA3483-6G',      match => 'GigaSwitch V3 TP SFP-I 48V ES3'       },
133   N3483P           => { type => 2, model => 'NA3483-6P',      match => 'GigaSwitch V3 TP.PSE.+ 48/54V ES3'    }, # GigaSwitch V3 TP(PSE+) SFP-I 48/54V ES3 (HW3/ENHANCED/SECURITY/V4.10C)
134   # DELL
135   PC7024           => { type => 2, model => 'DPC7024',        match => 'PowerConnect 7024,.+?VxWorks'         },
136   N2048            => { type => 2, model => 'DN2048',         match => 'Dell Networking N2048,'               },
137   N4032F           => { type => 2, model => 'DN4032F',        match => 'Dell Networking N4032F,'              },
138   N4064F           => { type => 2, model => 'DN4064F',        match => 'Dell Networking N4064F,'              },
139   # 3COM
140   'H3C5500'        => { type => 1, model => 'H3C5500',        match => 'H3C S5500-SI Series'                  },
141   '3C17203'        => { type => 1, model => '3C17203',        match => '3Com SuperStack 3 24-Port'            },
142   '3C17204'        => { type => 1, model => '3C17204',        match => '3Com SuperStack 3 48-Port'            },
143   '3CR17562-91'    => { type => 1, model => '3CR17562-91',    match => '3Com Switch 4500 50-Port'             },
144   '3CR17255-91'    => { type => 1, model => '3CR17255-91',    match => '3Com Switch 5500G-EI 48-Port'         },
145   '3CR17251-91'    => { type => 1, model => '3CR17251-91',    match => '3Com Switch 5500G-EI 48-Port'         },
146   '3CR17571-91'    => { type => 1, model => '3CR17571-91',    match => '3Com Switch 4500 PWR 26-Port'         },
147   '3CRWX220095A'   => { type => 1, model => '3CRWX220095A',   match => '3Com Wireless LAN Controller'         },
148   '3CR17254-91'    => { type => 1, model => '3CR17254-91',    match => '3Com Switch 5500G-EI 24-Port'         },
149   '3CRS48G-24S-91' => { type => 1, model => '3CRS48G-24S-91', match => '3Com Switch 4800G 24-Port'            },
150   '3CRS48G-48S-91' => { type => 1, model => '3CRS48G-48S-91', match => '3Com Switch 4800G 48-Port'            },
151   '3C17708'        => { type => 1, model => '3C17708',        match => '3Com Switch 4050'                     },
152   '3C17709'        => { type => 1, model => '3C17709',        match => '3Com Switch 4060'                     },
153   '3C17707'        => { type => 1, model => '3C17707',        match => '3Com Switch 4070'                     },
154   '3CR17258-91'    => { type => 1, model => '3CR17258-91',    match => '3Com Switch 5500G-EI 24-Port SFP'     },
155   '3CR17181-91'    => { type => 1, model => '3CR17181-91',    match => '3Com Switch 5500-EI 28-Port FX'       },
156   '3CR17252-91'    => { type => 1, model => '3CR17252-91',    match => '3Com Switch 5500G-EI PWR 24-Port'     },
157   '3CR17253-91'    => { type => 1, model => '3CR17253-91',    match => '3Com Switch 5500G-EI PWR 48-Port'     },
158   '3CR17250-91'    => { type => 1, model => '3CR17250-91',    match => '3Com Switch 5500G-EI 24-Port'         },
159   '3CR17561-91'    => { type => 1, model => '3CR17561-91',    match => '3Com Switch 4500 26-Port'             },
160   '3CR17572-91'    => { type => 1, model => '3CR17572-91',    match => '3Com Switch 4500 PWR 50-Port'         },
161   '3C17702-US'     => { type => 1, model => '3C17702-US',     match => '3Com Switch 4900 SX'                  },
162   '3C17700'        => { type => 1, model => '3C17700',        match => '3Com Switch 4900'                     },
163   );
164
165Readonly my %OID_NUMBER => (
166   sysDescription  => '1.3.6.1.2.1.1.1.0',
167   sysName         => '1.3.6.1.2.1.1.5.0',
168   sysContact      => '1.3.6.1.2.1.1.4.0',
169   sysLocation     => '1.3.6.1.2.1.1.6.0',
170   searchPort1     => '1.3.6.1.2.1.17.4.3.1.2',          # BRIDGE-MIB (802.1D).
171   searchPort2     => '1.3.6.1.2.1.17.7.1.2.2.1.2',      # Q-BRIDGE-MIB (802.1Q) add 0 if unknown vlan id
172   vlanPortDefault => '1.3.6.1.2.1.17.7.1.4.5.1.1',      # dot1qPvid
173   vlanStatus      => '1.3.6.1.2.1.17.7.1.4.3.1.5',      # integer 4 Create, 6 Destroy
174   vlanName        => '1.3.6.1.2.1.17.7.1.4.3.1.1',      # string
175   HPicfReset      => '1.3.6.1.4.1.11.2.14.11.1.4.1',    # HP reboot switch
176   ifIndex         => '1.3.6.1.2.1.17.1.4.1.2',          # dot1dBasePortIfIndex - Interface index redirection
177   ifName          => '1.3.6.1.2.1.31.1.1.1.1',          # Interface name (give port number)
178   portUpDown      => '1.3.6.1.2.1.2.2.1.7',             # 1.3.6.1.2.1.2.2.1.7.NoPort = 1 (up)  = 2 (down)
179   poeState        => '1.3.6.1.2.1.105.1.1.1.3.1',       # 1.3.6.1.2.1.105.1.1.1.3.1.NoPort = 1 (poe up)  = 2 (poe down) - Cisco and Zyxel
180   NApoeState      => '1.3.6.1.4.1.266.20.3.1.1.21',     # .NoPort = 2 (poe off)  = 8 (poe atHighPower) - Nexans
181   ifAggregator    => '1.2.840.10006.300.43.1.2.1.1.12', # dot3adAggPortSelectedAggID - 0 not part of an  Aggregator - Ciso Dell HP Comware -  See https://stackoverflow.com/questions/14960157/how-to-map-portchannel-to-interfaces-via-snmp https://gist.github.com/bldewolf/6314435
182   );
183
184Readonly my %PORT_UPDOWN => (
185   1 => 'enable',
186   2 => 'disable',
187   );
188
189Readonly my $RE_MAC_ADDRESS  => qr{ [0-9,A-Z]{2} : [0-9,A-Z]{2} : [0-9,A-Z]{2} : [0-9,A-Z]{2} : [0-9,A-Z]{2} : [0-9,A-Z]{2} }xms;
190Readonly my $RE_IPv4_ADDRESS => qr{ [0-9]{1,3} \. [0-9]{1,3} \. [0-9]{1,3} \. [0-9]{1,3} }xms;
191
192Readonly my $RE_FLOAT_HOSTNAME => $DEFAULT{'float-regex'} || qr{ ^float }xms;
193
194Readonly my $SEP_AGGREGATOR_PORT => ',';  # : is already use to join switch and port
195Readonly my $SEP_SWITCH_PORT     => ':';
196
197
198################################################################
199# main program
200################################################################
201
202my $cmd = shift @ARGV || 'help';
203if (defined $CMD_DB{$cmd}) {
204   $CMD_DB{$cmd}->(@ARGV);
205   }
206else {
207   print {*STDERR} "klask: command $cmd not found\n\n";
208   $CMD_DB{help}->();
209   exit 1;
210   }
211
212exit;
213
214################################################################
215# subroutine
216################################################################
217
218#---------------------------------------------------------------
219sub test_running_environnement {
220   die "Configuration file $KLASK_CFG_FILE does not exists. Klask need it !\n" if not -e "$KLASK_CFG_FILE";
221   die "Var folder $KLASK_VAR does not exists. Klask need it !\n"              if not -d "$KLASK_VAR";
222   return;
223   }
224
225#---------------------------------------------------------------
226sub test_switchdb_environnement {
227   die "Switch database $KLASK_SW_FILE does not exists. Launch updatesw before this command !\n" if not -e "$KLASK_SW_FILE";
228   return;
229   }
230
231#---------------------------------------------------------------
232sub test_maindb_environnement {
233   die "Main database $KLASK_DB_FILE does not exists. Launch updatedb before this command !\n" if not -e "$KLASK_DB_FILE";
234   return;
235   }
236
237#---------------------------------------------------------------
238# fast ping dont l'objectif est de remplir la table arp de la machine
239sub fast_ping {
240   # Launch this command without waiting...
241   system "fping -q -c 1 @_ >/dev/null 2>&1 &";
242   return;
243   }
244
245#---------------------------------------------------------------
246sub shell_command {
247   my $cmd = shift;
248
249   my $fh     = new FileHandle;
250   my $result = '';
251   open $fh, q{-|}, "LANG=C $cmd" or die "Can't exec $cmd\n";
252   $result .= <$fh>;
253   close $fh;
254   chomp $result;
255   return $result;
256   }
257
258#---------------------------------------------------------------
259# donne l'@ ip, dns, arp en fonction du dns OU de l'ip
260sub resolve_ip_arp_host {
261   my $param_ip_or_host = shift;
262   my $interface = shift || q{*};
263   my $type      = shift || q{fast};
264   my $already   = shift || q{yes};
265
266   my %ret = (
267      hostname_fq  => 'unknow',
268      ipv4_address => '0.0.0.0',
269      mac_address  => 'unknow',
270      );
271
272   # perl -MSocket -E 'say inet_ntoa(scalar gethostbyname("tech7meylan.hmg.inpg.fr"))'
273   my $packed_ip = scalar gethostbyname($param_ip_or_host);
274   return %ret if not defined $packed_ip;
275   $ret{ipv4_address} = inet_ntoa($packed_ip);
276   #if ($ret{ipv4_address} !~ m/$RE_IPv4_ADDRESS/) {
277   #   print "Error: for computer $param_ip_or_host on interface $interface, IP $ret{ipv4_address} is not valide\n";
278   #   return %ret;
279   #   }
280
281   # perl -MSocket -E 'say scalar gethostbyaddr(inet_aton("194.254.66.240"), AF_INET)'
282   my $hostname_fq = scalar gethostbyaddr($packed_ip, AF_INET) if $already eq 'yes';
283   $ret{hostname_fq} = $hostname_fq if defined $hostname_fq;
284
285   # my $cmd = q{grep  -he '\b} . $param_ip_or_host . q{\b' } . "/var/lib/arpwatch/$interface.dat | sort -rn -k 3,3 | head -1";
286   #my $cmd = q{grep  -he '\b} . $ret{ipv4_address} . q{\b' } . "/var/lib/arpwatch/$interface.dat | sort -rn -k 3,3 | head -1";
287   my $cmd = q{grep  -He '\b} . $ret{ipv4_address} . q{\b' } . "/var/lib/arpwatch/$interface.dat" . '| sed -e \'s|^/var/lib/arpwatch/\(.*\)\.dat:|\1 |;\' | sort -rn -k 4,4 | head -1';
288   #grep -He 194.254.66.252 /var/lib/arpwatch/*.dat | sed -e 's|^/var/lib/arpwatch/\(.*\)\.dat:|\1\t|;' | sort -rn -k 4,4 | head -1
289
290   my $cmd_arpwatch = shell_command $cmd;
291   #my ($arp, $ip, $timestamp, $host) = split m/ \s+ /xms, $cmd_arpwatch;
292   my ($interface2, $arp, $ip, $timestamp, $host) = split m/ \s+ /xms, $cmd_arpwatch;
293
294   $ret{interface}    = $interface2 || $interface;
295   $ret{mac_address}  = $arp       if $arp;
296   $ret{timestamp}    = $timestamp if $timestamp;
297
298   my $nowtimestamp = time;
299
300   if ( $type eq 'fast' and ( not defined $timestamp or $timestamp < ( $nowtimestamp - 45 * 60 ) ) ) { # 45 min
301      $ret{mac_address} = 'unknow';
302      return %ret;
303      }
304
305   # ARP result
306   #
307   # LANG=C arp -a 194.254.66.62 -i eth331
308   # gw66-62.legi.grenoble-inp.fr (194.254.66.62) at 00:08:7c:bb:0f:c0 [ether] on eth331
309   #
310   # LANG=C ip neigh show to 194.254.66.62 dev eth331
311   # 194.254.66.62 lladdr 00:08:7c:bb:0f:c0 REACHABLE
312   # LANG=C ip neigh show to 194.254.66.62
313   # 194.254.66.62 dev eth331 lladdr 00:08:7c:bb:0f:c0 REACHABLE
314#   my $cmd_arp  = shell_command "arp -a $param_ip_or_host -i $ret{interface}";
315#   if ( $cmd_arp =~ m{ (\S*) \s \( ( $RE_IPv4_ADDRESS ) \) \s at \s ( $RE_MAC_ADDRESS ) }xms ) {
316#      ( $ret{hostname_fq}, $ret{ipv4_address}, $ret{mac_address} )  = ($1, $2, $3);
317#      }
318   if ($ret{mac_address} eq 'unknow') {
319      # Last chance to have the mac_address
320      if ($ret{interface} eq '*') {
321         my $cmd_arp  = shell_command "ip neigh show to $ret{ipv4_address}";
322         if ( $cmd_arp =~ m{ ^$RE_IPv4_ADDRESS \s dev \s ([\w\d\.\:]+) \s lladdr \s ( $RE_MAC_ADDRESS ) \s }xms ) {
323            ($ret{interface}, $ret{mac_address}) = ($1, $2);
324            }
325         }
326      else {
327         my $cmd_arp  = shell_command "ip neigh show to $ret{ipv4_address} dev $ret{interface}";
328         if ( $cmd_arp =~ m{ ^$RE_IPv4_ADDRESS \s lladdr \s ( $RE_MAC_ADDRESS ) \s }xms ) {
329            $ret{mac_address} = $1;
330            }
331         }
332      }
333
334   # Normalize MAC Address
335   if ($ret{mac_address} ne 'unknow') {
336      my @paquets = ();
337      for ( split m/ : /xms, $ret{mac_address} ) {
338         my @chars = split m//xms, uc "00$_";
339         push @paquets, "$chars[-2]$chars[-1]";
340         }
341      $ret{mac_address} = join q{:}, @paquets;
342      }
343
344   return %ret;
345   }
346
347#---------------------------------------------------------------
348# Find Surname of a switch
349sub get_switch_model {
350   my $sw_snmp_description = shift || 'unknow';
351   $sw_snmp_description =~ s/[\n\r]/ /g;
352
353   for my $sw_kind (keys %SWITCH_KIND) {
354      next if not $sw_snmp_description =~ m/$SWITCH_KIND{$sw_kind}->{match}/ms; # option xms break search, why ?
355
356      return $SWITCH_KIND{$sw_kind}->{model};
357      }
358
359   return $sw_snmp_description;
360   }
361
362#---------------------------------------------------------------
363# va rechercher le nom des switchs pour savoir qui est qui
364sub init_switch_names {
365   my ($verbose, $verb_description, $check_hostname, $check_location) = @_;
366
367   printf "%-26s                %-25s %s\n",'Switch','Description','Type' if $verbose;
368   print "------------------------------------------------------------------------------\n" if $verbose;
369
370   INIT_EACH_SWITCH:
371   for my $sw (@SWITCH_LIST) {
372      my ($session, $error) = Net::SNMP->session( %{$sw->{'snmp_param_session'}} );
373      print "$error \n" if $error;
374
375      my $result = $session->get_request(
376         -varbindlist => [
377            $OID_NUMBER{sysDescription},
378            $OID_NUMBER{sysName},
379            $OID_NUMBER{sysContact},
380            $OID_NUMBER{sysLocation},
381            ]
382         );
383      if (!defined $result) {
384         printf {*STDERR} "ERROR: %s.\n", $session->error();
385         $session->close();
386         # Remove bad switch
387         @SWITCH_LIST = grep { $_->{hostname} ne $sw->{hostname} } @SWITCH_LIST;
388         delete $SWITCH_LEVEL{$sw->{hostname}} if exists $SWITCH_LEVEL{$sw->{hostname}};
389         delete $SWITCH_DB{$sw->{hostname}}    if exists $SWITCH_DB{$sw->{hostname}};
390         next INIT_EACH_SWITCH;
391         }
392
393      $sw->{description} = $result->{$OID_NUMBER{sysName}} || $sw->{hostname};
394      $sw->{model} = get_switch_model($result->{$OID_NUMBER{sysDescription}});
395      if ($verb_description) {
396         my $desc = $result->{$OID_NUMBER{sysDescription}};
397         $desc =~ s/[\n\r]/ /g;
398         print "   description: $desc\n"
399         }
400      if ($check_hostname) {
401         my ($hostname) = split /\./, $sw->{hostname}, 2;
402         print " $hostname - error internal hostname: $sw->{hostname}\n" if $result->{$OID_NUMBER{sysName}} ne $hostname;
403         }
404      if ($check_location) {
405         my $location = $result->{$OID_NUMBER{sysLocation}};
406         $location =~ s/^"(.+)"$/$1/;
407         print " $sw->{hostname} - error location: '$location' -> '$sw->{location}'\n" if $location ne $sw->{location};
408         }
409      #$sw->{location} = $result->{"1.3.6.1.2.1.1.6.0"} || $sw->{hostname};
410      #$sw->{contact} = $result->{"1.3.6.1.2.1.1.4.0"} || $sw->{hostname};
411      $session->close;
412
413      # Ligne à virer car on récupère maintenant le modèle du switch
414      #my ($desc, $type) = split m/ : /xms, $sw->{description}, 2;
415      printf "%-26s 0--------->>>> %-25s %s\n", $sw->{hostname}, $sw->{description}, $sw->{model} if $verbose;
416      }
417
418   print "\n" if $verbose;
419   return;
420   }
421
422#---------------------------------------------------------------
423# convert hexa (only 2 digits) to decimal
424sub digit_hex2dec {
425   #00:0F:1F:43:E4:2B
426   my $car = '00' . uc shift;
427
428   return '00' if $car eq '00UNKNOW';
429   my %table = (
430      '0'=>'0',  '1'=>'1',  '2'=>'2',  '3'=>'3',  '4'=>'4',
431      '5'=>'5',  '6'=>'6',  '7'=>'7',  '8'=>'8',  '9'=>'9',
432      'A'=>'10', 'B'=>'11', 'C'=>'12', 'D'=>'13', 'E'=>'14', 'F'=>'15',
433      );
434   my @chars = split m//xms, $car;
435   return $table{$chars[-2]}*16 + $table{$chars[-1]};
436   }
437
438#---------------------------------------------------------------
439
440sub normalize_mac_address {
441   my $mac_address = shift;
442
443   # D07E-28D1-7AB8 or D07E.28D1.7AB8 or d07e28-d17ab8
444   if ($mac_address =~ m{^ (?: [0-9A-Fa-f]{4} [-\.]){2} [0-9A-Fa-f]{4} $}xms
445      or $mac_address =~ m{^ [0-9A-Fa-f]{6} - [0-9A-Fa-f]{6} $}xms
446      ) {
447      $mac_address =~ s/[-\.]//g;
448      return join q{:}, unpack('(A2)*', uc($mac_address));
449      }
450
451   return join q{:}, map { substr( uc("00$_"), -2) } split m/ [:-] /xms, $mac_address;
452   }
453
454#---------------------------------------------------------------
455# convert MAC hex address to decimal
456sub mac_address_hex2dec {
457   #00:0F:1F:43:E4:2B
458   my $mac_address = shift;
459
460   my @paquets = split m/ : /xms, $mac_address;
461   my $return = q{};
462   for (@paquets) {
463      $return .= q{.} . digit_hex2dec($_);
464      }
465   return $return;
466   }
467
468#---------------------------------------------------------------
469sub format_aggregator4html {
470   my $port_hr = shift;
471   $port_hr =~ s/($SEP_AGGREGATOR_PORT)/: /; # First occurence
472   $port_hr =~ s/($SEP_AGGREGATOR_PORT)/ /g; # Other occurence
473   return $port_hr;
474   }
475
476#---------------------------------------------------------------
477sub format_aggregator4dot {
478   my $port_hr = shift;
479   $port_hr =~ s/($SEP_AGGREGATOR_PORT)/ - /; # First occurence
480   $port_hr =~ s/($SEP_AGGREGATOR_PORT)/ /g; # Other occurence
481   return $port_hr;
482   }
483
484#---------------------------------------------------------------
485# return the port and the switch where the computer is connected
486sub find_switch_port {
487   my $mac_address     = shift;
488   my $switch_proposal = shift || q{};
489   my $vlan_id = shift || 0;
490
491   my %ret;
492   $ret{switch_description} = 'unknow';
493   $ret{switch_port} = '0';
494
495   return %ret if $mac_address eq 'unknow';;
496
497   my @switch_search = @SWITCH_LIST;
498   if ($switch_proposal ne q{}) {
499      for my $sw (@SWITCH_LIST) {
500         next if $sw->{hostname} ne $switch_proposal;
501         unshift @switch_search, $sw;
502         last;
503         }
504      }
505
506   my $research1 = $OID_NUMBER{'searchPort1'} . mac_address_hex2dec($mac_address);
507   my $research2 = $OID_NUMBER{'searchPort2'} .'.'. $vlan_id . mac_address_hex2dec($mac_address);
508
509   LOOP_ON_SWITCH:
510   for my $sw (@switch_search) {
511      my ($session, $error) = Net::SNMP->session( %{$sw->{'snmp_param_session'}} );
512      print "$error \n" if $error;
513
514      my $result = $session->get_request(
515         -varbindlist => [$research1]
516         );
517      if (not defined $result) {
518         $result = $session->get_request(
519            -varbindlist => [$research2]
520            );
521         $result->{$research1} = $result->{$research2} if defined $result;
522         }
523
524      if (not (defined $result and $result->{$research1} ne 'noSuchInstance')) {
525         $session->close;
526         next LOOP_ON_SWITCH;
527         }
528
529      my $swport_num = $result->{$research1};
530      my $swport_hr = snmp_get_switchport_num2hr($session, $swport_num);
531
532      $session->close;
533
534      # IMPORTANT !!
535      # ceci empeche la detection sur certains port ...
536      # en effet les switch sont relies entre eux par un cable reseau et du coup
537      # tous les arp de toutes les machines sont presentes sur ces ports (ceux choisis ici sont les miens)
538      # cette partie est a ameliore, voir a configurer dans l'entete
539      # 21->24 45->48
540      SWITCH_PORT_IGNORE:
541      for my $portignore (@{$sw->{portignore}}) {
542         next LOOP_ON_SWITCH if $swport_hr eq $portignore;
543         my ($swport_hr_limited) = split /$SEP_AGGREGATOR_PORT/, $swport_hr; # Beginning of the swith port (Aggregator)
544         next LOOP_ON_SWITCH if $swport_hr_limited eq $portignore;
545         }
546
547      $ret{switch_hostname}    = $sw->{hostname};
548      $ret{switch_description} = $sw->{description};
549      $ret{switch_port}        = $swport_num;
550      $ret{switch_port_hr}     = $swport_hr; # human readable
551
552      last LOOP_ON_SWITCH;
553      }
554   return %ret;
555   }
556
557#---------------------------------------------------------------
558# search all the port on all the switches where the computer is detected
559sub find_all_switch_port {
560   my $mac_address = shift;
561   my $vlan_id     = shift || 0;
562
563   my $ret = {};
564
565   return $ret if $mac_address eq 'unknow';
566
567   my $research1 = $OID_NUMBER{'searchPort1'} . mac_address_hex2dec($mac_address);
568   my $research2 = $OID_NUMBER{'searchPort2'} .'.'. $vlan_id . mac_address_hex2dec($mac_address);
569   LOOP_ON_ALL_SWITCH:
570   for my $sw (@SWITCH_LIST) {
571      my ($session, $error) = Net::SNMP->session( %{$sw->{'snmp_param_session'}} );
572      print "$error \n" if $error;
573
574      my $result = $session->get_request(
575         -varbindlist => [$research1]
576         );
577      if (not defined $result) {
578         $result = $session->get_request(
579            -varbindlist => [$research2]
580            );
581         $result->{$research1} = $result->{$research2} if defined $result;
582         }
583
584      if (defined $result and $result->{$research1} ne 'noSuchInstance') {
585         my $swport_num = $result->{$research1};
586         my $swport_hr = snmp_get_switchport_num2hr($session, $swport_num);
587
588         SWITCH_PORT_IGNORE:
589         for my $portignore (@{$sw->{portignore}}) {
590            if ($swport_hr eq $portignore) {
591               $session->close;
592               next LOOP_ON_ALL_SWITCH
593               }
594            }
595
596         $ret->{$sw->{hostname}} = {};
597         $ret->{$sw->{hostname}}{hostname}    = $sw->{hostname};
598         $ret->{$sw->{hostname}}{description} = $sw->{description};
599         $ret->{$sw->{hostname}}{port}        = $swport_num;
600         $ret->{$sw->{hostname}}{port_hr}     = $swport_hr;
601         }
602
603      $session->close;
604      }
605   return $ret;
606   }
607
608#---------------------------------------------------------------
609sub get_list_network {
610
611   return keys %{$KLASK_CFG->{network}};
612   }
613
614#---------------------------------------------------------------
615sub get_current_interface {
616   my $vlan_name = shift;
617
618   return $KLASK_CFG->{network}{$vlan_name}{interface};
619   }
620
621#---------------------------------------------------------------
622sub get_current_vlan_id {
623   my $vlan_name = shift;
624
625   return 0 if not exists $KLASK_CFG->{network}{$vlan_name};
626   return $KLASK_CFG->{network}{$vlan_name}{'vlan-id'};
627   }
628
629#---------------------------------------------------------------
630sub get_current_scan_mode {
631   my $vlan_name = shift;
632
633   return $KLASK_CFG->{network}{$vlan_name}{'scan-mode'} || $DEFAULT{'scan-mode'} || 'active';
634   }
635
636#---------------------------------------------------------------
637sub get_current_vlan_name_for_interface {
638   my $interface = shift;
639
640   for my $vlan_name (keys %{$KLASK_CFG->{network}}) {
641      next if $KLASK_CFG->{network}{$vlan_name}{interface} ne $interface;
642      return $vlan_name;
643      }
644   }
645
646#---------------------------------------------------------------
647# liste l'ensemble des adresses ip d'un réseau
648sub get_list_ip {
649   my @vlan_name = @_;
650
651   my $cidrlist = Net::CIDR::Lite->new;
652
653   for my $net (@vlan_name) {
654      my @line  = @{$KLASK_CFG->{network}{$net}{'ip-subnet'}};
655      for my $cmd (@line) {
656         for my $method (keys %{$cmd}) {
657            $cidrlist->add_any($cmd->{$method}) if $method eq 'add';
658            }
659         }
660      }
661
662   my @res = ();
663
664   for my $cidr ($cidrlist->list()) {
665      my $net = new NetAddr::IP $cidr;
666      for my $ip (@{$net}) {
667         $ip =~ s{ /32 }{}xms;
668         push @res,  $ip;
669         }
670      }
671
672   return @res;
673   }
674
675#---------------------------------------------------------------
676# liste l'ensemble des routeurs du réseau
677sub get_list_main_router {
678   my @vlan_name = @_;
679
680   my @res = ();
681
682   for my $net (@vlan_name) {
683      push @res, $KLASK_CFG->{network}{$net}{'main-router'};
684      }
685
686   return @res;
687   }
688
689#---------------------------------------------------------------
690sub normalize_port_human_readable {
691   my $sw_port_hr  = shift;
692
693   # Manufacturer abbreviation
694   $sw_port_hr =~ s/^Bridge-Aggregation/Br/i;
695   $sw_port_hr =~ s/^Port-Channel/Po/i;
696   $sw_port_hr =~ s/^Forty-?GigabitEthernet/Fo/i;
697   $sw_port_hr =~ s/^Ten-?GigabitEthernet/Te/i;
698   $sw_port_hr =~ s/^GigabitEthernet/Gi/i;
699   $sw_port_hr =~ s/^FastEthernet/Fa/i;
700
701   # Customer abbreviation
702   $sw_port_hr =~ s/^Ten/Te/i;
703   $sw_port_hr =~ s/^Giga/Gi/i;
704
705   return ucfirst $sw_port_hr;
706   }
707
708#---------------------------------------------------------------
709sub snmp_get_rwsession {
710   my ($sw) = @_;
711
712   my %session = %{$sw->{'snmp_param_session'}};
713   $session{-community} = $sw->{'community-rw'} || $DEFAULT{'community-rw'} || 'private';
714   return %session;
715   }
716
717#---------------------------------------------------------------
718sub snmp_get_switchport_num2hr {
719   my ($snmp_session, $swport_num) = @_;
720
721   # On H3C, port number and port index are not the same
722   # Double SNMP request to get the name
723   # First get the index, second get the name
724
725   my $research_index = $OID_NUMBER{ifIndex} .'.'. $swport_num;
726   my $result_index = $snmp_session->get_request(
727      -varbindlist => [$research_index]
728      );
729
730   my $swport_index = $swport_num;
731   $swport_index = $result_index->{$research_index} if defined $result_index;
732
733   return snmp_get_switchport_index2hr($snmp_session, $swport_index);
734   }
735
736#---------------------------------------------------------------
737sub snmp_get_switchport_index2hr {
738   my ($snmp_session, $swport_index) = @_;
739
740   my $research_hr = $OID_NUMBER{ifName} .'.'. $swport_index;
741   my $result_hr = $snmp_session->get_request(
742      -varbindlist => [$research_hr]
743      );
744   my $swport_hr = $swport_index;
745   $swport_hr = normalize_port_human_readable($result_hr->{$research_hr}) if defined $result_hr;
746
747   # Aggregator port
748   if ($swport_hr =~ m/^(Trk|Br|Po)/) {
749      my $research_index = $OID_NUMBER{ifAggregator}; # base OID
750      my @args = ( -varbindlist =>  [$research_index]);
751      LOOP_ON_OID_PORT:
752      while ( defined $snmp_session->get_next_request(@args) ) {
753         my ($oid_current) = $snmp_session->var_bind_names;
754         last LOOP_ON_OID_PORT if  not Net::SNMP::oid_base_match($research_index, $oid_current);
755
756         # IEEE8023-LAG-MIB::dot3adAggPortSelectedAggID.28 = INTEGER: 337
757         # IEEE8023-LAG-MIB::dot3adAggPortAttachedAggID.28 = INTEGER: 337
758         my $port_aggregator_index = $snmp_session->var_bind_list->{$oid_current};
759         my ($current_port_index) = reverse split /\./, $oid_current; # last number
760
761         # prepare next loop item
762         @args = (-varbindlist => [$oid_current]);
763
764         next LOOP_ON_OID_PORT if $port_aggregator_index == 0;
765         next LOOP_ON_OID_PORT if not $port_aggregator_index == $swport_index;
766
767         my $current_port_name = snmp_get_switchport_index2hr($snmp_session, $current_port_index);
768         $swport_hr .= "$SEP_AGGREGATOR_PORT$current_port_name";
769         }
770      }
771   return $swport_hr;
772   }
773
774#---------------------------------------------------------------
775# Reverse search port number
776sub snmp_get_switchport_hr2num {
777   my ($snmp_session, $swport_hr, $verbose) = @_;
778
779   # Split for Aggregator port
780   # Keep only the Aggregator part
781   ($swport_hr) = split /$SEP_AGGREGATOR_PORT/, $swport_hr;
782
783   my $swport_num = $swport_hr;
784   # direct return if already numeric (next loop is expensive) / old or simple switch
785   return $swport_num if $swport_num =~ m/^\d+$/;
786
787   my $research_index = $OID_NUMBER{ifIndex}; # base OID
788   my @args = ( -varbindlist =>  [$research_index]);
789   LOOP_ON_OID_PORT:
790   while ( defined $snmp_session->get_next_request(@args) ) {
791      my ($oid_current) = $snmp_session->var_bind_names;
792      last LOOP_ON_OID_PORT if  not Net::SNMP::oid_base_match($research_index, $oid_current);
793     
794      my $port_ifIndex = $snmp_session->var_bind_list->{$oid_current};
795      my ($port_index) = reverse split /\./, $oid_current; # last number
796      printf "PORT1: %s => %s\n", $oid_current, $port_ifIndex if $verbose;
797
798      # prepare next loop item
799      @args = (-varbindlist => [$oid_current]);
800     
801      my $oid_ifName = $OID_NUMBER{ifName} .'.'. $port_ifIndex;
802      my $result = $snmp_session->get_request(-varbindlist => [$oid_ifName]);
803      next LOOP_ON_OID_PORT if not defined $result;
804     
805      my $current_port_hr = normalize_port_human_readable($result->{$oid_ifName});
806      printf "PORT2: $oid_ifName => $current_port_hr\n" if $verbose;
807      if ($current_port_hr eq $swport_hr) {
808         print "PORT3: $current_port_hr <-> $port_index\n" if $verbose;
809         
810         # return port number ifIndex need by OID portUpDown
811         $swport_num = $port_ifIndex; # other possible value could be $port_index
812         last LOOP_ON_OID_PORT;
813         }
814      }
815   return $swport_num;
816   }
817
818#---------------------------------------------------------------
819# Get the list of all the VLAN define on a switch
820sub snmp_get_vlan_list {
821   my ($snmp_session, $verbose) = @_;
822
823   my %vlan = (); # Hash vlan number => vlan name
824
825   my $research_index = $OID_NUMBER{vlanName}; # base OID
826   my @args = ( -varbindlist =>  [$research_index]);
827   LOOP_ON_VLAN:
828   while ( defined $snmp_session->get_next_request(@args) ) {
829      my ($oid_current) = $snmp_session->var_bind_names;
830      last LOOP_ON_VLAN if not Net::SNMP::oid_base_match($research_index, $oid_current);
831
832      my $vlan_name = $snmp_session->var_bind_list->{$oid_current};
833      my ($vlan_index) = reverse split /\./, $oid_current; # last number
834      printf "VLAN: %s => %s\n", $oid_current, $vlan_name if $verbose;
835
836      $vlan{$vlan_index} = $vlan_name;
837
838      # prepare next loop item
839      @args = (-varbindlist => [$oid_current]);
840      }
841   return %vlan;
842   }
843
844#---------------------------------------------------------------
845# Load computer database
846sub computerdb_load {
847   my $computerdb = YAML::Syck::LoadFile("$KLASK_DB_FILE");
848
849   LOOP_ON_IP_ADDRESS:
850   for my $ip (keys %{$computerdb}) {
851
852      next LOOP_ON_IP_ADDRESS if exists $computerdb->{$ip}{switch_port_hr} and defined $computerdb->{$ip}{switch_port_hr};
853
854      $computerdb->{$ip}{switch_port_hr} = $computerdb->{$ip}{switch_port};
855      }
856
857   return $computerdb;
858   }
859
860################################################################
861# command
862################################################################
863
864#---------------------------------------------------------------
865sub cmd_help {
866
867print <<'END';
868klask - port and search manager for switches, map management
869
870 klask version
871 klask help
872
873 klask updatedb [--verbose|-v] [--verb-description|-d] [--chk-hostname|-h] [--chk-location|-l]
874 klask exportdb [--format|-f txt|html]
875 klask removedb IP* computer*
876 klask cleandb  [--verbose|-v] --day number_of_day --repair-dns
877
878 klask updatesw [--verbose|-v]
879 klask exportsw [--format|-f txt|dot]
880
881 klask searchdb [--kind|-k host|mac] computer [mac-address]
882 klask search   computer
883 klask search-mac-on-switch [--verbose|-v] [--vlan|-i vlan-id] switch mac_addr
884
885 klask ip-free [--verbose|-v] [--day|-d days-to-death] [--format|-f txt|html] [vlan_name]
886
887 klask bad-vlan-id [--day|-d days_before_alert]
888
889 klask enable  [--verbose|-v] switch port
890 klask disable [--verbose|-v] switch port
891 klask status  [--verbose|-v] switch port
892
893 klask poe-enable  [--verbose|-v] switch port
894 klask poe-disable [--verbose|-v] switch port
895 klask poe-status  [--verbose|-v] switch port
896
897 klask vlan-getname switch vlan-id
898 klask vlan-list switch
899END
900   return;
901   }
902
903#---------------------------------------------------------------
904sub cmd_version {
905
906print <<'END';
907klask - port and search manager for switches, map management
908Copyright (C) 2005-2017 Gabriel Moreau
909
910END
911   print ' $Id: klask 254 2017-09-08 16:09:52Z g7moreau $'."\n";
912   return;
913   }
914
915#---------------------------------------------------------------
916sub cmd_search {
917   my @computer = @_;
918
919   init_switch_names();    #nomme les switchs
920   fast_ping(@computer);
921
922   LOOP_ON_COMPUTER:
923   for my $clientname (@computer) {
924      my %resol_arp = resolve_ip_arp_host($clientname);          #resolution arp
925      my $vlan_name = get_current_vlan_name_for_interface($resol_arp{interface});
926      my $vlan_id   = get_current_vlan_id($vlan_name);
927      my %where     = find_switch_port($resol_arp{mac_address}, '', $vlan_id); #retrouve l'emplacement
928
929      next LOOP_ON_COMPUTER if $where{switch_description} eq 'unknow' or $resol_arp{hostname_fq} eq 'unknow' or $resol_arp{mac_address} eq 'unknow';
930
931      printf '%-22s %2s %-30s %-15s %18s',
932         $where{switch_hostname},
933         $where{switch_port_hr},
934         $resol_arp{hostname_fq},
935         $resol_arp{ipv4_address},
936         $resol_arp{mac_address}."\n";
937      }
938   return;
939   }
940
941#---------------------------------------------------------------
942sub cmd_searchdb {
943   my @ARGV  = @_;
944
945   my $kind;
946
947   GetOptions(
948      'kind=s'   => \$kind,
949      );
950
951   my %possible_search = (
952      host  => \&cmd_searchdb_host,
953      mac   => \&cmd_searchdb_mac,
954      );
955
956   $kind = 'host' if not defined $possible_search{$kind};
957
958   $possible_search{$kind}->(@ARGV);
959   return;
960   }
961
962
963#---------------------------------------------------------------
964sub cmd_searchdb_host {
965   my @computer = @_;
966
967   fast_ping(@computer);
968   my $computerdb = computerdb_load();
969
970   LOOP_ON_COMPUTER:
971   for my $clientname (@computer) {
972      my %resol_arp = resolve_ip_arp_host($clientname);      #resolution arp
973      my $ip = $resol_arp{ipv4_address};
974
975      next LOOP_ON_COMPUTER unless exists $computerdb->{$ip};
976
977      my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime $computerdb->{$ip}{timestamp};
978      $year += 1900;
979      $mon++;
980      my $date = sprintf '%04i-%02i-%02i %02i:%02i', $year, $mon, $mday, $hour, $min;
981
982      printf "%-22s %2s %-30s %-15s %-18s %s\n",
983         $computerdb->{$ip}{switch_hostname},
984         $computerdb->{$ip}{switch_port_hr},
985         $computerdb->{$ip}{hostname_fq},
986         $ip,
987         $computerdb->{$ip}{mac_address},
988         $date;
989      }
990   return;
991   }
992
993#---------------------------------------------------------------
994sub cmd_searchdb_mac {
995   my @mac = map { normalize_mac_address($_) } @_;
996
997   my $computerdb = computerdb_load();
998
999   LOOP_ON_MAC:
1000   for my $mac (@mac) {
1001      LOOP_ON_COMPUTER:
1002      for my $ip (keys %{$computerdb}) {
1003         next LOOP_ON_COMPUTER if $mac ne $computerdb->{$ip}{mac_address};
1004
1005         my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime $computerdb->{$ip}{timestamp};
1006         $year += 1900;
1007         $mon++;
1008         my $date = sprintf '%04i-%02i-%02i %02i:%02i', $year, $mon, $mday, $hour, $min;
1009
1010         printf "%-22s %2s %-30s %-15s %-18s %s\n",
1011            $computerdb->{$ip}{switch_hostname},
1012            $computerdb->{$ip}{switch_port_hr},
1013            $computerdb->{$ip}{hostname_fq},
1014            $ip,
1015            $computerdb->{$ip}{mac_address},
1016            $date;
1017         #next LOOP_ON_MAC;
1018         }
1019
1020      }
1021   return;
1022   }
1023
1024#---------------------------------------------------------------
1025sub cmd_updatedb {
1026   @ARGV = @_;
1027
1028   my ($verbose, $verb_description, $check_hostname, $check_location);
1029
1030   GetOptions(
1031      'verbose|v'          => \$verbose,
1032      'verb-description|d' => \$verb_description,
1033      'chk-hostname|h'     => \$check_hostname,
1034      'chk-location|l'     => \$check_location,
1035      );
1036
1037   my @network = @ARGV;
1038      @network = get_list_network() if not @network;
1039
1040   test_switchdb_environnement();
1041
1042   my $computerdb = {};
1043      $computerdb = computerdb_load() if -e "$KLASK_DB_FILE";
1044   my $timestamp = time;
1045
1046   my %computer_not_detected = ();
1047   my $timestamp_last_week = $timestamp - (3600 * 24 * 7);
1048
1049   my $number_of_computer = get_list_ip(@network); # + 1;
1050   my $size_of_database   = keys %{$computerdb};
1051      $size_of_database   = 1 if $size_of_database == 0;
1052   my $i = 0;
1053   my $detected_computer = 0;
1054
1055   init_switch_names('yes', $verb_description, $check_hostname, $check_location);    #nomme les switchs
1056
1057   { # Remplis le champs portignore des ports d'inter-connection pour chaque switch
1058   my $switch_connection = YAML::Syck::LoadFile("$KLASK_SW_FILE");
1059   my %db_switch_output_port       = %{$switch_connection->{output_port}};
1060   my %db_switch_connected_on_port = %{$switch_connection->{connected_on_port}};
1061   my %db_switch_chained_port = ();
1062   for my $swport (keys %db_switch_connected_on_port) {
1063      my ($sw_connect, $port_connect) = split m/ $SEP_SWITCH_PORT /xms, $swport, 2;
1064      $db_switch_chained_port{$sw_connect} .= "$port_connect:";
1065      }
1066   for my $sw (@SWITCH_LIST) {
1067      push @{$sw->{portignore}}, $db_switch_output_port{$sw->{hostname}}  if exists $db_switch_output_port{$sw->{hostname}};
1068      if ( exists $db_switch_chained_port{$sw->{hostname}} ) {
1069         chop $db_switch_chained_port{$sw->{hostname}};
1070         push @{$sw->{portignore}}, split m/ : /xms, $db_switch_chained_port{$sw->{hostname}};
1071         }
1072#      print "$sw->{hostname} ++ @{$sw->{portignore}}\n";
1073      }
1074   }
1075
1076   my %router_mac_ip = ();
1077   DETECT_ALL_ROUTER:
1078#   for my $one_router ('194.254.66.254') {
1079   for my $one_router ( get_list_main_router(@network) ) {
1080      my %resol_arp = resolve_ip_arp_host($one_router);
1081      $router_mac_ip{ $resol_arp{mac_address} } = $resol_arp{ipv4_address};
1082      }
1083
1084   ALL_NETWORK:
1085   for my $current_net (@network) {
1086
1087      my @computer = get_list_ip($current_net);
1088      my $current_interface = get_current_interface($current_net);
1089
1090      fast_ping(@computer) if get_current_scan_mode($current_net) eq 'active';
1091
1092      LOOP_ON_COMPUTER:
1093      for my $one_computer (@computer) {
1094         $i++;
1095
1096         my $total_percent = int (($i*100)/$number_of_computer);
1097
1098         my $localtime = time - $timestamp;
1099         my ($sec,$min) = localtime $localtime;
1100
1101         my $time_elapse = 0;
1102            $time_elapse = $localtime * ( 100 - $total_percent) / $total_percent if $total_percent != 0;
1103         my ($sec_elapse,$min_elapse) = localtime $time_elapse;
1104
1105         printf "\rComputer scanned: %4i/%i (%2i%%)",  $i,                 $number_of_computer, $total_percent;
1106         printf ', detected: %4i/%i (%2i%%)', $detected_computer, $size_of_database,   int(($detected_computer*100)/$size_of_database);
1107         printf ' [Time: %02i:%02i / %02i:%02i]', int($localtime/60), $localtime % 60, int($time_elapse/60), $time_elapse % 60;
1108         printf ' %-8s %-14s', $current_interface, $one_computer;
1109
1110         my $already_exist = exists $computerdb->{$one_computer} ? 'yes' : 'no';
1111         my %resol_arp = resolve_ip_arp_host($one_computer, $current_interface, 'fast', $already_exist);
1112
1113         # do not search on router connection (why ?)
1114         if ( exists $router_mac_ip{$resol_arp{mac_address}}) {
1115            $computer_not_detected{$one_computer} = $current_net;
1116            next LOOP_ON_COMPUTER;
1117            }
1118
1119         # do not search on switch inter-connection
1120         if (exists $SWITCH_LEVEL{$resol_arp{hostname_fq}}) {
1121            $computer_not_detected{$one_computer} = $current_net;
1122            next LOOP_ON_COMPUTER;
1123            }
1124
1125         my $switch_proposal = q{};
1126         if (exists $computerdb->{$resol_arp{ipv4_address}} and exists $computerdb->{$resol_arp{ipv4_address}}{switch_hostname}) {
1127            $switch_proposal = $computerdb->{$resol_arp{ipv4_address}}{switch_hostname};
1128            }
1129
1130         # do not have a mac address
1131         if ($resol_arp{mac_address} eq 'unknow' or (exists $resol_arp{timestamps} and $resol_arp{timestamps} < ($timestamp - 3 * 3600))) {
1132            $computer_not_detected{$one_computer} = $current_net;
1133            next LOOP_ON_COMPUTER;
1134            }
1135
1136         my $vlan_name = get_current_vlan_name_for_interface($resol_arp{interface});
1137         my $vlan_id   = get_current_vlan_id($vlan_name);
1138         my %where = find_switch_port($resol_arp{mac_address},$switch_proposal,$vlan_id);
1139
1140         #192.168.24.156:
1141         #  arp: 00:0B:DB:D5:F6:65
1142         #  hostname: pcroyon.hmg.priv
1143         #  port: 5
1144         #  switch: sw-batH-legi:hp2524
1145         #  timestamp: 1164355525
1146
1147         # do not have a mac address
1148#         if ($resol_arp{mac_address} eq 'unknow') {
1149#            $computer_not_detected{$one_computer} = $current_interface;
1150#            next LOOP_ON_COMPUTER;
1151#            }
1152
1153         # detected on a switch
1154         if ($where{switch_description} ne 'unknow') {
1155            $detected_computer++;
1156            $computerdb->{$resol_arp{ipv4_address}} = {
1157               hostname_fq        => $resol_arp{hostname_fq},
1158               mac_address        => $resol_arp{mac_address},
1159               switch_hostname    => $where{switch_hostname},
1160               switch_description => $where{switch_description},
1161               switch_port        => $where{switch_port},
1162               switch_port_hr     => $where{switch_port_hr},
1163               timestamp          => $timestamp,
1164               network            => $current_net,
1165               };
1166            next LOOP_ON_COMPUTER;
1167            }
1168
1169         # new in the database but where it is ?
1170         if (not exists $computerdb->{$resol_arp{ipv4_address}}) {
1171            $detected_computer++;
1172            $computerdb->{$resol_arp{ipv4_address}} = {
1173               hostname_fq        => $resol_arp{hostname_fq},
1174               mac_address        => $resol_arp{mac_address},
1175               switch_hostname    => $where{switch_hostname},
1176               switch_description => $where{switch_description},
1177               switch_port        => $where{switch_port},
1178               switch_port_hr     => $where{switch_port_hr},
1179               timestamp          => $resol_arp{timestamp},
1180               network            => $current_net,
1181               };
1182            }
1183
1184         # mise a jour du nom de la machine si modification dans le dns
1185         $computerdb->{$resol_arp{ipv4_address}}{hostname_fq} = $resol_arp{hostname_fq};
1186
1187         # mise à jour de la date de détection si détection plus récente par arpwatch
1188         $computerdb->{$resol_arp{ipv4_address}}{timestamp}   = $resol_arp{timestamp} if exists $resol_arp{timestamp} and $computerdb->{$resol_arp{ipv4_address}}{timestamp} < $resol_arp{timestamp};
1189
1190         # relance un arping sur la machine si celle-ci n'a pas été détectée depuis plus d'une semaine
1191#         push @computer_not_detected, $resol_arp{ipv4_address} if $computerdb->{$resol_arp{ipv4_address}}{timestamp} < $timestamp_last_week;
1192         $computer_not_detected{$resol_arp{ipv4_address}} = $current_net if $computerdb->{$resol_arp{ipv4_address}}{timestamp} < $timestamp_last_week;
1193
1194         }
1195      }
1196
1197   # final end of line at the end of the loop
1198   printf "\n";
1199
1200   my $dirdb = $KLASK_DB_FILE;
1201      $dirdb =~ s{ / [^/]* $}{}xms;
1202   mkdir "$dirdb", 0755 unless -d "$dirdb";
1203   YAML::Syck::DumpFile("$KLASK_DB_FILE", $computerdb);
1204
1205   for my $one_computer (keys %computer_not_detected) {
1206      my $current_net = $computer_not_detected{$one_computer};
1207      my $current_interface = get_current_interface($current_net);
1208      system "arping -c 1 -w 1 -rR -i $current_interface $one_computer &>/dev/null" if get_current_scan_mode($current_net) eq 'active';
1209#      print  "arping -c 1 -w 1 -rR -i $current_interface $one_computer 2>/dev/null\n";
1210      }
1211   return;
1212   }
1213
1214#---------------------------------------------------------------
1215sub cmd_removedb {
1216   my @computer = @_;
1217
1218   test_maindb_environnement();
1219
1220   my $computerdb = computerdb_load();
1221
1222   LOOP_ON_COMPUTER:
1223   for my $one_computer (@computer) {
1224
1225      if ( $one_computer =~ m/^ $RE_IPv4_ADDRESS $/xms
1226            and exists $computerdb->{$one_computer} ) {
1227         delete $computerdb->{$one_computer};
1228         next;
1229         }
1230
1231      my %resol_arp = resolve_ip_arp_host($one_computer);
1232
1233      delete $computerdb->{$resol_arp{ipv4_address}} if exists $computerdb->{$resol_arp{ipv4_address}};
1234      }
1235
1236   my $dirdb = $KLASK_DB_FILE;
1237      $dirdb =~ s{ / [^/]* $}{}xms;
1238   mkdir "$dirdb", 0755 unless -d "$dirdb";
1239   YAML::Syck::DumpFile("$KLASK_DB_FILE", $computerdb);
1240   return;
1241   }
1242
1243#---------------------------------------------------------------
1244sub cmd_cleandb {
1245   my @ARGV  = @_;
1246
1247   my $days_to_clean = 15;
1248   my $repairdns;
1249   my $verbose;
1250   my $database_has_changed;
1251
1252   GetOptions(
1253      'day|d=i'   => \$days_to_clean,
1254      'verbose|v' => \$verbose,
1255      'repair-dns|r' => \$repairdns,
1256      );
1257
1258   my @vlan_name = get_list_network();
1259
1260   my $computerdb = computerdb_load();
1261   my $timestamp = time;
1262
1263   my $timestamp_barrier = 3600 * 24 * $days_to_clean;
1264   my $timestamp_3month  = 3600 * 24 * 90;
1265
1266   my %mactimedb = ();
1267   ALL_VLAN:
1268   for my $vlan (shuffle @vlan_name) {
1269
1270      my @ip_list   = shuffle get_list_ip($vlan);
1271
1272      LOOP_ON_IP_ADDRESS:
1273      for my $ip (@ip_list) {
1274
1275         next LOOP_ON_IP_ADDRESS if
1276            not exists $computerdb->{$ip};
1277
1278            #&& $computerdb->{$ip}{timestamp} > $timestamp_barrier;
1279         my $ip_timestamp   = $computerdb->{$ip}{timestamp};
1280         my $ip_mac         = $computerdb->{$ip}{mac_address};
1281         my $ip_hostname_fq = $computerdb->{$ip}{hostname_fq};
1282
1283         $mactimedb{$ip_mac} ||= {
1284            ip          => $ip,
1285            timestamp   => $ip_timestamp,
1286            vlan        => $vlan,
1287            hostname_fq => $ip_hostname_fq,
1288            };
1289
1290         if (
1291            ( $mactimedb{$ip_mac}->{timestamp} - $ip_timestamp > $timestamp_barrier
1292               or (
1293                  $mactimedb{$ip_mac}->{timestamp} > $ip_timestamp
1294                  and $timestamp - $mactimedb{$ip_mac}->{timestamp} > $timestamp_3month
1295                  )
1296            )
1297            and (
1298               not $mactimedb{$ip_mac}->{hostname_fq} =~ m/$RE_FLOAT_HOSTNAME/
1299               or $ip_hostname_fq =~ m/$RE_FLOAT_HOSTNAME/
1300               )) {
1301            print "remove ip $ip\n" if $verbose;
1302            delete $computerdb->{$ip};
1303            $database_has_changed++;
1304            }
1305
1306         elsif (
1307            ( $ip_timestamp - $mactimedb{$ip_mac}->{timestamp} > $timestamp_barrier
1308               or (
1309                  $ip_timestamp > $mactimedb{$ip_mac}->{timestamp}
1310                  and $timestamp - $ip_timestamp > $timestamp_3month
1311                  )
1312            )
1313            and (
1314               not $ip_hostname_fq =~ m/$RE_FLOAT_HOSTNAME/
1315               or $mactimedb{$ip_mac}->{hostname_fq} =~ m/$RE_FLOAT_HOSTNAME/
1316               )) {
1317            print "remove ip ".$mactimedb{$ip_mac}->{ip}."\n" if $verbose;
1318            delete $computerdb->{$mactimedb{$ip_mac}->{ip}};
1319            $database_has_changed++;
1320            }
1321
1322         if ( $ip_timestamp > $mactimedb{$ip_mac}->{timestamp}) {
1323            $mactimedb{$ip_mac} = {
1324               ip          => $ip,
1325               timestamp   => $ip_timestamp,
1326               vlan        => $vlan,
1327               hostname_fq => $ip_hostname_fq,
1328               };
1329            }
1330         }
1331      }
1332
1333   if ($repairdns) { # Search and update unkown computer in reverse DNS
1334      LOOP_ON_IP_ADDRESS:
1335      for my $ip (keys %{$computerdb}) {
1336         next LOOP_ON_IP_ADDRESS if $computerdb->{$ip}{hostname_fq} ne 'unknow';
1337
1338         my $packed_ip = scalar gethostbyname($ip);
1339         next LOOP_ON_IP_ADDRESS if not defined $packed_ip;
1340
1341         my $hostname_fq = scalar gethostbyaddr($packed_ip, AF_INET);
1342         next LOOP_ON_IP_ADDRESS if not defined $hostname_fq;
1343
1344         $computerdb->{$ip}{hostname_fq} = $hostname_fq;
1345         $database_has_changed++;
1346         }
1347      }
1348
1349   if ( $database_has_changed ) {
1350      my $dirdb = $KLASK_DB_FILE;
1351         $dirdb =~ s{ / [^/]* $}{}xms;
1352      mkdir "$dirdb", 0755 unless -d "$dirdb";
1353      YAML::Syck::DumpFile("$KLASK_DB_FILE", $computerdb);
1354      }
1355   return;
1356   }
1357
1358#---------------------------------------------------------------
1359sub cmd_exportdb {
1360   @ARGV = @_;
1361
1362   my $format = 'txt';
1363
1364   GetOptions(
1365      'format|f=s'  => \$format,
1366      );
1367
1368   my %possible_format = (
1369      txt  => \&cmd_exportdb_txt,
1370      html => \&cmd_exportdb_html,
1371      );
1372
1373   $format = 'txt' if not defined $possible_format{$format};
1374
1375   $possible_format{$format}->(@ARGV);
1376   return;
1377   }
1378
1379#---------------------------------------------------------------
1380sub cmd_exportdb_txt {
1381   test_maindb_environnement();
1382
1383   my $computerdb = computerdb_load();
1384
1385   printf "%-28s %8s              %-40s %-15s %-18s %-16s %s\n", qw(Switch Port Hostname-FQ IPv4-Address MAC-Address Date VLAN);
1386   print "--------------------------------------------------------------------------------------------------------------------------------------------\n";
1387
1388   LOOP_ON_IP_ADDRESS:
1389   for my $ip (Net::Netmask::sort_by_ip_address(keys %{$computerdb})) {
1390
1391      # to be improve in the future
1392      next LOOP_ON_IP_ADDRESS if $computerdb->{$ip}{hostname_fq} eq ($computerdb->{$ip}{switch_hostname} || $computerdb->{$ip}{switch_description}); # switch on himself !
1393
1394      my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime $computerdb->{$ip}{timestamp};
1395      $year += 1900;
1396      $mon++;
1397      my $date = sprintf '%04i-%02i-%02i %02i:%02i', $year, $mon, $mday, $hour, $min;
1398
1399      my $vlan = '';
1400      $vlan = $computerdb->{$ip}{network}.'('.get_current_vlan_id($computerdb->{$ip}{network}).')' if $computerdb->{$ip}{network};
1401
1402      my $arrow ='<-----------';
1403         $arrow ='<===========' if $computerdb->{$ip}{switch_port_hr} =~ m/^(Trk|Br|Po)/;
1404
1405      printf "%-28s %8s %12s %-40s %-15s %-18s %-16s %s\n",
1406         $computerdb->{$ip}{switch_hostname} || $computerdb->{$ip}{switch_description},
1407         $computerdb->{$ip}{switch_port_hr},
1408         $arrow,
1409         $computerdb->{$ip}{hostname_fq},
1410         $ip,
1411         $computerdb->{$ip}{mac_address},
1412         $date,
1413         $vlan;
1414      }
1415   return;
1416   }
1417
1418#---------------------------------------------------------------
1419sub cmd_exportdb_html {
1420   test_maindb_environnement();
1421
1422   my $computerdb = computerdb_load();
1423
1424#<link rel="stylesheet" type="text/css" href="style-klask.css" />
1425#<script src="sorttable-klask.js"></script>
1426
1427   print <<'END_HTML';
1428<table class="sortable" summary="Klask Host Database">
1429 <caption>Klask Host Database</caption>
1430 <thead>
1431  <tr>
1432   <th scope="col" class="klask-header-left">Switch</th>
1433   <th scope="col" class="sorttable_nosort">Port</th>
1434   <th scope="col" class="sorttable_nosort" colspan="2">Link</th>
1435   <th scope="col" class="sorttable_alpha">Hostname-FQ</th>
1436   <th scope="col" class="hklask-ipv4">IPv4-Address</th>
1437   <th scope="col" class="sorttable_alpha">MAC-Address</th>
1438   <th scope="col" class="sorttable_alpha">VLAN</th>
1439   <th scope="col" class="klask-header-right">Date</th>
1440  </tr>
1441 </thead>
1442 <tfoot>
1443  <tr>
1444   <th scope="col" class="klask-footer-left">Switch</th>
1445   <th scope="col" class="fklask-port">Port</th>
1446   <th scope="col" class="fklask-link" colspan="2">Link</th>
1447   <th scope="col" class="fklask-hostname">Hostname-FQ</th>
1448   <th scope="col" class="fklask-ipv4">IPv4-Address</th>
1449   <th scope="col" class="fklask-mac">MAC-Address</th>
1450   <th scope="col" class="fklask-vlan">VLAN</th>
1451   <th scope="col" class="klask-footer-right">Date</th>
1452  </tr>
1453 </tfoot>
1454 <tbody>
1455END_HTML
1456
1457   my %mac_count = ();
1458   LOOP_ON_IP_ADDRESS:
1459   for my $ip (keys %{$computerdb}) {
1460
1461      # to be improve in the future
1462      next LOOP_ON_IP_ADDRESS if $computerdb->{$ip}{hostname_fq} eq ($computerdb->{$ip}{switch_hostname} || $computerdb->{$ip}{switch_description}); # switch on himself !
1463
1464      $mac_count{$computerdb->{$ip}{mac_address}}++;
1465      }
1466
1467   my $typerow = 'even';
1468
1469   LOOP_ON_IP_ADDRESS:
1470   for my $ip (Net::Netmask::sort_by_ip_address(keys %{$computerdb})) {
1471
1472      # to be improve in the future
1473      next LOOP_ON_IP_ADDRESS if $computerdb->{$ip}{hostname_fq} eq ($computerdb->{$ip}{switch_hostname} || $computerdb->{$ip}{switch_description}); # switch on himself !
1474
1475      my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime $computerdb->{$ip}{timestamp};
1476      $year += 1900;
1477      $mon++;
1478      my $date = sprintf '%04i-%02i-%02i %02i:%02i', $year, $mon, $mday, $hour, $min;
1479
1480#      $odd_or_even++;
1481#      my $typerow = $odd_or_even % 2 ? 'odd' : 'even';
1482      $typerow = $typerow eq 'even' ? 'odd' : 'even';
1483
1484      my $arrow ='&#8592;';
1485         $arrow ='&#8656;' if $computerdb->{$ip}{switch_port_hr} =~ m/^(Trk|Br|Po)/;
1486
1487      my $switch_hostname = $computerdb->{$ip}{switch_hostname} || $computerdb->{$ip}{switch_description} || 'unkown';
1488      chomp $switch_hostname;
1489      my $switch_hostname_sort = sprintf '%s %3s' ,$switch_hostname, $computerdb->{$ip}{switch_port_hr};
1490
1491      my $ip_sort = sprintf '%03i%03i%03i%03i', split m/ \. /xms, $ip;
1492
1493      my $mac_sort = sprintf '%04i-%s', 9999 - $mac_count{$computerdb->{$ip}{mac_address}}, $computerdb->{$ip}{mac_address};
1494
1495      $computerdb->{$ip}{hostname_fq} = 'unknow' if $computerdb->{$ip}{hostname_fq} =~ m/^ \d+ \. \d+ \. \d+ \. \d+ $/xms;
1496      my ( $host_short ) = split m/ \. /xms, $computerdb->{$ip}{hostname_fq};
1497
1498      my $vlan = '';
1499      $vlan = $computerdb->{$ip}{network}.' ('.get_current_vlan_id($computerdb->{$ip}{network}).')' if $computerdb->{$ip}{network};
1500
1501      my $parent_port_hr = format_aggregator4html($computerdb->{$ip}{switch_port_hr});
1502
1503      print <<"END_HTML";
1504  <tr class="$typerow">
1505   <td sorttable_customkey="$switch_hostname_sort">$switch_hostname</td>
1506   <td class="bklask-port">$parent_port_hr</td>
1507   <td colspan="2">$arrow</td>
1508   <td sorttable_customkey="$host_short">$computerdb->{$ip}{hostname_fq}</td>
1509   <td sorttable_customkey="$ip_sort">$ip</td>
1510   <td sorttable_customkey="$mac_sort">$computerdb->{$ip}{mac_address}</td>
1511   <td>$vlan</td>
1512   <td>$date</td>
1513  </tr>
1514END_HTML
1515      }
1516
1517   my $switch_connection = YAML::Syck::LoadFile("$KLASK_SW_FILE");
1518
1519   my %db_switch_output_port       = %{$switch_connection->{output_port}};
1520   my %db_switch_parent            = %{$switch_connection->{parent}};
1521   my %db_switch_connected_on_port = %{$switch_connection->{connected_on_port}};
1522   my %db_switch                   = %{$switch_connection->{switch_db}};
1523
1524   for my $sw (sort keys %db_switch_output_port) {
1525
1526      my $switch_hostname_sort = sprintf '%s %3s' ,$sw, $db_switch_output_port{$sw};
1527
1528      $typerow = $typerow eq 'even' ? 'odd' : 'even';
1529
1530      my $arrow ='&#8702;';
1531         $arrow ='&#8680;' if $db_switch_output_port{$sw} =~ m/^(Trk|Br|Po)/;
1532
1533      if (exists $db_switch_parent{$sw}) {
1534         my $mac_address = $db_switch{$db_switch_parent{$sw}->{'switch'}}->{mac_address};
1535         my $ipv4_address = $db_switch{$db_switch_parent{$sw}->{'switch'}}->{ipv4_address};
1536         my $timestamp = $db_switch{$db_switch_parent{$sw}->{'switch'}}->{timestamp};
1537
1538         my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime $timestamp;
1539         $year += 1900;
1540         $mon++;
1541         my $date = sprintf '%04i-%02i-%02i %02i:%02i', $year, $mon, $mday, $hour, $min;
1542
1543         my $ip_sort = sprintf '%03i%03i%03i%03i', split m/ [\.\*] /xms, $ipv4_address; # \* for fake-ip
1544
1545         my $mac_sort = sprintf '%04i-%s', 9999, $mac_address;
1546
1547         my ( $host_short ) = sprintf '%s %3s' , split(m/ \. /xms, $db_switch_parent{$sw}->{'switch'}, 1), $db_switch_parent{$sw}->{port_hr};
1548
1549         my $parent_port_hr = format_aggregator4html($db_switch_output_port{$sw});
1550         my $child_port_hr  = format_aggregator4html($db_switch_parent{$sw}->{port_hr});
1551
1552         print <<"END_HTML";
1553  <tr class="$typerow">
1554   <td sorttable_customkey="$switch_hostname_sort">$sw</td>
1555   <td class="bklask-port">$parent_port_hr</td>
1556   <td>$arrow</td><td>$child_port_hr</td>
1557   <td sorttable_customkey="$host_short">$db_switch_parent{$sw}->{'switch'}</td>
1558   <td sorttable_customkey="$ip_sort">$ipv4_address</td>
1559   <td sorttable_customkey="$mac_sort">$mac_address</td>
1560   <td></td>
1561   <td>$date</td>
1562  </tr>
1563END_HTML
1564         }
1565      else {
1566         my $parent_port_hr = format_aggregator4html($db_switch_output_port{$sw});
1567
1568         print <<"END_HTML";
1569  <tr class="$typerow">
1570   <td sorttable_customkey="$switch_hostname_sort">$sw</td>
1571   <td class="bklask-port">$parent_port_hr</td>
1572   <td>$arrow</td><td></td>
1573   <td sorttable_customkey="router">router</td>
1574   <td sorttable_customkey="999999999999"></td>
1575   <td sorttable_customkey="99999"></td>
1576   <td></td>
1577   <td></td>
1578  </tr>
1579END_HTML
1580         }
1581      }
1582
1583   for my $swport (sort keys %db_switch_connected_on_port) {
1584      my ($sw_connect, $port_connect) = split m/ $SEP_SWITCH_PORT /xms, $swport, 2;
1585      for my $sw (keys %{$db_switch_connected_on_port{$swport}}) {
1586
1587         my $switch_hostname_sort = sprintf '%s %3s' ,$sw_connect, $port_connect;
1588
1589         my $mac_address = $db_switch{$sw}->{mac_address};
1590         my $ipv4_address = $db_switch{$sw}->{ipv4_address};
1591         my $timestamp = $db_switch{$sw}->{timestamp};
1592
1593         my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime $timestamp;
1594         $year += 1900;
1595         $mon++;
1596         my $date = sprintf '%04i-%02i-%02i %02i:%02i', $year,$mon,$mday,$hour,$min;
1597
1598         my $ip_sort = sprintf '%03i%03i%03i%03i', split m/ [\.\*] /xms, $ipv4_address; # \* for fake-ip
1599
1600         my $mac_sort = sprintf '%04i-%s', 9999, $mac_address;
1601
1602         $typerow = $typerow eq 'even' ? 'odd' : 'even';
1603
1604         my $arrow ='&#8701;';
1605            $arrow ='&#8678;' if $port_connect =~ m/^(Trk|Br|Po)/;
1606
1607         if (exists $db_switch_output_port{$sw}) {
1608
1609            my ( $host_short ) = sprintf '%s %3s' , split( m/\./xms, $sw, 1), $db_switch_output_port{$sw};
1610
1611            my $parent_port_hr = format_aggregator4html($port_connect);
1612            my $child_port_hr  = format_aggregator4html($db_switch_output_port{$sw});
1613
1614            print <<"END_HTML";
1615  <tr class="$typerow">
1616   <td sorttable_customkey="$switch_hostname_sort">$sw_connect</td>
1617   <td class="bklask-port">$parent_port_hr</td>
1618   <td>$arrow</td><td>$child_port_hr</td>
1619   <td sorttable_customkey="$host_short">$sw</td>
1620   <td sorttable_customkey="$ip_sort">$ipv4_address</td>
1621   <td sorttable_customkey="$mac_sort">$mac_address</td>
1622   <td></td>
1623   <td>$date</td>
1624  </tr>
1625END_HTML
1626            }
1627         else {
1628            my $parent_port_hr = format_aggregator4html($port_connect);
1629
1630            print <<"END_HTML";
1631  <tr class="$typerow">
1632   <td sorttable_customkey="$switch_hostname_sort">$sw_connect</td>
1633   <td class="bklask-port">$parent_port_hr</td>
1634   <td>$arrow</td><td></td>
1635   <td sorttable_customkey="$sw">$sw</td>
1636   <td sorttable_customkey="">$ipv4_address</td>
1637   <td sorttable_customkey="">$mac_address</td>
1638   <td></td>
1639   <td>$date</td>
1640  </tr>
1641END_HTML
1642            }
1643         }
1644      }
1645
1646   print <<'END_HTML';
1647 </tbody>
1648</table>
1649END_HTML
1650   return;
1651   }
1652
1653#---------------------------------------------------------------
1654sub cmd_bad_vlan_id {
1655   @ARGV = @_;
1656
1657   my $days_before_alert = $DEFAULT{'days-before-alert'} || 15;
1658   my $verbose;
1659
1660   GetOptions(
1661      'day|d=i'   => \$days_before_alert,
1662      );
1663
1664   test_maindb_environnement();
1665
1666   my $computerdb = computerdb_load();
1667
1668   # create a database with the most recent computer by switch port
1669   my %switchportdb = ();
1670   LOOP_ON_IP_ADDRESS:
1671   for my $ip (keys %{$computerdb}) {
1672      # to be improve in the future
1673      next LOOP_ON_IP_ADDRESS if $computerdb->{$ip}{hostname_fq} eq ($computerdb->{$ip}{switch_hostname} || $computerdb->{$ip}{switch_description}); # switch on himself !
1674      next LOOP_ON_IP_ADDRESS if ($computerdb->{$ip}{switch_hostname} || $computerdb->{$ip}{switch_description}) eq 'unknow';
1675      next LOOP_ON_IP_ADDRESS if $computerdb->{$ip}{switch_port} eq '0';
1676
1677      my $ip_timestamp   = $computerdb->{$ip}{timestamp};
1678      my $ip_mac         = $computerdb->{$ip}{mac_address};
1679      my $ip_hostname_fq = $computerdb->{$ip}{hostname_fq};
1680
1681      my $swpt = sprintf "%-28s  %2s",
1682         $computerdb->{$ip}{switch_hostname} || $computerdb->{$ip}{switch_description},
1683         $computerdb->{$ip}{switch_port_hr};
1684      $switchportdb{$swpt} ||= {
1685         ip          => $ip,
1686         timestamp   => $ip_timestamp,
1687         vlan        => $computerdb->{$ip}{network},
1688         hostname_fq => $ip_hostname_fq,
1689         mac_address => $ip_mac,
1690         };
1691
1692      # if float computer, set date 15 day before warning...
1693      my $ip_timestamp_mod = $ip_timestamp;
1694      my $ip_timestamp_ref = $switchportdb{$swpt}->{timestamp};
1695      $ip_timestamp_mod -= $days_before_alert * 24 * 3600 if $ip_hostname_fq =~ m/$RE_FLOAT_HOSTNAME/;
1696      $ip_timestamp_ref -= $days_before_alert * 24 * 3600 if $switchportdb{$swpt}->{hostname_fq} =~ m/$RE_FLOAT_HOSTNAME/;
1697
1698      if ($ip_timestamp_mod > $ip_timestamp_ref) {
1699         $switchportdb{$swpt} = {
1700            ip          => $ip,
1701            timestamp   => $ip_timestamp,
1702            vlan        => $computerdb->{$ip}{network},
1703            hostname_fq => $ip_hostname_fq,
1704            mac_address => $ip_mac,
1705            };
1706         }
1707      }
1708
1709   LOOP_ON_RECENT_COMPUTER:
1710   for my $swpt (keys %switchportdb) {
1711      next LOOP_ON_RECENT_COMPUTER if $swpt =~ m/^\s*0$/;
1712      next LOOP_ON_RECENT_COMPUTER if $switchportdb{$swpt}->{hostname_fq} !~ m/$RE_FLOAT_HOSTNAME/;
1713
1714      my $src_ip = $switchportdb{$swpt}->{ip};
1715      my $src_timestamp = 0;
1716      LOOP_ON_IP_ADDRESS:
1717      for my $ip (keys %{$computerdb}) {
1718         next LOOP_ON_IP_ADDRESS if $computerdb->{$ip}{mac_address} ne  $switchportdb{$swpt}->{mac_address};
1719         next LOOP_ON_IP_ADDRESS if $computerdb->{$ip}{hostname_fq} =~ m/$RE_FLOAT_HOSTNAME/;
1720         next LOOP_ON_IP_ADDRESS if $computerdb->{$ip}{timestamp} < $src_timestamp;
1721
1722         $src_ip = $ip;
1723         $src_timestamp = $computerdb->{$ip}{timestamp};
1724         }
1725
1726      # keep only if float computer is the most recent
1727      next LOOP_ON_RECENT_COMPUTER if $src_timestamp == 0;
1728      next LOOP_ON_RECENT_COMPUTER if $switchportdb{$swpt}->{timestamp} < $src_timestamp;
1729
1730      my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime $switchportdb{$swpt}->{timestamp};
1731      $year += 1900;
1732      $mon++;
1733      my $date = sprintf '%04i-%02i-%02i/%02i:%02i', $year, $mon, $mday, $hour, $min;
1734
1735      ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime $computerdb->{$src_ip}{timestamp};
1736      $year += 1900;
1737      $mon++;
1738      my $src_date = sprintf '%04i-%02i-%02i/%02i:%02i', $year, $mon, $mday, $hour, $min;
1739
1740      my $vlan_id = get_current_vlan_id($computerdb->{$src_ip}{network});
1741
1742      printf "%s / %-10s +-> %-10s(%i)  %s %s %s %s\n",
1743         $swpt, $switchportdb{$swpt}->{vlan}, $computerdb->{$src_ip}{network}, $vlan_id,
1744         $date,
1745         $src_date,
1746         $computerdb->{$src_ip}{mac_address},
1747         $computerdb->{$src_ip}{hostname_fq};
1748      }
1749   }
1750
1751#---------------------------------------------------------------
1752sub cmd_poe_enable {
1753   @ARGV = @_;
1754
1755   my $verbose;
1756   GetOptions(
1757      'verbose|v' => \$verbose,
1758      );
1759
1760   my $switch_name = shift @ARGV || q{};
1761   my $switch_port = shift @ARGV || q{};
1762
1763   if ($switch_name eq q{} or $switch_port eq q{}) {
1764      die "Usage: klask poe-enable SWITCH_NAME PORT\n";
1765      }
1766
1767   for my $sw_name (split /,/, $switch_name) {
1768      if (not defined $SWITCH_DB{$sw_name}) {
1769         die "Switch $sw_name must be defined in klask configuration file\n";
1770         }
1771
1772      my $search = $OID_NUMBER{'NApoeState'} . ".$switch_port"; # Only NEXANS Switch and low port number
1773
1774      my $sw = $SWITCH_DB{$sw_name};
1775      my ($session, $error) = Net::SNMP->session(snmp_get_rwsession($sw));
1776      print "$error \n" if $error;
1777
1778      my $result = $session->set_request(
1779         -varbindlist => [$search, INTEGER, 8], # Only NEXANS
1780         );
1781      print $session->error()."\n" if $session->error_status();
1782
1783      $session->close;
1784      }
1785   cmd_poe_status($switch_name, $switch_port);
1786   return;
1787   }
1788
1789#---------------------------------------------------------------
1790sub cmd_poe_disable {
1791   @ARGV = @_;
1792
1793   my $verbose;
1794   GetOptions(
1795      'verbose|v' => \$verbose,
1796      );
1797
1798   my $switch_name = shift @ARGV || q{};
1799   my $switch_port = shift @ARGV || q{};
1800
1801   if ($switch_name eq q{} or $switch_port eq q{}) {
1802      die "Usage: klask poe-disable SWITCH_NAME PORT\n";
1803      }
1804
1805   for my $sw_name (split /,/, $switch_name) {
1806      if (not defined $SWITCH_DB{$sw_name}) {
1807         die "Switch $sw_name must be defined in klask configuration file\n";
1808         }
1809
1810      my $search = $OID_NUMBER{'NApoeState'} . ".$switch_port"; # Only NEXANS Switch and low port number
1811
1812      my $sw = $SWITCH_DB{$sw_name};
1813      my ($session, $error) = Net::SNMP->session(snmp_get_rwsession($sw));
1814      print "$error \n" if $error;
1815
1816      my $result = $session->set_request(
1817         -varbindlist => [$search, INTEGER, 2], # Only NEXANS
1818         );
1819      print $session->error()."\n" if $session->error_status();
1820
1821      $session->close;
1822      }
1823   cmd_poe_status($switch_name, $switch_port);
1824   return;
1825   }
1826
1827#---------------------------------------------------------------
1828sub cmd_poe_status {
1829   @ARGV = @_;
1830
1831   my $verbose;
1832   GetOptions(
1833      'verbose|v' => \$verbose,
1834      );
1835
1836   my $switch_name = shift @ARGV || q{};
1837   my $switch_port = shift @ARGV || q{};
1838
1839   if ($switch_name eq q{} or $switch_port eq q{}) {
1840      die "Usage: klask poe-status SWITCH_NAME PORT\n";
1841      }
1842
1843   for my $sw_name (split /,/, $switch_name) {
1844      if (not defined $SWITCH_DB{$sw_name}) {
1845         die "Switch $sw_name must be defined in klask configuration file\n";
1846         }
1847
1848      my $search = $OID_NUMBER{'NApoeState'} . ".$switch_port"; # Only NEXANS Switch and low port number
1849
1850      my $sw = $SWITCH_DB{$sw_name};
1851      my ($session, $error) = Net::SNMP->session( %{$sw->{'snmp_param_session'}} );
1852      print "$error \n" if $error;
1853
1854      my $result = $session->get_request(
1855         -varbindlist => [$search],
1856         );
1857
1858      if (defined $result and $result->{$search} ne 'noSuchInstance') {
1859         my $poe = $result->{$search} || 'empty';
1860         $poe =~ s/8/enable/;
1861         $poe =~ s/2/disable/;
1862         printf "%s  %s poe %s\n", $sw_name, $switch_port, $poe;
1863         }
1864      else {
1865         print "Klask do not find PoE Status on switch $sw_name on port $switch_port\n";
1866         }
1867
1868      $session->close;
1869      }
1870   return;
1871   }
1872
1873#---------------------------------------------------------------
1874# not finish - do not use
1875sub cmd_port_setvlan {
1876   my $switch_name = shift || q{};
1877   my $mac_address = shift || q{};
1878
1879   if ($switch_name eq q{} or $mac_address eq q{}) {
1880      die "Usage: klask search-mac-on-switch SWITCH_NAME MAC_ADDRESS\n";
1881      }
1882
1883   $switch_name = join(',', map {$_->{hostname}} @SWITCH_LIST ) if $switch_name eq q{*};
1884
1885   for my $sw_name (split /,/, $switch_name) {
1886      if (not defined $SWITCH_DB{$sw_name}) {
1887         die "Switch $sw_name must be defined in klask configuration file\n";
1888         }
1889
1890      my $research1 = $OID_NUMBER{'searchPort1'} . mac_address_hex2dec($mac_address);
1891      my $research2 = $OID_NUMBER{'searchPort2'} .'.'. 0 . mac_address_hex2dec($mac_address);
1892      print "Klask search OID $research1 on switch $sw_name\n";
1893      print "Klask search OID $research2 on switch $sw_name\n";
1894
1895      my $sw = $SWITCH_DB{$sw_name};
1896      my ($session, $error) = Net::SNMP->session( %{$sw->{'snmp_param_session'}} );
1897      print "$error \n" if $error;
1898
1899      my $result = $session->get_request(
1900         -varbindlist => [$research1]
1901         );
1902      if (not defined $result) {
1903         $result = $session->get_request(
1904            -varbindlist => [$research2]
1905            );
1906         $result->{$research1} = $result->{$research2} if defined $result;
1907         }
1908
1909      if (defined $result and $result->{$research1} ne 'noSuchInstance') {
1910         my $swport = $result->{$research1};
1911         print "Klask find MAC $mac_address on switch $sw_name port $swport\n";
1912         }
1913      else {
1914         print "Klask do not find MAC $mac_address on switch $sw_name\n";
1915         }
1916
1917      $session->close;
1918      }
1919   return;
1920   }
1921
1922#---------------------------------------------------------------
1923sub cmd_port_getvlan {
1924   @ARGV = @_;
1925
1926   my $verbose;
1927   GetOptions(
1928      'verbose|v' => \$verbose,
1929      );
1930
1931   my $switch_name = shift @ARGV || q{};
1932   my $switch_port = shift @ARGV || q{};
1933
1934   if ($switch_name eq q{} or $switch_port eq q{}) {
1935      die "Usage: klask port-getvlan SWITCH_NAME PORT\n";
1936      }
1937
1938   for my $sw_name (split /,/, $switch_name) {
1939      if (not defined $SWITCH_DB{$sw_name}) {
1940         die "Switch $sw_name must be defined in klask configuration file\n";
1941         }
1942
1943      my $search = $OID_NUMBER{'vlanPortDefault'} . ".$switch_port";
1944
1945      my $sw = $SWITCH_DB{$sw_name};
1946      my ($session, $error) = Net::SNMP->session( %{$sw->{'snmp_param_session'}} );
1947      print "$error \n" if $error;
1948
1949      my $result = $session->get_request(
1950         -varbindlist => [$search],
1951         );
1952
1953      if (defined $result and $result->{$search} ne 'noSuchInstance') {
1954         my $vlan_id = $result->{$search} || 'empty';
1955         print "Klask VLAN Id $vlan_id on switch $sw_name on port $switch_port\n";
1956         }
1957      else {
1958         print "Klask do not find VLAN Id on switch $sw_name on port $switch_port\n";
1959         }
1960
1961      $session->close;
1962      }
1963   return;
1964   }
1965
1966#---------------------------------------------------------------
1967sub cmd_vlan_setname {
1968   }
1969
1970#---------------------------------------------------------------
1971# snmpset -v 1 -c public sw1-batG0-legi.hmg.priv "$OID_NUMBER{'HPicfReset'}.0" i 2;
1972sub cmd_rebootsw {
1973   @ARGV = @_;
1974
1975   my $verbose;
1976   GetOptions(
1977      'verbose|v' => \$verbose,
1978      );
1979
1980   my $switch_name = shift @ARGV || q{};
1981
1982   if ($switch_name eq q{}) {
1983      die "Usage: klask rebootsw SWITCH_NAME\n";
1984      }
1985
1986   for my $sw_name (split /,/, $switch_name) {
1987      if (not defined $SWITCH_DB{$sw_name}) {
1988         die "Switch $sw_name must be defined in klask configuration file\n";
1989         }
1990
1991      my $sw = $SWITCH_DB{$sw_name};
1992      my ($session, $error) = Net::SNMP->session(snmp_get_rwsession($sw));
1993      print "$error \n" if $error;
1994
1995      my $result = $session->set_request(
1996         -varbindlist => ["$OID_NUMBER{'HPicfReset'}.0", INTEGER, 2],
1997         );
1998
1999      $session->close;
2000      }
2001   return;
2002   }
2003
2004#---------------------------------------------------------------
2005sub cmd_vlan_getname {
2006   my $switch_name = shift || q{};
2007   my $vlan_id     = shift || q{};
2008
2009   if ($switch_name eq q{} or $vlan_id eq q{}) {
2010      die "Usage: klask vlan-getname SWITCH_NAME VLAN_ID\n";
2011      }
2012
2013   $switch_name = join(',', map {$_->{hostname}} @SWITCH_LIST ) if $switch_name eq q{*};
2014
2015   for my $sw_name (split /,/, $switch_name) {
2016      if (not defined $SWITCH_DB{$sw_name}) {
2017         die "Switch $sw_name must be defined in klask configuration file\n";
2018         }
2019
2020      my $search_vlan_name = $OID_NUMBER{vlanName} . ".$vlan_id";
2021
2022      my $sw = $SWITCH_DB{$sw_name};
2023      my ($session, $error) = Net::SNMP->session( %{$sw->{'snmp_param_session'}} );
2024      print "$error \n" if $error;
2025
2026      my $result = $session->get_request(
2027         -varbindlist => [$search_vlan_name]
2028         );
2029
2030      if (defined $result and $result->{$search_vlan_name} ne 'noSuchInstance') {
2031         my $vlan_name = $result->{$search_vlan_name} || 'empty';
2032         print "Klask find VLAN $vlan_id on switch $sw_name with name $vlan_name\n";
2033         }
2034      else {
2035         print "Klask do not find VLAN $vlan_id on switch $sw_name\n";
2036         }
2037
2038      $session->close;
2039      }
2040   return;
2041   }
2042
2043#---------------------------------------------------------------
2044sub cmd_vlan_list {
2045   my $switch_name = shift || q{};
2046
2047   if ($switch_name eq q{}) {
2048      die "Usage: klask vlan-list SWITCH_NAME\n";
2049      }
2050
2051   $switch_name = join(',', map {$_->{hostname}} @SWITCH_LIST ) if $switch_name eq q{*};
2052
2053   for my $sw_name (split /,/, $switch_name) {
2054      if (not defined $SWITCH_DB{$sw_name}) {
2055         die "Switch $sw_name must be defined in klask configuration file\n";
2056         }
2057
2058      my $sw = $SWITCH_DB{$sw_name};
2059      my ($session, $error) = Net::SNMP->session( %{$sw->{'snmp_param_session'}} );
2060      print "$error \n" if $error;
2061
2062      my %vlandb = snmp_get_vlan_list($session);
2063      $session->close;
2064     
2065      print "VLAN_ID - VLAN_NAME # $sw_name\n";
2066      for my $vlanid (keys %vlandb) {
2067         printf "%7i - %s\n", $vlanid, $vlandb{$vlanid};
2068         }
2069      }
2070   return;
2071   }
2072
2073#---------------------------------------------------------------
2074sub cmd_ip_location {
2075   my $computerdb = computerdb_load();
2076
2077   LOOP_ON_IP_ADDRESS:
2078   for my $ip (Net::Netmask::sort_by_ip_address(keys %{$computerdb})) {
2079
2080      next LOOP_ON_IP_ADDRESS if $computerdb->{$ip}{hostname_fq} eq ($computerdb->{$ip}{switch_hostname} || $computerdb->{$ip}{switch_description}); # switch on himself !
2081
2082      my $sw_hostname = $computerdb->{$ip}{switch_hostname} || q{};
2083      next LOOP_ON_IP_ADDRESS if $sw_hostname eq 'unknow';
2084
2085      my $sw_location = q{};
2086      LOOP_ON_ALL_SWITCH:
2087      for my $sw (@SWITCH_LIST) {
2088         next LOOP_ON_ALL_SWITCH if $sw_hostname ne $sw->{hostname};
2089         $sw_location = $sw->{location};
2090         last;
2091         }
2092
2093      printf "%s: \"%s\"\n", $ip, $sw_location if not $sw_location eq q{};
2094      }
2095   return;
2096   }
2097
2098#---------------------------------------------------------------
2099sub cmd_ip_free {
2100   @ARGV = @_;
2101
2102   my $days_to_death = $DEFAULT{'days-to-death'} || 365 * 2;
2103   my $format = 'txt';
2104   my $verbose;
2105
2106   GetOptions(
2107      'day|d=i'      => \$days_to_death,
2108      'format|f=s'   => \$format,
2109      'verbose|v'    => \$verbose,
2110      );
2111
2112   my %possible_format = (
2113      txt  => \&cmd_ip_free_txt,
2114      html => \&cmd_ip_free_html,
2115      none => sub {},
2116      );
2117   $format = 'txt' if not defined $possible_format{$format};
2118
2119   my @vlan_name = @ARGV;
2120   @vlan_name = get_list_network() if not @vlan_name;
2121
2122   my $computerdb = {};
2123      $computerdb = computerdb_load() if -e "$KLASK_DB_FILE";
2124   my $timestamp = time;
2125
2126   my $timestamp_barrier = $timestamp - (3600 * 24 * $days_to_death);
2127
2128   my %result_ip = ();
2129
2130   ALL_NETWORK:
2131   for my $vlan (@vlan_name) {
2132
2133      my @ip_list = get_list_ip($vlan);
2134
2135      LOOP_ON_IP_ADDRESS:
2136      for my $ip (@ip_list) {
2137
2138         if (exists $computerdb->{$ip}) {
2139            next LOOP_ON_IP_ADDRESS if $computerdb->{$ip}{timestamp} > $timestamp_barrier;
2140
2141            my $mac_address = $computerdb->{$ip}{mac_address};
2142            LOOP_ON_DATABASE:
2143            for my $ip_db (keys %{$computerdb}) {
2144               next LOOP_ON_DATABASE if $computerdb->{$ip_db}{mac_address} ne $mac_address;
2145               next LOOP_ON_IP_ADDRESS if $computerdb->{$ip_db}{timestamp} > $timestamp_barrier;
2146               }
2147            }
2148
2149         my $ip_date_last_detection = '';
2150         if (exists $computerdb->{$ip}) {
2151            my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime $computerdb->{$ip}{timestamp};
2152            $year += 1900;
2153            $mon++;
2154            $ip_date_last_detection = sprintf '%04i-%02i-%02i %02i:%02i', $year, $mon, $mday, $hour, $min;
2155            }
2156
2157         my $packed_ip = scalar gethostbyname($ip);
2158         my $hostname_fq = 'unknown';
2159            $hostname_fq = scalar gethostbyaddr($packed_ip, AF_INET) || 'unknown' if defined $packed_ip and get_current_scan_mode($vlan) eq 'active';
2160
2161         next LOOP_ON_IP_ADDRESS if $hostname_fq =~ m/$RE_FLOAT_HOSTNAME/;
2162
2163         $result_ip{$ip} ||= {};
2164         $result_ip{$ip}->{date_last_detection} = $ip_date_last_detection;
2165         $result_ip{$ip}->{hostname_fq} = $hostname_fq;
2166         $result_ip{$ip}->{vlan} = $vlan;
2167
2168         printf "VERBOSE_1: %-15s %-12s %s\n", $ip, $vlan, $hostname_fq if $verbose;
2169         }
2170      }
2171
2172   $possible_format{$format}->(%result_ip);
2173   }
2174
2175#---------------------------------------------------------------
2176sub cmd_ip_free_txt {
2177   my %result_ip = @_;
2178
2179   printf "%-15s %-40s %-16s %s\n", qw(IPv4-Address Hostname-FQ Date VLAN);
2180   print "-------------------------------------------------------------------------------\n";
2181   LOOP_ON_IP_ADDRESS:
2182   for my $ip (Net::Netmask::sort_by_ip_address(keys %result_ip)) {
2183         my $vlan_nameid = $result_ip{$ip}->{vlan}.'('.get_current_vlan_id($result_ip{$ip}->{vlan}).')';
2184         printf "%-15s %-40s %-16s %s\n", $ip, $result_ip{$ip}->{hostname_fq}, $result_ip{$ip}->{date_last_detection}, $vlan_nameid;
2185      }
2186   }
2187
2188#---------------------------------------------------------------
2189sub cmd_ip_free_html {
2190   my %result_ip = @_;
2191
2192   print <<'END_HTML';
2193<table class="sortable" summary="Klask Free IP Database">
2194 <caption>Klask Free IP Database</caption>
2195 <thead>
2196  <tr>
2197   <th scope="col" class="klask-header-left">IPv4-Address</th>
2198   <th scope="col" class="sorttable_alpha">Hostname-FQ</th>
2199   <th scope="col" class="sorttable_alpha">VLAN</th>
2200   <th scope="col" class="klask-header-right">Date</th>
2201  </tr>
2202 </thead>
2203 <tfoot>
2204  <tr>
2205   <th scope="col" class="klask-footer-left">IPv4-Address</th>
2206   <th scope="col" class="fklask-hostname">Hostname-FQ</th>
2207   <th scope="col" class="fklask-vlan">VLAN</th>
2208   <th scope="col" class="klask-footer-right">Date</th>
2209  </tr>
2210 </tfoot>
2211 <tbody>
2212END_HTML
2213
2214   my $typerow = 'even';
2215
2216   LOOP_ON_IP_ADDRESS:
2217   for my $ip (Net::Netmask::sort_by_ip_address(keys %result_ip)) {
2218
2219      $typerow = $typerow eq 'even' ? 'odd' : 'even';
2220
2221      my $ip_sort = sprintf '%03i%03i%03i%03i', split m/ \. /xms, $ip;
2222      my ( $host_short ) = split m/ \. /xms, $result_ip{$ip}->{hostname_fq};
2223
2224      my $vlan_nameid = $result_ip{$ip}->{vlan}.'('.get_current_vlan_id($result_ip{$ip}->{vlan}).')';
2225
2226      print <<"END_HTML";
2227  <tr class="$typerow">
2228   <td sorttable_customkey="$ip_sort">$ip</td>
2229   <td sorttable_customkey="$host_short">$result_ip{$ip}->{hostname_fq}</td>
2230   <td>$vlan_nameid</td>
2231   <td>$result_ip{$ip}->{date_last_detection}</td>
2232  </tr>
2233END_HTML
2234      }
2235   print <<'END_HTML';
2236 </tbody>
2237</table>
2238END_HTML
2239   }
2240
2241#---------------------------------------------------------------
2242sub cmd_enable {
2243   @ARGV = @_;
2244
2245   my $verbose;
2246
2247   GetOptions(
2248      'verbose|v' => \$verbose,
2249      );
2250
2251   my $switch_name = shift @ARGV || q{};
2252   my $port        = shift @ARGV || q{};
2253
2254   if ($switch_name eq q{} or $port eq q{}) {
2255      die "Usage: klask disable SWITCH_NAME PORT\n";
2256      }
2257
2258   if (not defined $SWITCH_DB{$switch_name}) {
2259      die "Switch $switch_name must be defined in klask configuration file\n";
2260      }
2261
2262   my $sw = $SWITCH_DB{$switch_name};
2263   my ($session, $error) = Net::SNMP->session(snmp_get_rwsession($sw));
2264   print "$error \n" if $error;
2265
2266   # Retrieve numeric port value
2267   my $port_num = snmp_get_switchport_hr2num($session, normalize_port_human_readable($port), $verbose ? 'yes' : '');
2268   die "Error : Port $port does not exist on switch $switch_name\n" if not $port_num =~ m/^\d+$/;
2269
2270   my $search_portstatus = $OID_NUMBER{'portUpDown'} .'.'. $port_num;
2271   print "Info: switch $switch_name port $port SNMP OID $search_portstatus\n" if $verbose;
2272
2273   my $result = $session->set_request(
2274      -varbindlist => [$search_portstatus, INTEGER, 1],
2275      );
2276   print $session->error()."\n" if $session->error_status();
2277
2278   $session->close;
2279
2280   #snmpset -v 1 -c community X.X.X.X 1.3.6.1.2.1.2.2.1.7.NoPort = 1 (up)
2281   #snmpset -v 1 -c community X.X.X.X 1.3.6.1.2.1.2.2.1.7.NoPort = 2 (down)
2282   #system "snmpset -v 1 -c public $switch 1.3.6.1.2.1.2.2.1.7.$port = 1";
2283   return;
2284   }
2285
2286#---------------------------------------------------------------
2287sub cmd_disable {
2288   @ARGV = @_;
2289
2290   my $verbose;
2291
2292   GetOptions(
2293      'verbose|v' => \$verbose,
2294      );
2295
2296   my $switch_name = shift @ARGV || q{};
2297   my $port        = shift @ARGV || q{};
2298
2299   if ($switch_name eq q{} or $port eq q{}) {
2300      die "Usage: klask disable SWITCH_NAME PORT\n";
2301      }
2302
2303   if (not defined $SWITCH_DB{$switch_name}) {
2304      die "Switch $switch_name must be defined in klask configuration file\n";
2305      }
2306
2307   my $sw = $SWITCH_DB{$switch_name};
2308   my ($session, $error) = Net::SNMP->session(snmp_get_rwsession($sw));
2309   print "$error \n" if $error;
2310
2311   # Retrieve numeric port value
2312   my $port_num = snmp_get_switchport_hr2num($session, normalize_port_human_readable($port), $verbose ? 'yes' : '');
2313   die "Error : Port $port does not exist on switch $switch_name\n" if not $port_num =~ m/^\d+$/;
2314
2315   my $search_portstatus = $OID_NUMBER{'portUpDown'} .'.'. $port_num;
2316   print "Info: switch $switch_name port $port SNMP OID $search_portstatus\n" if $verbose;
2317
2318   my $result = $session->set_request(
2319      -varbindlist => [$search_portstatus, INTEGER, 2],
2320      );
2321   print $session->error()."\n" if $session->error_status();
2322
2323   $session->close;
2324
2325   #system "snmpset -v 1 -c public $switch 1.3.6.1.2.1.2.2.1.7.$port = 2";
2326   return;
2327   }
2328
2329#---------------------------------------------------------------
2330sub cmd_status {
2331   @ARGV = @_;
2332
2333   my $verbose;
2334
2335   GetOptions(
2336      'verbose|v' => \$verbose,
2337      );
2338
2339   my $switch_name = shift @ARGV || q{};
2340   my $port        = shift @ARGV || q{};
2341
2342   if ($switch_name eq q{} or $port eq q{}) {
2343      die "Usage: klask status SWITCH_NAME PORT\n";
2344      }
2345
2346   if (not defined $SWITCH_DB{$switch_name}) {
2347      die "Switch $switch_name must be defined in klask configuration file\n";
2348      }
2349
2350   my $sw = $SWITCH_DB{$switch_name};
2351   my ($session, $error) = Net::SNMP->session( %{$sw->{'snmp_param_session'}} );
2352   print "$error \n" if $error;
2353
2354   # Retrieve numeric port value
2355   my $port_num = snmp_get_switchport_hr2num($session, normalize_port_human_readable($port), $verbose ? 'yes' : '');
2356   die "Error : Port $port does not exist on switch $switch_name\n" if not $port_num =~ m/^\d+$/;
2357
2358   my $search_portstatus = $OID_NUMBER{'portUpDown'} .'.'. $port_num;
2359   print "Info: switch $switch_name port $port ($port_num) SNMP OID $search_portstatus\n" if $verbose;
2360
2361   my $result = $session->get_request(
2362      -varbindlist => [$search_portstatus]
2363      );
2364   print $session->error()."\n" if $session->error_status();
2365   if (defined $result) {
2366      print "$PORT_UPDOWN{$result->{$search_portstatus}}\n";
2367      }
2368
2369   $session->close;
2370
2371   #system "snmpget -v 1 -c public $switch_name 1.3.6.1.2.1.2.2.1.7.$port";
2372   return;
2373   }
2374
2375#---------------------------------------------------------------
2376sub cmd_search_mac_on_switch {
2377   @ARGV = @_;
2378
2379   my $verbose;
2380   my $vlan_id = 0;
2381
2382   GetOptions(
2383      'verbose|v' => \$verbose,
2384      'vlan|l=i'  => \$vlan_id,
2385      );
2386
2387   my $switch_name = shift @ARGV || q{};
2388   my $mac_address = shift @ARGV || q{};
2389
2390   if ($switch_name eq q{} or $mac_address eq q{}) {
2391      die "Usage: klask search-mac-on-switch SWITCH_NAME MAC_ADDRESS\n";
2392      }
2393
2394   $mac_address = normalize_mac_address($mac_address);
2395   $switch_name = join(',', map {$_->{hostname}} @SWITCH_LIST ) if $switch_name eq q{*} or $switch_name eq q{all};
2396
2397   for my $sw_name (split /,/, $switch_name) {
2398      if (not defined $SWITCH_DB{$sw_name}) {
2399         die "Switch $sw_name must be defined in klask configuration file\n";
2400         }
2401
2402      my $research1 = $OID_NUMBER{'searchPort1'} . mac_address_hex2dec($mac_address);
2403      my $research2 = $OID_NUMBER{'searchPort2'} .'.'. $vlan_id . mac_address_hex2dec($mac_address);
2404      print "Klask search OID $research1 on switch $sw_name\n" if $verbose;
2405      print "Klask search OID $research2 on switch $sw_name\n" if $verbose;
2406
2407      my $sw = $SWITCH_DB{$sw_name};
2408      my ($session, $error) = Net::SNMP->session( %{$sw->{'snmp_param_session'}} );
2409      print "$error \n" if $error;
2410
2411      my $result = $session->get_request(
2412         -varbindlist => [$research1]
2413         );
2414      if (not defined $result) {
2415         $result = $session->get_request(
2416            -varbindlist => [$research2]
2417            );
2418         $result->{$research1} = $result->{$research2} if defined $result;
2419         }
2420
2421      if (defined $result and $result->{$research1} ne 'noSuchInstance') {
2422         my $swport_num = $result->{$research1};
2423         my $swport_hr = snmp_get_switchport_num2hr($session, $swport_num);
2424         print "Klask find MAC $mac_address on switch $sw_name port $swport_hr\n";
2425         }
2426      else {
2427         print "Klask do not find MAC $mac_address on switch $sw_name\n" if $verbose;
2428         }
2429
2430      $session->close;
2431      }
2432   return;
2433   }
2434
2435#---------------------------------------------------------------
2436sub cmd_updatesw {
2437   @ARGV = @_;
2438
2439   my $verbose;
2440
2441   GetOptions(
2442      'verbose|v' => \$verbose,
2443      );
2444
2445   init_switch_names('yes');    #nomme les switchs
2446   print "\n";
2447
2448   my %where = ();
2449   my %db_switch_output_port = ();
2450   my %db_switch_ip_hostnamefq = ();
2451
2452   DETECT_ALL_ROUTER:
2453   for my $one_router ( get_list_main_router(get_list_network()) ) {
2454      print "Info: router loop $one_router\n" if $verbose;
2455      my %resol_arp = resolve_ip_arp_host($one_router, q{*}, q{low}); # resolution arp
2456
2457      next DETECT_ALL_ROUTER if $resol_arp{mac_address} eq 'unknow';
2458      print "VERBOSE_1: Router detected $resol_arp{ipv4_address} - $resol_arp{mac_address}\n" if $verbose;
2459
2460      my $vlan_name = get_current_vlan_name_for_interface($resol_arp{interface});
2461      my $vlan_id   = get_current_vlan_id($vlan_name);
2462      $where{$resol_arp{ipv4_address}} = find_all_switch_port($resol_arp{mac_address},$vlan_id); # retrouve les emplacements des routeurs
2463      }
2464
2465   ALL_ROUTER_IP_ADDRESS:
2466   for my $ip_router (Net::Netmask::sort_by_ip_address(keys %where)) { # '194.254.66.254')) {
2467
2468      next ALL_ROUTER_IP_ADDRESS if not exists $where{$ip_router}; # /a priori/ idiot car ne sers à rien...
2469
2470      ALL_SWITCH_CONNECTED:
2471      for my $switch_detected ( keys %{$where{$ip_router}} ) {
2472
2473         my $switch = $where{$ip_router}->{$switch_detected};
2474
2475         next ALL_SWITCH_CONNECTED if $switch->{port} eq '0';
2476
2477         $db_switch_output_port{$switch->{hostname}} = $switch->{port_hr};
2478         print "VERBOSE_2: output port $switch->{hostname} : $switch->{port_hr}\n" if $verbose;
2479         }
2480      }
2481
2482   my %db_switch_link_with = ();
2483
2484   my @list_all_switch = ();
2485   my @list_switch_ipv4 = ();
2486   for my $sw (@SWITCH_LIST) {
2487      push @list_all_switch, $sw->{hostname};
2488      }
2489
2490   my $timestamp = time;
2491
2492   ALL_SWITCH:
2493   for my $one_switch (@list_all_switch) {
2494      my %resol_arp = resolve_ip_arp_host($one_switch, q{*}, q{low}); # arp resolution
2495      if (exists $SWITCH_DB{$one_switch}{'fake-ip'}) {
2496         print "WARNING: fake ip on switch $one_switch -> $SWITCH_DB{$one_switch}{'fake-ip'} / $resol_arp{ipv4_address}\n" if $verbose;
2497         my %resol_arp_alt = resolve_ip_arp_host($SWITCH_DB{$one_switch}{'fake-ip'}, q{*}, q{low}); # arp resolution
2498         if ($resol_arp_alt{mac_address} ne 'unknow') {
2499            $resol_arp{mac_address}   = $resol_arp_alt{mac_address};
2500            $resol_arp{interface}     = $resol_arp_alt{interface};
2501            $resol_arp{ipv4_address} .= '*';
2502            }
2503         }
2504      print "Info: switch loop $one_switch\n" if $verbose;
2505      next ALL_SWITCH if $resol_arp{mac_address} eq 'unknow';
2506
2507      push @list_switch_ipv4, $resol_arp{ipv4_address};
2508
2509      my $vlan_name = get_current_vlan_name_for_interface($resol_arp{interface});
2510      my $vlan_id   = get_current_vlan_id($vlan_name);
2511      $where{$resol_arp{ipv4_address}} = find_all_switch_port($resol_arp{mac_address},$vlan_id); # find port on all switch
2512
2513      if ($verbose) {
2514         print "VERBOSE_3: $one_switch $resol_arp{ipv4_address} $resol_arp{mac_address}\n";
2515         print "VERBOSE_3: $one_switch --- ",
2516            join(' + ', keys %{$where{$resol_arp{ipv4_address}}}),
2517            "\n";
2518         }
2519
2520      $db_switch_ip_hostnamefq{$resol_arp{ipv4_address}} = $resol_arp{hostname_fq};
2521      print "VERBOSE_4: db_switch_ip_hostnamefq $resol_arp{ipv4_address} -> $resol_arp{hostname_fq}\n" if $verbose;
2522
2523      $SWITCH_DB{$one_switch}->{ipv4_address} = $resol_arp{ipv4_address};
2524      $SWITCH_DB{$one_switch}->{mac_address}  = $resol_arp{mac_address};
2525      $SWITCH_DB{$one_switch}->{timestamp}    = $timestamp;
2526      }
2527
2528   ALL_SWITCH_IP_ADDRESS:
2529   for my $ip (@list_switch_ipv4) {
2530#   for my $ip (Net::Netmask::sort_by_ip_address(@list_switch_ipv4)) {
2531
2532      print "VERBOSE_5: loop on $db_switch_ip_hostnamefq{$ip}\n" if $verbose;
2533
2534      next ALL_SWITCH_IP_ADDRESS if not exists $where{$ip};
2535#      next ALL_SWITCH_IP_ADDRESS if not exists $SWITCH_PORT_COUNT{ $db_switch_ip_hostnamefq{$ip} };
2536
2537      DETECTED_SWITCH:
2538      for my $switch_detected ( keys %{$where{$ip}} ) {
2539
2540         my $switch = $where{$ip}->{$switch_detected};
2541         print "VERBOSE_6: $db_switch_ip_hostnamefq{$ip} -> $switch->{hostname} : $switch->{port_hr}\n" if $verbose;
2542
2543         next if $switch->{port}     eq '0';
2544         next if $switch->{port_hr}  eq $db_switch_output_port{$switch->{hostname}};
2545         next if $switch->{hostname} eq $db_switch_ip_hostnamefq{$ip}; # $computerdb->{$ip}{hostname};
2546
2547         $db_switch_link_with{ $db_switch_ip_hostnamefq{$ip} } ||= {};
2548         $db_switch_link_with{ $db_switch_ip_hostnamefq{$ip} }->{ $switch->{hostname} } = $switch->{port_hr};
2549         print "VERBOSE_7: +++++\n" if $verbose;
2550         }
2551
2552      }
2553
2554   my %db_switch_connected_on_port = ();
2555   my $maybe_more_than_one_switch_connected = 'yes';
2556   my $cloop = 0;
2557
2558   while ($maybe_more_than_one_switch_connected eq 'yes' and $cloop < 100) {
2559      $cloop++;
2560      print "VERBOSE_9: cloop reduction step: $cloop\n" if $verbose;
2561      for my $sw (keys %db_switch_link_with) {
2562         for my $connect (keys %{$db_switch_link_with{$sw}}) {
2563
2564            my $port_hr = $db_switch_link_with{$sw}->{$connect};
2565
2566            $db_switch_connected_on_port{"$connect$SEP_SWITCH_PORT$port_hr"} ||= {};
2567            $db_switch_connected_on_port{"$connect$SEP_SWITCH_PORT$port_hr"}->{$sw}++; # Just to define the key
2568            }
2569         }
2570
2571      $maybe_more_than_one_switch_connected  = 'no';
2572
2573      SWITCH_AND_PORT:
2574      for my $swport (keys %db_switch_connected_on_port) {
2575
2576         next if keys %{$db_switch_connected_on_port{$swport}} == 1;
2577
2578         $maybe_more_than_one_switch_connected = 'yes';
2579
2580         my ($sw_connect, $port_connect) = split m/ $SEP_SWITCH_PORT /xms, $swport, 2;
2581         my @sw_on_same_port = keys %{$db_switch_connected_on_port{$swport}};
2582         print "VERBOSE_10: $swport -- ".$#sw_on_same_port." -- @sw_on_same_port\n" if $verbose;
2583
2584         CONNECTED:
2585         for my $sw_connected (@sw_on_same_port) {
2586
2587            next CONNECTED if not keys %{$db_switch_link_with{$sw_connected}} == 1;
2588
2589            $db_switch_connected_on_port{$swport} = {$sw_connected => 1};
2590
2591            for my $other_sw (@sw_on_same_port) {
2592               next if $other_sw eq $sw_connected;
2593
2594               delete $db_switch_link_with{$other_sw}->{$sw_connect};
2595               }
2596
2597            # We can not do better for this switch for this loop
2598            next SWITCH_AND_PORT;
2599            }
2600         }
2601      }
2602
2603   my %db_switch_parent =();
2604
2605   for my $sw (keys %db_switch_link_with) {
2606      for my $connect (keys %{$db_switch_link_with{$sw}}) {
2607
2608         my $port_hr = $db_switch_link_with{$sw}->{$connect};
2609
2610         $db_switch_connected_on_port{"$connect$SEP_SWITCH_PORT$port_hr"} ||= {};
2611         $db_switch_connected_on_port{"$connect$SEP_SWITCH_PORT$port_hr"}->{$sw} = $port_hr;
2612
2613         $db_switch_parent{$sw} = {switch => $connect, port_hr => $port_hr};
2614         }
2615      }
2616
2617   print "Switch output port and parent port connection\n";
2618   print "---------------------------------------------\n";
2619   for my $sw (sort keys %db_switch_output_port) {
2620      if (exists $db_switch_parent{$sw}) {
2621         printf "%-28s  %2s  +-->  %2s  %-25s\n", $sw, $db_switch_output_port{$sw}, $db_switch_parent{$sw}->{port_hr}, $db_switch_parent{$sw}->{'switch'};
2622         }
2623      else {
2624         printf "%-28s  %2s  +-->  router\n", $sw, $db_switch_output_port{$sw};
2625         }
2626      }
2627   print "\n";
2628
2629   print "Switch parent and children port inter-connection\n";
2630   print "------------------------------------------------\n";
2631   for my $swport (sort keys %db_switch_connected_on_port) {
2632      my ($sw_connect, $port_connect) = split m/ $SEP_SWITCH_PORT /xms, $swport, 2;
2633      for my $sw (keys %{$db_switch_connected_on_port{$swport}}) {
2634         if (exists $db_switch_output_port{$sw}) {
2635            printf "%-28s  %2s  <--+  %2s  %-25s\n", $sw_connect, $port_connect, $db_switch_output_port{$sw}, $sw;
2636            }
2637         else {
2638            printf "%-28s  %2s  <--+      %-25s\n", $sw_connect, $port_connect, $sw;
2639            }
2640         }
2641      }
2642
2643   my $switch_connection = {
2644      output_port       => \%db_switch_output_port,
2645      parent            => \%db_switch_parent,
2646      connected_on_port => \%db_switch_connected_on_port,
2647      link_with         => \%db_switch_link_with,
2648      switch_db         => \%SWITCH_DB,
2649      };
2650
2651   YAML::Syck::DumpFile("$KLASK_SW_FILE", $switch_connection);
2652   return;
2653   }
2654
2655#---------------------------------------------------------------
2656sub cmd_exportsw {
2657   @ARGV = @_;
2658
2659   test_switchdb_environnement();
2660
2661   my $format = 'txt';
2662
2663   GetOptions(
2664      'format|f=s'  => \$format,
2665      );
2666
2667   my %possible_format = (
2668      txt => \&cmd_exportsw_txt,
2669      dot => \&cmd_exportsw_dot,
2670      );
2671
2672   $format = 'txt' if not defined $possible_format{$format};
2673
2674   $possible_format{$format}->(@ARGV);
2675   return;
2676   }
2677
2678#---------------------------------------------------------------
2679sub cmd_exportsw_txt {
2680
2681   my $switch_connection = YAML::Syck::LoadFile("$KLASK_SW_FILE");
2682
2683   my %db_switch_output_port       = %{$switch_connection->{output_port}};
2684   my %db_switch_parent            = %{$switch_connection->{parent}};
2685   my %db_switch_connected_on_port = %{$switch_connection->{connected_on_port}};
2686
2687   print "Switch output port and parent port connection\n";
2688   print "---------------------------------------------\n";
2689   for my $sw (sort keys %db_switch_output_port) {
2690      my $arrow ='-->';
2691         $arrow ='==>' if $db_switch_output_port{$sw} =~ m/^(Trk|Br|Po)/;
2692      if (exists $db_switch_parent{$sw}) {
2693         printf "%-28s %8s %3s %-8s %-25s\n", $sw, $db_switch_output_port{$sw}, $arrow, $db_switch_parent{$sw}->{port_hr}, $db_switch_parent{$sw}->{'switch'};
2694         }
2695      else {
2696         printf "%-28s %8s %3s %-8s %-25s\n", $sw, $db_switch_output_port{$sw}, $arrow, '', 'router';
2697         }
2698      }
2699   print "\n";
2700
2701   print "Switch parent and children port inter-connection\n";
2702   print "------------------------------------------------\n";
2703   for my $swport (sort keys %db_switch_connected_on_port) {
2704      my ($sw_connect, $port_connect) = split m/ $SEP_SWITCH_PORT /xms, $swport, 2;
2705      for my $sw (keys %{$db_switch_connected_on_port{$swport}}) {
2706         my $arrow ='<--';
2707            $arrow ='<==' if $port_connect =~ m/^(Trk|Br|Po)/;
2708         if (exists $db_switch_output_port{$sw}) {
2709            printf "%-28s %8s %3s %-8s %-25s\n", $sw_connect, $port_connect, $arrow, $db_switch_output_port{$sw}, $sw;
2710            }
2711         else {
2712            printf "%-28s %8s %3s %-8s %-25s\n", $sw_connect, $port_connect, $arrow, '', $sw;
2713            }
2714         }
2715      }
2716   return;
2717   }
2718
2719#---------------------------------------------------------------
2720sub cmd_exportsw_dot {
2721
2722   my $switch_connection = YAML::Syck::LoadFile("$KLASK_SW_FILE");
2723
2724   my %db_switch_output_port       = %{$switch_connection->{output_port}};
2725   my %db_switch_parent            = %{$switch_connection->{parent}};
2726   my %db_switch_connected_on_port = %{$switch_connection->{connected_on_port}};
2727   my %db_switch_link_with         = %{$switch_connection->{link_with}};
2728   my %db_switch_global            = %{$switch_connection->{switch_db}};
2729
2730   my %db_building= ();
2731   for my $sw (@SWITCH_LIST) {
2732      my ($building, $location) = split m/ \/ /xms, $sw->{location}, 2;
2733      $db_building{$building} ||= {};
2734      $db_building{$building}->{$location} ||= {};
2735      $db_building{$building}->{$location}{ $sw->{hostname} } = 'y';
2736      }
2737
2738
2739   print "digraph G {\n";
2740   print "rankdir = LR;\n";
2741   #print "splines=polyline;\n";
2742
2743   print "site [label = \"site\", color = black, fillcolor = gold, shape = invhouse, style = filled];\n";
2744   print "internet [label = \"internet\", color = black, fillcolor = cyan, shape = house, style = filled];\n";
2745
2746   my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime time;
2747   $year += 1900;
2748   $mon++;
2749   my $date = sprintf '%04i-%02i-%02i %02i:%02i', $year, $mon, $mday, $hour, $min;
2750   print "\"$date\" [ color = white, fillcolor = black, shape = polygon, sides=14, style = filled, fontcolor = white ]\n";
2751   print "site -> \"$date\" [color = white];\n";
2752
2753   my $b=0;
2754   for my $building (keys %db_building) {
2755      $b++;
2756
2757      print "\"building$b\" [label = \"$building\", color = black, fillcolor = gold, style = filled];\n";
2758      print "site -> \"building$b\" [len = 2, color = firebrick];\n";
2759
2760      my $l = 0;
2761      for my $loc (keys %{$db_building{$building}}) {
2762         $l++;
2763
2764         print "\"location$b-$l\" [label = \"$building" . q{/} . join(q{\n}, split(m{ / }xms, $loc)) . "\", color = black, fillcolor = orange, style = filled];\n";
2765#         print "\"location$b-$l\" [label = \"$building / $loc\", color = black, fillcolor = orange, style = filled];\n";
2766         print "\"building$b\" -> \"location$b-$l\" [len = 2, color = firebrick]\n";
2767
2768         for my $sw (keys %{$db_building{$building}->{$loc}}) {
2769
2770            my $peripheries = 1;
2771            $peripheries = 2 if $db_switch_output_port{$sw} =~ m/^(Trk|Br|Po)/;
2772            print "\"$sw:$db_switch_output_port{$sw}\" [label = \"".format_aggregator4dot($db_switch_output_port{$sw})."\", color = black, fillcolor = lightblue,  peripheries = $peripheries, style = filled];\n";
2773
2774            my $swname  = $sw;
2775               $swname .= q{\n-\n} . "$db_switch_global{$sw}->{model}" if exists $db_switch_global{$sw} and exists $db_switch_global{$sw}->{model};
2776            print "\"$sw\" [label = \"$swname\", color = black, fillcolor = palegreen, shape = rect, style = filled];\n";
2777            print "\"location$b-$l\" -> \"$sw\" [len = 2, color = firebrick, arrowtail = dot]\n";
2778            print "\"$sw\" -> \"$sw:$db_switch_output_port{$sw}\" [len=2, style=bold, arrowhead = normal, arrowtail = invdot]\n";
2779
2780
2781            for my $swport (keys %db_switch_connected_on_port) {
2782               my ($sw_connect, $port_connect) = split m/ $SEP_SWITCH_PORT /xms, $swport, 2;
2783               next if not $sw_connect eq $sw;
2784               next if $port_connect eq $db_switch_output_port{$sw};
2785               my $peripheries = 1;
2786               $peripheries = 2 if $port_connect =~ m/^(Trk|Br|Po)/;
2787               print "\"$sw:$port_connect\" [label = \"".format_aggregator4dot($port_connect)."\", color = black, fillcolor = plum,  peripheries = $peripheries, style = filled];\n";
2788               print "\"$sw:$port_connect\" -> \"$sw\" [len=2, style=bold, arrowhead= normal, arrowtail = inv]\n";
2789              }
2790            }
2791         }
2792      }
2793
2794#   print "Switch output port and parent port connection\n";
2795#   print "---------------------------------------------\n";
2796   for my $sw (sort keys %db_switch_output_port) {
2797      if (exists $db_switch_parent{$sw}) {
2798#         printf "   \"%s:%s\" -> \"%s:%s\"\n", $sw, $db_switch_output_port{$sw}, $db_switch_parent{$sw}->{'switch'}, $db_switch_parent{$sw}->{port};
2799         }
2800      else {
2801         printf "   \"%s:%s\" -> internet\n", $sw, $db_switch_output_port{$sw};
2802         }
2803      }
2804   print "\n";
2805
2806#   print "Switch parent and children port inter-connection\n";
2807#   print "------------------------------------------------\n";
2808   for my $swport (sort keys %db_switch_connected_on_port) {
2809      my ($sw_connect, $port_connect) = split m/ $SEP_SWITCH_PORT /xms, $swport, 2;
2810      for my $sw (keys %{$db_switch_connected_on_port{$swport}}) {
2811         my $style = 'solid';
2812         $style = 'bold' if $port_connect =~ m/^(Trk|Br|Po)/;
2813         if (exists $db_switch_output_port{$sw}) {
2814            printf "   \"%s:%s\" -> \"%s:%s\" [style=$style, color = navyblue]\n", $sw, $db_switch_output_port{$sw}, $sw_connect, $port_connect;
2815            }
2816         else {
2817            printf "   \"%s\"   -> \"%s:%s\" [style=$style]\n", $sw, $sw_connect, $port_connect;
2818            }
2819         }
2820      }
2821
2822print "}\n";
2823   return;
2824   }
2825
2826
2827################################################################
2828# documentation
2829################################################################
2830
2831__END__
2832
2833=head1 NAME
2834
2835klask - port and search manager for switches, map management
2836
2837
2838=head1 USAGE
2839
2840 klask version
2841 klask help
2842
2843 klask updatedb [--verbose|-v] [--verb-description|-d] [--chk-hostname|-h] [--chk-location|-l]
2844 klask exportdb [--format|-f txt|html]
2845 klask removedb IP* computer*
2846 klask cleandb  [--verbose|-v] --day number_of_day --repair-dns
2847
2848 klask updatesw [--verbose|-v]
2849 klask exportsw [--format|-f txt|dot]
2850
2851 klask searchdb [--kind|-k host|mac] computer [mac-address]
2852 klask search   computer
2853 klask search-mac-on-switch [--verbose|-v] [--vlan|-i vlan-id] switch mac_addr
2854
2855 klask ip-free [--verbose|-v] [--day|-d days-to-death] [--format|-f txt|html] [vlan_name]
2856
2857 klask bad-vlan-id [--day|-d days_before_alert]
2858
2859 klask enable  [--verbose|-v] switch port
2860 klask disable [--verbose|-v] switch port
2861 klask status  [--verbose|-v] switch port
2862
2863 klask poe-enable  [--verbose|-v] switch port
2864 klask poe-disable [--verbose|-v] switch port
2865 klask poe-status  [--verbose|-v] switch port
2866
2867 klask vlan-getname switch vlan-id
2868 klask vlan-list switch
2869
2870
2871=head1 DESCRIPTION
2872
2873Klask is a small tool to find where is connected a host in a big network
2874and on which VLAN.
2875Klask mean search in brittany.
2876No hight level protocol like CDL, LLDP are use.
2877Everything is just done with SNMP request on MAC address.
2878
2879Limitation : loop cannot be detected and could be problematic when the map is created (C<updatesw> method).
2880If you use PVST or MSTP and create loop between VLAN,
2881you have to use C<portignore> functionality on switch port to cut manually loop
2882(see config file below).
2883
2884When you use a management port to administrate a switch,
2885it's not possible to create the map with this switch because it does not have a MAC address,
2886so other switch cannot find the real downlink port...
2887One way to work around this problem is, if you have a computer directly connected on the switch,
2888to put this IP as the fake ip for the switch.
2889The MAC address associated will be use just for the map detection.
2890The C<fake-ip> parameter is defined in the config file.
2891
2892Klask has now a web site dedicated for it: L<http://servforge.legi.grenoble-inp.fr/projects/klask>!
2893
2894
2895=head1 COMMANDS
2896
2897Some command are defined in the source code but are not documented here.
2898Theses could be not well defined, not finished, not well tested...
2899You can read the source code and use them at your own risk
2900(like for all the Klask code).
2901
2902=head2 search
2903
2904 klask search   computer
2905
2906This command takes one or more computer in argument.
2907It search a computer on the network and give the port and the switch on which the computer is connected.
2908
2909=head2 search-mac-on-switch
2910
2911 klask search-mac-on-switch [--verbose|-v] [--vlan|-i vlan-id] switch mac_addr
2912
2913This command search a MAC address on a switch.
2914To search on all switch, you could put C<'*'> or C<all>.
2915The VLAN parameter could help.
2916
2917
2918=head2 enable
2919
2920 klask enable  [--verbose|-v] switch port
2921
2922This command activate a port (or an agrregate bridge port) on a switch by SNMP.
2923So you need to give the switch name and a port on the command line.
2924See L</ABBREVIATION FOR PORT>.
2925
2926Warning: You need to have the SNMP write access on the switch in order to modify it's configuration.
2927
2928
2929=head2 disable
2930
2931 klask disable [--verbose|-v] switch port
2932
2933This command deactivate a port (or an agrregate bridge port) on a switch by SNMP.
2934So you need to give the switch name and a port on the command line.
2935See L</ABBREVIATION FOR PORT>.
2936
2937Warning: You need to have the SNMP write access on the switch in order to modify it's configuration.
2938
2939
2940=head2 status
2941
2942 klask status  [--verbose|-v] switch port
2943
2944This command return the status of a port number on a switch by SNMP.
2945The return value could be C<enable> or C<disable> word.
2946So you need to give the switch name and a port on the command line.
2947See L</ABBREVIATION FOR PORT>.
2948
2949If it's not possible to change port status with command L</enable> and L</disable>
2950(SNMP community read write access),
2951it's always possible to have the port status even for bridge agrregate port.
2952
2953
2954=head2 updatedb
2955
2956 klask updatedb [--verbose|-v] [--verb-description|-d] [--chk-hostname|-h] [--chk-location|-l]
2957
2958This command will scan networks and update the computer database.
2959To know which are the cmputer scanned, you have to configure the file F</etc/klask/klask.conf>.
2960This file is easy to read and write because Klask use YAML format and not XML
2961(see L</CONFIGURATION>).
2962
2963Option are not stable and could be use manually when you have a new kind of switch.
2964Maybe some option will be transfered in a future C<checksw> command!
2965
2966The network parameter C<scan-mode> can have two values: C<active> or C<passive>.
2967By default, a network is C<active>.
2968This means that an C<fping> command is done at the beginning on all the IP of the network
2969and the computers that was not detected in this pass, but where their Klask entry is less than one week,
2970will have an C<arping>
2971(some OS do not respond to C<ping> but a computer have to respond to C<arping> if it want to interact with other).
2972In the scan mode C<passive>, no C<fping> and no C<arping> are done.
2973It's good for big subnet with few computer (telephone...).
2974The idea of the C<active> scan mode is to force computer to regulary send packet over the network.
2975
2976=head2 exportdb
2977
2978 klask exportdb [--format|-f txt|html]
2979
2980This command print the content of the computer database.
2981There is actually only two format : TXT and HTML.
2982By default, format is TXT.
2983It's very easy to have more format, it's just need times...
2984
2985=head2 removedb
2986
2987 klask removedb IP* computer*
2988
2989This command remove an entry in the database.
2990There is only one kind of parameter, the IP of the computers to be removed.
2991You can put as many IP as you want...
2992
2993Computer DNS names are also a valid entry because a DNS resolver is executed at the beginning.
2994
2995=head2 cleandb
2996
2997 klask cleandb  [--verbose|-v] --day number_of_day --repair-dns
2998
2999Remove double entry (same MAC-Address) in the computer database when the older one is older than X day (C<--day>) the new one.
3000Computer name beginning by 'float' (regex C<^float>) are not really taken into account but could be remove.
3001This could be configure with the global regex parameter C<float-regex> in the configuration file F</etc/klask/klask.conf>.
3002This functionality could be use when computer define in VLAN 1
3003could have a float IP when they are connected on VLAN 2.
3004In the Klask database, the float DNS entries are less important.
3005
3006When reverse DNS has not been done by the past, option C<--repair-dns> force a reverse DNS check on all unkown host.
3007
3008=head2 updatesw
3009
3010 klask updatesw [--verbose|-v]
3011
3012This command build a map of your manageable switch on your network.
3013The list of the switches must be given in the file F</etc/klask/klask.conf> (see L</CONFIGURATION>).
3014
3015
3016=head2 exportsw
3017
3018 klask exportsw [--format|-f txt|dot]
3019
3020This command print the content of the switch database. There is actually two format.
3021One is just TXT for terminal and the other is the DOT format from the graphviz environnement.
3022By default, format is TXT.
3023
3024 klask exportsw --format dot > /tmp/map.dot
3025 dot -Tpng /tmp/map.dot > /tmp/map.png
3026
3027
3028=head2 ip-free
3029
3030 klask ip-free [--verbose|-v] [--day|-d days-to-death] [--format|-f txt|html] [vlan_name]
3031
3032This command return IP address that was not use (detected by Klask) at this time.
3033The list returned could be limited to just one VLAN.
3034IP returned could have been never used or no computer have been detected since the number of days specified
3035(2 years by default).
3036This parameter could also be define in the configuration file F</etc/klask/klask.conf> (see L</CONFIGURATION>).
3037
3038 default:
3039   days-to-death: 730
3040
3041Computer that does not have the good IP but takes a float one (see L</cleandb>) are taken into account.
3042
3043
3044=head2 bad-vlan-id
3045
3046 klask bad-vlan-id [--day|-d days_before_alert]
3047
3048This command return a list of switch port that are not configure with the good VLAN.
3049Computer which are in bad VLAN are detected with the float regex parameter (see L</cleandb>)
3050and another prior trace where they had the good IP (good DNS name).
3051The computer must stay connected on a bad VLAN more than XX days (15 days by default) before alert.
3052This parameter could also define in the configuration file F</etc/klask/klask.conf> (see L</CONFIGURATION>).
3053
3054 default:
3055   days-before-alert: 15
3056
3057This functionality is not need if your switch use RADIUS 802.1X configuration...
3058
3059
3060=head2 poe-enable
3061
3062 klask poe-enable  [--verbose|-v] switch port
3063
3064This command activate the PoE (Power over Ethernet) on a switch port by SNMP.
3065So you need to give the switch name and a port on the command line.
3066See L</ABBREVIATION FOR PORT>.
3067
3068Warning: Only NEXANS switches are supported (we do not have other switch for testing).
3069You need to have the SNMP write access on the switch in order to modify it's configuration.
3070
3071
3072=head2 poe-disable
3073
3074 klask poe-disable [--verbose|-v] switch port
3075
3076This command deactivate the PoE (Power over Ethernet) on a switch port by SNMP.
3077So you need to give the switch name and a port on the command line.
3078See L</ABBREVIATION FOR PORT>.
3079
3080Warning: Only NEXANS switches are supported (we do not have other switch for testing).
3081You need to have the SNMP write access on the switch in order to modify it's configuration.
3082
3083
3084=head2 poe-status
3085
3086 klask poe-status  [--verbose|-v] switch port
3087
3088This command return the status of the PoE (Power over Ethernet) on a switch port by SNMP.
3089The return value could be C<enable> or C<disable> word.
3090So you need to give the switch name and a port on the command line.
3091See L</ABBREVIATION FOR PORT>.
3092
3093If it's not possible to change the PoE status with command L</poe-enable> and L</poe-disable>
3094(SNMP community read write access),
3095it's always possible to have the PoE port status.
3096
3097Warning: Only NEXANS switches are supported (we do not have other switch for testing).
3098
3099
3100=head1 CONFIGURATION
3101
3102Because Klask need many parameters, it's not possible actually to use command line parameters for everything.
3103The configuration is done in a F</etc/klask/klask.conf> YAML file.
3104This format have many advantage over XML, it's easier to read and to write !
3105
3106Here an example, be aware with indent, it's important in YAML, do not use tabulation !
3107
3108 default:
3109   community: public
3110   community-rw: private
3111   snmpport: 161
3112   float-regex: '(?^msx: ^float )'
3113   scan-mode: active
3114
3115 network:
3116   labnet:
3117     ip-subnet:
3118       - add: 192.168.1.0/24
3119       - add: 192.168.2.0/24
3120     interface: eth0
3121     vlan-id: 12
3122     main-router: gw1.labnet.local
3123
3124   schoolnet:
3125     ip-subnet:
3126       - add: 192.168.3.0/24
3127       - add: 192.168.4.0/24
3128     interface: eth0.38
3129     vlan-id: 13
3130     main-router: gw2.schoolnet.local
3131     scan-mode: passive
3132
3133   etunet:
3134     ip-subnet:
3135       - add: 192.168.5.0/24
3136     interface: eth2
3137     vlan-id: 14
3138     main-router: gw3.etunet.local
3139     scan-mode: passive
3140
3141 switch:
3142   - hostname: sw1.klask.local
3143     location: BatY / 1 floor / K004
3144     portignore:
3145       - 1
3146       - 2
3147
3148   - hostname: sw2.klask.local
3149     location: BatY / 2 floor / K203
3150     type: HP2424
3151     portignore:
3152       - 1
3153       - 2
3154     fake-ip: 192.168.9.14
3155
3156   - hostname: sw3.klask.local
3157     location: BatY / 2 floor / K203
3158
3159I think it's pretty easy to understand.
3160The default section can be overide in any section, if parameter mean something in theses sections.
3161Network to be scan are define in the network section. You must put an add by network.
3162Maybe I will make a delete line to suppress specific computers.
3163The switch section define your switch.
3164You have to write the port number to ignore, this was important if your switchs are cascades
3165(right now, method C<updatesw> find them automatically)
3166and is still important if you have loop (with PVST or MSTP).
3167Just put the ports numbers between switch.
3168
3169The C<community> parameter is use to get SNMP data on switch.
3170It could be overload for each switch.
3171By default, it's value is C<public> and you have to configure a readonly word for safety reason.
3172Some few command change the switch state as the commands L</enable> and L</disable>.
3173In theses rares cases, you need a readwrite SNMP community word define in your configuration file.
3174Klask then use since version C<0.6.2> the C<community-rw> parameter which by default is egal to C<private>.
3175
3176
3177=head1 ABBREVIATION FOR PORT
3178
3179HP Procurve and Nexans switches have a simplistic numbering scheme.
3180It's just number: 1, 2, 3... 24.
3181On HP8000 chassis, ports names begin with an uppercase letter: A1, A2...
3182Nothing is done on theses ports names.
3183
3184On HP Comware and DELL, port digitization schema use a port speed word (generally a very verbose word)
3185followed by tree number.
3186In order to have short name,
3187we made the following rules:
3188
3189 Bridge-Aggregation     -> Br
3190 FastEthernet           -> Fa
3191 Forty-GigabitEthernet  -> Fo
3192 FortyGigabitEthernet   -> Fo
3193 GigabitEthernet        -> Gi
3194 Giga                   -> Gi
3195 Port-Channel           -> Po
3196 Ten-GigabitEthernet    -> Te
3197 TenGigabitEthernet     -> Te
3198 Ten                    -> Te
3199
3200All Klask command automatically normalize the port name on standart output
3201and also on input command line.
3202
3203In the case of use an aggregator port (Po, Tk, Br ...),
3204the real ports used are also return.
3205
3206
3207=head1 FILES
3208
3209 /etc/klask/klask.conf
3210 /var/lib/klask/klaskdb
3211 /var/lib/klask/switchdb
3212
3213
3214=head1 SEE ALSO
3215
3216Net::SNMP, Net::Netmask, Net::CIDR::Lite, NetAddr::IP, YAML
3217
3218=over
3219
3220=item * L<Web site|http://servforge.legi.grenoble-inp.fr/projects/klask>
3221
3222=item * L<Online Manual|http://servforge.legi.grenoble-inp.fr/pub/klask/klask.html>
3223
3224=back
3225
3226
3227=head1 VERSION
3228
3229$Id: klask 254 2017-09-08 16:09:52Z g7moreau $
3230
3231
3232=head1 AUTHOR
3233
3234Written by Gabriel Moreau, Grenoble - France
3235
3236
3237=head1 LICENSE AND COPYRIGHT
3238
3239GPL version 2 or later and Perl equivalent
3240
3241Copyright (C) 2005-2017 Gabriel Moreau.
Note: See TracBrowser for help on using the repository browser.