#!/usr/bin/perl
use strict;
use DBI;
my $db = 'DBI:mysql:essai:127.0.0.1';
my $user = 'root';
my $pass = '';
my $dbconnect = DBI->connect($db, $user, $pass) or die "connexion impossible";
use POSIX qw(strftime);
$Time = strftime "%Y%m%d", localtime;
$Seuil="10%";
while (<>) {
undef @free;
chomp;
if ( /System information for \\\\(.*)\:/ ) {
$host = $1;
}
if ( /Fixed/ ) {
push @free, split ();
} else {
next;
}
$Volume = $free[0];
$Type = $free[1];
$Format = $free[2];
if ( $#free == 7 ) {
$Size = "$free[3] $free[4]";
$Frees = "$free[5] $free[6]";
$Freep =$free[7];
}
if ( $#free == 8 ) {
$Label = $free[3];
$Size = "$free[4] $free[5]";
$Frees = "$free[6] $free[7]";
$Freep =$free[8];
}
if ($Freep <= $Seuil){
write STDOUT;
}
}
format STDOUT_TOP =
@<<<<<<<
Date, $Time
@<<<<<<<<<;@<<;@<<<<<<<<;@>>>>>>>;@>>>>>>;@>>>>
Hostname, Volume, Label, Size, Frees, Freep
.
format STDOUT =
@<<<<<<<<<;@<<;@<<<<<<<<;@>>>>>>>;@>>>>>>;@>>>>
$host, $Volume, $Label, $Size, $Frees, $Freep
.
while( my ($Date) = <>){
print "Veuillez entrer les infos\n";
print "Date\n";
my $Date = <STDIN>;
print "Host\n";
my $Hostname = <STDIN>;
print "Vol\n";
my $Volume = <STDIN>;
print "Label\n";
my $Label = <STDIN>;
print "Size\n";
my $Size = <STDIN>;
print "Freep\n";
my $Frees = <STDIN>;
print "Frees\n";
my $Freep = <STDIN>;
my $req="INSERT INTO checkfs Values('$Date', '$Hostname', '$Volume', '$Label', '$Size', '$Frees', '$Freep')";
};
$dbconnect -> do($req) or die "requete impossible";
$dbconnect->disconnect();
Partager