Hello,
Could someone include this patch for me ? or tell me the reason why this is not applicable ?
TIA,
-- DouRiX
-------- Original Message -------- Subject: checkrad.pl.in patch for freeradius-0.9.0 ... Date: Thu, 07 Aug 2003 17:22:26 +0300 From: Do-Risika RAFIEFERANTSIARONJY <[EMAIL PROTECTED]> Reply-To: [EMAIL PROTECTED] Organization: Simicro Internet To: [EMAIL PROTECTED] CC: [EMAIL PROTECTED]
Hello,
I am a freeradius & patton user. I already submitted this patch several months ago, but I've noticed that it's not applied yet, so I *re-submit* (as you said Don't get discouraged :).
It's a patch to the src/main/checkrad.pl.in file, for the current version 0.9.0.
It's due to _MIB_structure_changes_ on new patton RAS (2960 boxes, you could contact <[EMAIL PROTECTED]> to confirm). I've added a _new_function_ for patton 2960 (thus a new ras type 'patton2960'), because as Alan advised, modifying directly the patton_snmp() sub could break compatibility with old hardwares (patton 28xx).
I have also added _community_string_lookup_ in naspasswd file, as users could use a non 'public' community name, and I think it'll be more convenient. Though, it should always work with 'public' community name.
Here is my previous exchange with Alan about this issue :
Alan DeKok wrote:
Do-Risika RAFIEFERANTSIARONJY <[EMAIL PROTECTED]> wrote:
You've deleted the support for older Patton hardware, and replace it with support for the 2960. Why?
because as i know, they don't sell it anymore.
Do people still use it?
Probably.
It won't be if I can add a new function and a new nas type, for example patton2960. Is there a problem if I do that ? if not, I'll to submit the new patch,
Sounds good to me.
I wish you would apply, I'm always obliged to patch my source before each upgrade.
Please notify if/when it'll be applied or not,
Thanks in advance,
_here_is_the_patch_ :
--- checkrad.pl.in.orig.freeradius-0.9.0 Thu Aug 7 16:07:05 2003 +++ checkrad.pl.in.new.freeradius-0.9.0 Thu Aug 7 16:13:38 2003 @@ -31,6 +31,7 @@ # cisco_l2tp 1.14 Author: [EMAIL PROTECTED] # mikrotik_telnet 1.0 Author: Evren Yurtesen <[EMAIL PROTECTED]> # redback_telnet Author: Eduardo Roldan +# patton2960_snmp 1.0 Author: [EMAIL PROTECTED] # # Config: $debug is the file you want to put debug messages in # $snmpget is the location of your ``snmpget'' program @@ -850,6 +851,54 @@ }
#
+# Check a Patton 2960 via SNMP
+# Version: 1.0, based on patton_snmp(),
+# new patton model with new MIBS structures
+# Author: DouRiX <[EMAIL PROTECTED]>
+#
+sub patton2960_snmp {
+ my($oid);
+
+ # Look up community string in naspasswd file.
+ my ($login, $pass) = naspasswd($ARGV[1], 1);
+ if ($login eq '') {
+ $pass = 'public';
+ } + elsif ($login ne 'SNMP') {
+ if ($debug) {
+ print LOG
+ " Error: Need SNMP community string for $ARGV[1]\n";
+ }
+ return 2;
+ }
+
+ # formule : sessionid = auRadiusRunningId . callid
+ my $auRadiusRunningId = snmpget($ARGV[1], $pass, ".1.3.6.1.4.1.1768.3.32");
+ $auRadiusRunningId =~ s/\s//g;
+ + my $callid = $ARGV[4];
+ $callid =~ s/^$auRadiusRunningId//;
+ + if ($callid eq $ARGV[4]) {
+ # error ...
+ print LOG " Error: sessionId differs to auRadiusRunningId . callId !!!\n" if $debug;
+ return 2;
+ }
+ + $oid = '.1.3.6.1.4.1.1768.5.100.1.56.' . hex $callid;
+ + #
+ # Check if the session still active
+ #
+ if (snmpget($ARGV[1], $pass, "$oid") == 0) {
+ print LOG " Session $ARGV[4] still active on NAS " .
+ "$ARGV[1], port $ARGV[2], for user $ARGV[3].\n" if ($debug);
+ return 1;
+ }
+ 0;
+}
+
+#
# Check a Digitro BXS via rusers
#
# Version: 1.1
@@ -1332,6 +1381,8 @@
$ret = &cyclades_snmp;
} elsif ($ARGV[0] eq 'patton') {
$ret = &patton_snmp;
+} elsif ($ARGV[0] eq 'patton2960') {
+ $ret = &patton2960_snmp;
} elsif ($ARGV[0] eq 'digitro') {
$ret = &digitro_rusers;
} elsif ($ARGV[0] eq 'usrhiper') {
-- DouRiX ["Good men must not obey the laws too well." -- Ralph Waldo Emerson]
- List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
