From 60fe9ba9ead7a882ec8ffe8e95b2d8b7882779f9 Mon Sep 17 00:00:00 2001
From: Elie Deloumeau <elie@deloumeau.fr>
Date: Wed, 30 Jul 2014 09:51:24 +0200
Subject: [PATCH] Convert perl script to bash

For a better compatibility
---
 plugins/ftp/proftpd | 37 ++++++++++++++++---------------------
 1 file changed, 16 insertions(+), 21 deletions(-)

diff --git a/plugins/ftp/proftpd b/plugins/ftp/proftpd
index 959f4e4f..3a377a21 100755
--- a/plugins/ftp/proftpd
+++ b/plugins/ftp/proftpd
@@ -1,23 +1,18 @@
-#!/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;
-}
+#!/bin/bash
 
-$succes = `cat /var/log/proftpd/proftpd.log | grep -c "successful"`;
-$failed = `cat /var/log/proftpd/proftpd.log | grep -c "Login failed"`;
+if [[ $1 == 'config' ]]; then
+	echo "graph_args --base 1000 -l 0"
+	echo "graph_title Serveur FTP"
+	echo "graph_category Ftp"
+	echo "graph_vlabel Stats Proftpd"
+	echo "succes.label Login succes"
+	echo "succes.draw AREA"
+	echo "failed.label Login failed"
+	echo "failed.draw AREA"
+fi
 
-print "succes.value $succes";
-print "failed.value $failed";
\ No newline at end of file
+succes=`cat /var/log/proftpd/proftpd.log | grep -c "successful"`
+failed=`cat /var/log/proftpd/proftpd.log | grep -c "Login failed"`
+
+echo "succes.value $succes"
+echo "failed.value $failed"