#!/usr/bin/perl
#Rizqui Redouane
#rizqui@free.fr
#V.1
#Licence : GPL - http://www.fsf.org/licenses/gpl.txt

    use strict;
    use warnings;

my $exit=0;
my $filesize = -s "$ARGV[0]";




if ( !$ARGV[1] || !$ARGV[2])
{
print "Utilisation (Usage) :  filesize.pl Filename critical_size warning_size   \n";
exit 0;
}



if ($filesize > $ARGV[1])
{
print "Critical: La taille maximale est dépassée ".$filesize."k\n ";
exit 2;
}

if($filesize > $ARGV[2] )
{
print "Warning: Rappel : Veuillez réduire la taille   ".$filesize."k\n  ";
exit 1;
}


if($filesize < $ARGV[2] && $filesize < $ARGV[1])
{
print "Taille du fichier : $filesize\n";
}




exit 0;
