23 lines
599 B
Plaintext
23 lines
599 B
Plaintext
|
#!/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";
|