[prev in list] [next in list] [prev in thread] [next in thread]
List: ipcop-svn
Subject: [Ipcop-svn] SF.net SVN: ipcop:[5480] ipcop/trunk
From: dotzball () users ! sourceforge ! net
Date: 2011-02-23 6:28:13
Message-ID: E1Ps8Cr-0000MD-Ks () sfp-svn-3 ! v30 ! ch3 ! sourceforge ! com
[Download RAW message or body]
Revision: 5480
http://ipcop.svn.sourceforge.net/ipcop/?rev=5480&view=rev
Author: dotzball
Date: 2011-02-23 06:28:13 +0000 (Wed, 23 Feb 2011)
Log Message:
-----------
Monitore traffic via cron.
Modified Paths:
--------------
ipcop/trunk/config/cron/crontab
ipcop/trunk/config/rootfiles/common/misc-progs
ipcop/trunk/src/libs/traffic-lib.pl
Added Paths:
-----------
ipcop/trunk/src/scripts/monitorTraffic.pl
Modified: ipcop/trunk/config/cron/crontab
===================================================================
--- ipcop/trunk/config/cron/crontab 2011-02-23 06:27:33 UTC (rev 5479)
+++ ipcop/trunk/config/cron/crontab 2011-02-23 06:28:13 UTC (rev 5480)
@@ -32,3 +32,6 @@
# Aggregate traffic data (every 5 minutes)
*/5 * * * * /usr/local/bin/aggregatetraffic.pl > /dev/null
+
+# Run traffic monitoring (every 5 minutes)
+*/5 * * * * /usr/local/bin/monitorTraffic.pl > /dev/null
Modified: ipcop/trunk/config/rootfiles/common/misc-progs
===================================================================
--- ipcop/trunk/config/rootfiles/common/misc-progs 2011-02-23 06:27:33 UTC (rev 5479)
+++ ipcop/trunk/config/rootfiles/common/misc-progs 2011-02-23 06:28:13 UTC (rev 5480)
@@ -62,6 +62,7 @@
usr/local/bin/logwatch
usr/local/bin/make
usr/local/bin/makegraphs
+usr/local/bin/monitorTraffic.pl
usr/local/bin/openvpn.sh
usr/local/bin/openvpnctrl
usr/local/bin/openvpnverify
Modified: ipcop/trunk/src/libs/traffic-lib.pl
===================================================================
--- ipcop/trunk/src/libs/traffic-lib.pl 2011-02-23 06:27:33 UTC (rev 5479)
+++ ipcop/trunk/src/libs/traffic-lib.pl 2011-02-23 06:28:13 UTC (rev 5480)
@@ -147,7 +147,6 @@
$calc->{'CALC_WEEK_TOTAL'} = 0;
$calc->{'CALC_WEEK_IN'} = 0;
$calc->{'CALC_WEEK_OUT'} = 0;
- $calc->{'CALC_LAST_RUN'} = 0;
$calc->{'CALC_PERCENT_TOTAL'} = 0;
$calc->{'CALC_PERCENT_IN'} = 0;
$calc->{'CALC_PERCENT_OUT'} = 0;
Added: ipcop/trunk/src/scripts/monitorTraffic.pl
===================================================================
--- ipcop/trunk/src/scripts/monitorTraffic.pl (rev 0)
+++ ipcop/trunk/src/scripts/monitorTraffic.pl 2011-02-23 06:28:13 UTC (rev 5480)
@@ -0,0 +1,257 @@
+#!/usr/bin/perl
+#
+# This file is part of the IPCop Firewall.
+#
+# IPCop is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# IPCop is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with IPCop; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+# $Id$
+#
+
+use strict;
+
+# enable only the following on debugging purpose
+#use warnings;
+
+require '/usr/lib/ipcop/general-functions.pl';
+require "/usr/lib/ipcop/lang.pl";
+require '/usr/lib/ipcop/traffic-lib.pl';
+
+#~ my @dummy = (${Traffic::red_in},${Traffic::red_out});
+#~ undef(@dummy);
+
+# Debug level:
+# 0 - send email (if enabled), no print
+# 1 - send email (if enabled), print
+# 2 - only print
+my $debugLevel = 1;
+# Debug
+
+my %log = ();
+$log{'CALC_VOLUME_TOTAL'} = 0;
+$log{'CALC_VOLUME_IN'} = 0;
+$log{'CALC_VOLUME_OUT'} = 0;
+$log{'CALC_WEEK_TOTAL'} = 0;
+$log{'CALC_WEEK_IN'} = 0;
+$log{'CALC_WEEK_OUT'} = 0;
+$log{'CALC_LAST_RUN'} = 0;
+$log{'CALC_PERCENT_TOTAL'} = 0;
+$log{'CALC_PERCENT_IN'} = 0;
+$log{'CALC_PERCENT_OUT'} = 0;
+$log{'WARNMAIL_SEND'} = 'no';
+
+# current time == endtime
+my $currentTime = time;
+
+# on force we don't load the log data
+unless(defined($ARGV[0]) && $ARGV[0] eq '--force') {
+ &TRAFFIC::readTrafficCounts(\%log);
+}
+
+
+# Only send email?
+if(defined($ARGV[0]) && $ARGV[0] eq '--warnEmail') {
+ print "Send warn email\n" if($debugLevel > 0);
+ # send warn email
+ my $return = &sendWarnEmail();
+ print "return: $return\n";
+ exit 0;
+}
+
+
+# should we recalculate?
+# calc seconds for one interval
+my $intervalTime = $TRAFFIC::settings{'CALC_INTERVAL'} * 60;
+# next time, we have to calculate
+my $nextRunTime = $log{'CALC_LAST_RUN'} + $intervalTime;
+
+if ($debugLevel > 0) {
+ my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = \
localtime($log{'CALC_LAST_RUN'}); + my $lastRun = sprintf("%04d-%02d-%02d, \
%02d:%02d", 1900+$year, $mon+1, $mday, $hour, $min); + print "last run: \
$lastRun\n"; +
+ ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($nextRunTime);
+ my $nextRun = sprintf("%04d-%02d-%02d, %02d:%02d", 1900+$year, $mon+1, $mday, \
$hour, $min); + print "next run: $nextRun\n";
+
+ ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($currentTime);
+ my $current = sprintf("%04d-%02d-%02d, %02d:%02d", 1900+$year, $mon+1, $mday, \
$hour, $min); + print "current time: $current\n";
+}
+
+# use a little time buffer in case the last run started some seconds earlier
+if($currentTime < ($nextRunTime - 60) ) {
+ # nothing to do
+ if ($debugLevel > 0) {
+ my $infoMsg = "Traffic monitor: nothing to do, do next calculation later.";
+ print "$infoMsg\n";
+ &General::log($infoMsg);
+ }
+ exit 0;
+}
+elsif($debugLevel > 0) {
+ my $infoMsg = "Traffic monitor: Calc traffic now.";
+ print "$infoMsg\n";
+ &General::log($infoMsg);
+}
+
+####
+# Calculate Traffic
+#
+
+$log{'CALC_LAST_RUN'} = $currentTime;
+my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($currentTime);
+
+&TRAFFIC::calcTrafficCounts(\%log);
+
+my $infoMsg = "Reached: $log{'CALC_VOLUME_TOTAL'} MB\n";
+print "$infoMsg\n" if ($debugLevel > 0);
+
+# monitor traffic volume?
+if ($TRAFFIC::settings{'MONITOR_TRAFFIC_ENABLED'} eq 'on') {
+
+ my $infoMsg = "Used (\%): \n";
+ if($TRAFFIC::settings{'VOLUME_TOTAL_ENABLED'} eq 'on') {
+ $infoMsg .= "Total: $log{'CALC_PERCENT_TOTAL'} \% - Max.: \
$TRAFFIC::settings{'VOLUME_TOTAL'} MB "; + }
+ if($TRAFFIC::settings{'VOLUME_IN_ENABLED'} eq 'on') {
+ $infoMsg .= "Input: $log{'CALC_PERCENT_IN'} \% - Max.: \
$TRAFFIC::settings{'VOLUME_IN'} MB "; + }
+ if($TRAFFIC::settings{'VOLUME_OUT_ENABLED'} eq 'on') {
+ $infoMsg .= "Output: $log{'CALC_PERCENT_OUT'} \% - Max.: \
$TRAFFIC::settings{'VOLUME_OUT'} MB "; + }
+
+ print "$infoMsg\n" if ($debugLevel > 0);
+
+
+ if($TRAFFIC::settings{'WARN_ENABLED'} eq 'on'
+ && ($log{'CALC_PERCENT_TOTAL'} >= $TRAFFIC::settings{'WARN'}
+ || $log{'CALC_PERCENT_TOTAL'} >= $TRAFFIC::settings{'WARN'}
+ || $log{'CALC_PERCENT_TOTAL'} >= $TRAFFIC::settings{'WARN'}) )
+ {
+ # warnlevel is reached
+ if ($debugLevel > 0) {
+ my $warnMsg = "Traffic monitor warning: $infoMsg";
+ print "$warnMsg\n";
+ &General::log($warnMsg);
+ }
+
+ if($debugLevel < 2) {
+ if($TRAFFIC::settings{'SEND_EMAIL_ENABLED'} eq 'on'
+ && $log{'WARNMAIL_SEND'} ne 'yes')
+ {
+ # send warn email
+ my $return = &sendWarnEmail('--warnEmail');
+
+ if($return =~ /Email was sent successfully!/) {
+ $log{'WARNMAIL_SEND'} = 'yes';
+ }
+ else {
+ $log{'WARNMAIL_SEND'} = 'no';
+ }
+ }
+ }
+
+ }
+ else {
+ # warnlevel not reached, reset warnmail send
+ $log{'WARNMAIL_SEND'} = 'no';
+ }
+}
+
+&TRAFFIC::writeTrafficCounts(\%log);
+
+exit 0;
+
+sub sendWarnEmail
+{
+ my $template = "/var/ipcop/email/templates/warn";
+
+ if(-e "$template.${Lang::language}.tpl") {
+ $template .= ".${Lang::language}.tpl";
+ }
+ else {
+ $template .= ".en.tpl";
+ }
+
+ # read template
+ open(FILE, "$template");
+ my @temp = <FILE>;
+ close(FILE);
+
+ my $date_lastrun = &TRAFFIC::getFormatedDate($log{'CALC_LAST_RUN'});
+
+ my $messagefile ="/tmp/monitorTraffic.msg";
+
+ open(FILE, ">$messagefile") or die 'Can not create temp messagefile';
+
+ my $starttime = &TRAFFIC::getStarttimeMonth($TRAFFIC::settings{'PERIOD_TYPE'});
+
+ $starttime =~ /^(\d\d\d\d)(\d\d)(\d\d)$/;
+
+ my $startday = "$1-$2-$3";
+
+ foreach my $line (@temp) {
+ chomp($line);
+
+ # remove lines from email which we don't need
+ if($TRAFFIC::settings{'VOLUME_TOTAL_ENABLED'} ne 'on') {
+ if ($line =~ /__CALC_VOLUME_TOTAL__/ || $line =~ \
/__CALC_PERCENT_TOTAL__/ || $line =~ /__VOLUME_TOTAL__/) { + next;
+ }
+ }
+ if($TRAFFIC::settings{'VOLUME_IN_ENABLED'} ne 'on') {
+ if ($line =~ /__CALC_VOLUME_IN__/ || $line =~ /__CALC_PERCENT_IN__/ || \
$line =~ /__VOLUME_IN__/) { + next;
+ }
+ }
+ if($TRAFFIC::settings{'VOLUME_OUT_ENABLED'} ne 'on') {
+ if ($line =~ /__CALC_VOLUME_OUT__/ || $line =~ /__CALC_PERCENT_OUT__/ || \
$line =~ /__VOLUME_OUT__/) { + next;
+ }
+ }
+
+ $line =~ s/__CALC_VOLUME_TOTAL__/$log{'CALC_VOLUME_TOTAL'}/;
+ $line =~ s/__CALC_VOLUME_IN__/$log{'CALC_VOLUME_IN'}/;
+ $line =~ s/__CALC_VOLUME_OUT__/$log{'CALC_VOLUME_OUT'}/;
+
+ $line =~ s/__CALC_PERCENT_TOTAL__/$log{'CALC_PERCENT_TOTAL'}/;
+ $line =~ s/__CALC_PERCENT_IN__/$log{'CALC_PERCENT_IN'}/;
+ $line =~ s/__CALC_PERCENT_OUT__/$log{'CALC_PERCENT_OUT'}/;
+
+ $line =~ s/__VOLUME_TOTAL__/$TRAFFIC::settings{'VOLUME_TOTAL'}/;
+ $line =~ s/__VOLUME_IN__/$TRAFFIC::settings{'VOLUME_IN'}/;
+ $line =~ s/__VOLUME_OUT__/$TRAFFIC::settings{'VOLUME_OUT'}/;
+
+ $line =~ s/__STARTDAY__/$startday/;
+ $line =~ s/__LAST_RUN__/$date_lastrun/;
+
+ print FILE "$line\n";
+ }
+
+ close(FILE);
+
+ my $cmd = "/usr/local/bin/emailhelper ";
+ $cmd .= " -s \"$Lang::tr{'subject warn'}\" ";
+ $cmd .= " -m \"$messagefile\" ";
+ $cmd .= " -d ";
+
+ print "cmd: $cmd \n" if ($debugLevel > 0);
+
+ my $return = `$cmd`;
+
+ return $return;
+}
+
+
Property changes on: ipcop/trunk/src/scripts/monitorTraffic.pl
___________________________________________________________________
Added: svn:executable
+ *
Added: svn:keywords
+ Id
This was sent by the SourceForge.net collaborative development platform, the world's \
largest Open Source development site.
------------------------------------------------------------------------------
Free Software Download: Index, Search & Analyze Logs and other IT data in
Real-Time with Splunk. Collect, index and harness all the fast moving IT data
generated by your applications, servers and devices whether physical, virtual
or in the cloud. Deliver compliance at lower cost and gain new business
insights. http://p.sf.net/sfu/splunk-dev2dev
_______________________________________________
Ipcop-svn mailing list
Ipcop-svn@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/ipcop-svn
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic