#!/usr/bin/perl
#
# By InboX 
# Site: www.wolfy.fr
#
if ($ARGV[0] and $ARGV[0] eq "config")
{
print "graph_args --base 1000 -l 0\n";
print "graph_title Serveur FTP\n";
print "graph_category Ftp\n";
print "graph_vlabel Stats Proftpd\n";
print "succes.label Login succes\n";
print "succes.draw AREA\n";
print "failed.label Login failed\n";
print "failed.draw AREA\n";
exit 0;
}

$succes = `cat /var/log/proftpd/proftpd.log | grep -c "successful"`;
$failed = `cat /var/log/proftpd/proftpd.log | grep -c "Login failed"`;

print "succes.value $succes";
print "failed.value $failed";