mirror of
https://github.com/vincentmli/bpfire.git
synced 2026-04-09 18:45:54 +02:00
a7fb5630d1
* QoS ist funktionsfig (hoffentlich). * "Aktualisieren" aus Log entfernt. * In der header.pl aufgeraeumt. git-svn-id: http://svn.ipfire.org/svn/ipfire/trunk@255 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8
117 lines
2.9 KiB
Perl
117 lines
2.9 KiB
Perl
#!/usr/bin/perl -w
|
|
use strict;
|
|
|
|
##########################################
|
|
##
|
|
## DESCRIPTION
|
|
##
|
|
## The tc-graph daemon script: "tc-collector"
|
|
## Which is part of the ADSL-optimizer.
|
|
##
|
|
## The script will become a daemon and periodically collect data
|
|
## from the Linux traffic control system. The collected data is
|
|
## stored in some RRD-data files, which is created automatically by
|
|
## the script if they don't exist.
|
|
##
|
|
## GRAPHs
|
|
##
|
|
## How the RRD-data is displayed as graphs is not part of the
|
|
## tc-collector tool. But we recommend using the RRD-frontend 'ddraw'.
|
|
## We have included some 'ddraw' examples (which is hardcoded to use
|
|
## files from '/var/spool/rrdqueues').
|
|
##
|
|
## drraw: http://web.taranis.org/drraw/
|
|
##
|
|
##
|
|
## REQUIRES
|
|
##
|
|
## RRDtools Perl interface RRDs
|
|
## The "tc" command.
|
|
##
|
|
##
|
|
## AUTHOR
|
|
## Jesper Dangaard Brouer <hawk@diku.dk>, d.16/4-2004
|
|
##
|
|
## CHANGELOG
|
|
## 2004-04-16: Initial version.
|
|
## 2004-05-27: Daemon version.
|
|
##
|
|
## $Id: tc-collector.pl,v 1.12 2005/03/19 19:31:08 hawk Exp $
|
|
##########################################
|
|
|
|
# TODO:
|
|
# * Calc time used to parse, use to make time steps more precise
|
|
# * Device list support
|
|
# * Detecting the correct devices
|
|
|
|
# Configuration options:
|
|
#
|
|
my $device = "imq0";
|
|
our $rrd_datadir = "/var/log/rrd";
|
|
our $event_datadir = $rrd_datadir;
|
|
our $STEP = 10;
|
|
our $tc_command = "/sbin/tc";
|
|
|
|
# A trick is to set the environment PERL5LIB to include $GRAPHDIR
|
|
# This is done by the init-script
|
|
# ($GRAPHDIR is obtained from /usr/local/etc/ADSL-optimizer.conf)
|
|
my $include_dir = '/var/ipfire/qos/bin';
|
|
|
|
|
|
# Create the $rrd_datadir if it doesn't exists
|
|
if ( ! -d $rrd_datadir ) {
|
|
print "RRD-datadir not found, creating it: $rrd_datadir \n";
|
|
my $status = system("mkdir $rrd_datadir");
|
|
die "\nERROR cannot create \"$rrd_datadir\"\n" unless $status == 0;
|
|
}
|
|
|
|
# use POSIX;
|
|
#
|
|
#POSIX::setsid()
|
|
# or die "Can't become a daemon: $!";
|
|
|
|
# The init scripts will do the right "daemon" thing...
|
|
# Become a daemon
|
|
print "Becoming a daemon...\n";
|
|
my $pid = fork;
|
|
exit if $pid;
|
|
die "Couldn't fork: $!" unless defined($pid);
|
|
|
|
my $time_to_die = 0;
|
|
sub signal_handler {
|
|
$time_to_die = 1;
|
|
}
|
|
# Trap signals
|
|
$SIG{INT} = $SIG{TERM} = $SIG{HUP} = \&signal_handler;
|
|
$SIG{PIPE} = 'IGNORE';
|
|
|
|
our %classes_data;
|
|
our %classes_info;
|
|
require "$include_dir/parse-func.pl";
|
|
require "$include_dir/event-func.pl";
|
|
require "$include_dir/RRD-func.pl";
|
|
|
|
until ($time_to_die) {
|
|
|
|
#print "Parsing tc statistics on $device\n";
|
|
my $res = parse_class($device);
|
|
if ( ! $res ) {
|
|
print " Error when parsing classes on $device\n";
|
|
}
|
|
|
|
#print "Updating RRD data-files\n";
|
|
$res = update_rrds();
|
|
#if ( $res ) {
|
|
# print " Error updating RRDs: \"$res\"\n";
|
|
#}
|
|
|
|
process_events();
|
|
|
|
# my $timestamp = time;
|
|
# print "$timestamp\n";
|
|
|
|
sleep($STEP);
|
|
}
|
|
|
|
print "tc-collector daemon exiting ... bye bye!\n";
|