Context Navigation

source: trunk/klask @ 253

Last change on this file since 253 was 253, checked in by g7moreau, 7 years ago
Can't call function inside string !
Property svn:executable set to ``* Property svn:keywords set to `Date Author Id Rev`
File size: 115.2 KB

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

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

Download in other formats: