From 1925540b1477d1c9dab83fc67c2e6601f5bc214c Mon Sep 17 00:00:00 2001
From: Nigel Kukard <nkukard@lbsd.net>
Date: Sun, 23 Jun 2013 09:50:49 +0000
Subject: [PATCH] Added basic framework for tc integration
---
opentrafficshaper/plugins/tc/tc.pm | 23 ++++++++++++++++-------
1 file changed, 16 insertions(+), 7 deletions(-)
diff --git a/opentrafficshaper/plugins/tc/tc.pm b/opentrafficshaper/plugins/tc/tc.pm
index 9742379..5daec00 100644
--- a/opentrafficshaper/plugins/tc/tc.pm
+++ b/opentrafficshaper/plugins/tc/tc.pm
@@ -98,27 +98,36 @@ sub do_add {
# Pull in global
- my $users = %globals->{'users'};
+ my $users = $globals->{'users'};
my $user = $users->{$uid};
-
$users->{$uid}->{'shaper_live'} = SHAPER_LIVE;
- print STDERR " TC => add $user->{'Username'}\n";
+ $logger->log(LOG_DEBUG," Add '$user->{'Username'}' [$uid]\n");
}
# Change event for tc
sub do_change {
- my ($kernel, $user) = @_[KERNEL, ARG0];
+ my ($kernel, $uid) = @_[KERNEL, ARG0];
+
+
+ # Pull in global
+ my $users = $globals->{'users'};
+ my $user = $users->{$uid};
- print STDERR " TC => change $user->{'Username'}\n";
+ $logger->log(LOG_DEBUG," Change '$user->{'Username'}' [$uid]\n");
}
# Remove event for tc
sub do_remove {
- my ($kernel, $user) = @_[KERNEL, ARG0];
+ my ($kernel, $uid) = @_[KERNEL, ARG0];
+
+
+ # Pull in global
+ my $users = $globals->{'users'};
+ my $user = $users->{$uid};
$users->{$uid}->{'shaper_live'} = 0;
- print STDERR " TC => remove $user->{'Username'}\n";
+ $logger->log(LOG_DEBUG," Remove '$user->{'Username'}' [$uid]\n");
}
--
GitLab