#! /usr/bin/perl -w
use strict;
use CGI;
my $cgi=new CGI;
my $ippix=$cgi->param("ippix");
my $nompix=$cgi->param("nompix");
my $login=$cgi->param("login");
my $secret=$cgi->param("secret");
my $seuilmin=$cgi->param("seuilmin");
my $seuilmax=$cgi->param("seuilmax");
print "Content-type: text/html\n\n";
print "<html><head><title>Insertion d'un PIX</title></head><body>\n";
# # # hosts.cfg # # #
# Ouverture du fichier en écriture ajout
open(F,">>/usr/local/nagios/etc/hosts.cfg") or die "Erreur ouverture hosts.cfg : $!";
# Insertion du nouveau PIX dans le fichier de configuration nagios
print(F "define host{\n");
print(F "\tuse\t\t\tpix\n");
print(F "\thost_name\t\t".$nompix."\n");
# Fermeture du fichier
close F;
print "<H1>PIX Ins ".$nompix."</H1><br>\n";
print "</body></html>\n";
Partager