Биллинговая система Nodeny

($port,$file_name)=@ARGV;
$port=~s/\s+//g;

if ($port=~/(\d+):(.+)$/)
  {# ... ....... ....... ........ ..... ........ ..........
   $out_int=",$2,";
   $port=$1;
  }else
  {
   undef $out_int;
   $port=int $port;
  }

$port=8888;

#!/usr/bin/perl
 system("/usr/bin/flow-print -f6 < /var/db/flows/$ARGV[0] >/usr/local/nodeny/sql/1-1352800726 2>/dev/null");
 unlink "/var/db/flows/$ARGV[0]";

$flow_base='/var/db/flows/';
$nodeny_base='/usr/local/nodeny/';
$flow_capture_pid='/var/run/flow-capture/flow-capture.pid';

$flow_print=`which flow-print` || '/usr/local/bin/flow-print';
$flow_export=`which flow-export` || '/usr/local/bin/flow-export';
$cat=`which cat` || '/bin/cat';

#!/bin/sh
 #
 # flow-tools Tool set for working with NetFlow data
 #
 # chkconfig:    - 44 44
 # description:  flow-tools.
 #
 # processname: flow-capture
 # pidfile: /var/run/flow-capture.pid

 # Source function library
 . /etc/rc.d/init.d/functions

 # Get network config
 . /etc/sysconfig/network

 RETVAL=0

 start() {
        echo -n $"Starting Flow-capture daemon: "
        daemon /usr/bin/flow-capture -R /usr/local/nodeny/netflow_8888.pl -p /var/run/flow-capture/flow-capture.pid -w /var/db/flows -n1 -N0 0.0.0.0/0.0.0.0/8888
        RETVAL=$?
        echo
        [ $RETVAL -eq 0 ] && touch /var/lock/subsys/flow-capture
        return $RETVAL
 }

 stop() {
        echo -n $"Stopping Flow-Capture daemon: "
        killproc flow-capture
        RETVAL=$?
        echo
        [ $RETVAL -eq 0 ] && rm -f /var/run/flow-capture.pid /var/lock/subsys/flow-capture
        return $RETVAL
 }

 restart() {
        stop
        start
 }

 reload() {
        return $RETVAL
 }
 case "$1" in
  start)
        start
        ;;
  stop)
        stop
        ;;
  status)
        status flow-capture
        ;;
  restart)
        restart
        ;;
  condrestart)
        [ -f /var/lock/subsys/flow-capture ] && restart || :
        ;;
  reload)
        reload
        ;;
  *)
        echo $"Usage: $0 {start|stop|status|restart|condrestart|reload}"
        exit 1
 esac

 exit $?