On Wed, 16 Feb 2005, Ruslan A Dautkhanov wrote:
????????????!
fnasirov wrote:
Hello !
Huawei A8010 Expert Access Server
[ http://www.futurewei.com/itemsdetail.asp?catid=6&dt=products&id=68 <http://www.futurewei.com/itemsdetail.asp?catid=6&dt=products&id=68> ]
patch for checkrad
located at ftp://rd.ranetka.ru/pub/checkrad/checkrad.patch .
The link does not work. Could you post a bug report in bugs.freeradius.org for the patch to be added?
--- checkrad Sat May 29 19:27:56 2004
That SNMP oids test for dial-up clients, but no reasons why it
can't be used with other types of subscribers...
May you commit to current CVS ? This patch tested for about 1,5 years
in our environment :)
?? ????? ?? ?????? ? ??????. ????? ???????.
? ?????????,
????
+++ checkrad-patched Sat May 29 19:53:36 2004
@@ -25,6 +25,7 @@
# cyclades_snmp 1.0 Author: [EMAIL PROTECTED]
# usrhiper_snmp 1.0 Author: [EMAIL PROTECTED]
# multitech_snmp 1.0 Author: [EMAIL PROTECTED]
+# huawei_snmp 1.0 Author: Ruslan A Dautkhanov <[EMAIL PROTECTED]>
# netserver_telnet 1.0 Author: [EMAIL PROTECTED]
# versanet_snmp 1.0 Author: [EMAIL PROTECTED]
# bay_finger 1.0 Author: [EMAIL PROTECTED]
@@ -426,6 +427,20 @@
}
#
+# Check a Huawei A8010 Expert Access Server
+#
+# Author: Ruslan A Dautkhanov <[EMAIL PROTECTED]>
+#
+$hwsm = '.iso.org.dod.internet.private.enterprises.2011';
+sub huawei_snmp {
+ $login = snmpget($ARGV[1], "$cmmty_string", "$hwsm.2.3.4.3.2.2.1.5.0.$ARGV[2]");
+ my $cbhack = $login =~ s/^\d+:// ? 'yes':'no';
+ print LOG " user at port N $ARGV[2]: $login callback-hack=$cbhack\n" if $debug;
+
+ ($login eq $ARGV[3]) ? 1 : 0;
+}
+
+#
# Check a Computone Powerrack via finger
#
# Old Author: Shiloh Costa of MDI Internet Inc. <[EMAIL PROTECTED]>
@@ -928,7 +943,8 @@
$login = snmpget($ARGV[1], $password, "$usrm.4.10.1.1.18.$oidext"); if ($login =~ /\"/) { - $login =~ /^.*\"([^"]+)\"/; + $login =~ /^.*\"([^"]+)\"/; +#" - this comment for proper syntax highlighting in Midnight Commander (MC) $login = $1; }
@@ -1382,6 +1398,8 @@ $ret = &cvx_snmp; } elsif ($ARGV[0] eq 'multitech') { $ret = &multitech_snmp; +} elsif ($ARGV[0] eq 'huawei') { + $ret = &huawei_snmp; } elsif ($ARGV[0] eq 'computone') { $ret = &computone_finger; } elsif ($ARGV[0] eq 'max40xx') {
-- Kostas Kalevras Network Operations Center [EMAIL PROTECTED] National Technical University of Athens, Greece Work Phone: +30 210 7721861 'Go back to the shadow' Gandalf
- List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
