webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-23 17:32:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

3 step in tuning 2.3

Browse Source
This commit is contained in:
Maniacikarus
2008-09-28 11:10:30 +02:00
parent 74e82b68e8
commit bcad0fd0d2
11 changed files with 254 additions and 488 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
src/scripts/qosd
View File

@@ -1,4 +1,4 @@
#!/usr/bin/perl -w
#!/usr/bin/perl -w
use strict;
##########################################
@@ -47,8 +47,11 @@ use strict;
# Configuration options:
#
my $device = "$ARGV[0]";
our $rrd_datadir = "/var/log/rrd/";
our $event_datadir = $rrd_datadir;
my %mainsettings = ();
&General::readhash("${General::swroot}/main/settings", \%mainsettings);
our $event_datadir = $mainsettings{'RRDLOG'};
our $STEP = 10;
our $tc_command = "/sbin/tc";
@@ -58,20 +61,20 @@ our $tc_command = "/sbin/tc";
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;
# Create the $mainsettings{'RRDLOG'} if it doesn't exists
if ( ! -d $mainsettings{'RRDLOG'} ) {
print "RRD-datadir not found, creating it: $mainsettings{'RRDLOG'} \n";
my $status = system("mkdir $mainsettings{'RRDLOG'}");
die "\nERROR cannot create \"$mainsettings{'RRDLOG'}\"\n" unless $status == 0;
}
# use POSIX;
#
#POSIX::setsid()
#POSIX::setsid()
# or die "Can't become a daemon: $!";
# The init scripts will do the right "daemon" thing...
# Become a daemon
# Become a daemon
print "Becoming a daemon...\n";
my $pid = fork;
exit if $pid;
@@ -88,6 +91,7 @@ $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) {
@@ -103,10 +107,12 @@ until ($time_to_die) {
#if ( $res ) {
# print " Error updating RRDs: \"$res\"\n";
#}
process_events();
# my $timestamp = time;
# print "$timestamp\n";
sleep($STEP);
}