Context Navigation

source: trunk/klask @ 240

Last change on this file since 240 was 240, checked in by g7moreau, 7 years ago
Begin Aggregator port support
Property svn:executable set to ``* Property svn:keywords set to `Date Author Id Rev`
File size: 113.4 KB

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

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

Download in other formats: