Re: !!!

[Ruslan A Dautkhanov]

Здравствуйте! fnasirov wrote: Hello !   Huawei A8010 Expert Access Server [ 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 .   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    Sat May 29 19:27:56 2004 +++ 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') {

smime.p7s
Description: S/MIME Cryptographic Signature