Utilisation d'un script de supervision de port
Bonjour,
J'utilise perl pour ecrire des scripts qui seront utilisé sur nagios . Quand j'ai cherché sur internet , j'ai trouvé un script en perl déja ecris, mais je n'arrive pas à le comprend ou savoir ce que je dois lui donner en entrée. Voici le script :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
| #!/usr/bin/perl
use strict;
open(MODEL, "modele.txt");
mkdir("modeles") if(!-d("modeles"));
while() {
chomp();
my($modele, $ip) = split(/;/);
my @interfaces = `snmpwalk -c ecalyptus -v 2c $ip 1.3.6.1.2.1.2.2.1.2`;
open(MODEL_CFG, ">modeles/switch-$modele.cfg");
foreach(@interfaces) {
if(/iso.3.6.1.2.1.2.2.1.2.(\d+) = STRING: "(.*Ethernet.*)"/) {
my ($id, $interface) = ($1, $2);
print MODEL_CFG "define service {
hostgroup_name $modele
use generic-service
service_description $interface
check_command check_port_usage!$id!6000!8000
}
\n";
}
}
close(MODEL_CFG);
}
close(MODEL); |
et voici sa réference :
http://lesaventuresdeyannigdanslemon...tch-cisco.html
Pouvez vous m'aider s'il vous plait ?
je l'ai enregistré sous le nom test , et quand je fais : ./test.pl , il ne fait que créer un dossier modeles , et un fichier dedans vide qui est nomé switch-.cfg
