Context Navigation

source: trunk/klask @ 242

Last change on this file since 242 was 242, checked in by g7moreau, 7 years ago
Add aggregator code for Comware where num port and index are not equal !
Property svn:executable set to ``* Property svn:keywords set to `Date Author Id Rev`
File size: 113.8 KB

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

Note: See TracBrowser for help on using the repository browser.

Download in other formats: