[RADIATOR] How to Extract Vendor Attribute in PostAuth Hook

[Michael Harlow]

Hi,

I'm trying to make some changes to our logging. I'm trying to extract some attributes from an Access-Request whilst in a postauth hook script. The existing code seems to refer to some standard attributes, but I wish to extract a vendor value, specifically the Cisco switch port string (Cisco-NAS-Port = "FastEthernet0/1") so I can store it in the DB. 

In the dictionary NAS-Port is defined thus:
ATTRIBUTE	NAS-Port			5	integer

But the one I want is defined thus:
VENDORATTR      9 	Cisco-NAS-Port          	2  	string


I don't think I can do as detailed below, as the string CISCO_NAS_PORT is not defined in any source file or header or dictionary. How can I extract the parameter/value? I'm not that perl savvy. I'm a cut'n'paste sort of guy.

Thanks, Michael

####################
Eap_anon_hook.pl (Part)

my $nasidentifier = $dbh->quote(${$p}->{outerRequest}->getNasId());
my $nasport = ${$p}->{outerRequest}->getAttrByNum($Radius::Radius::NAS_PORT);
my $stationid = $dbh->quote(${$p}->{outerRequest} ->
                          getAttrByNum($Radius::Radius::CALLING_STATION_ID));
my $radioid = $dbh->quote(${$p}->{outerRequest} -> 
                          getAttrByNum($Radius::Radius::CALLED_STATION_ID));
my $vlanid = ${$p}->{outerRequest}->getAttrByNum(81);
my $etherport = ${$p}->{outerRequest} -> 
                          getAttrByNum($Radius::Radius::CISCO_NAS_PORT);
                                        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Wrong


#########################
Code:       Access-Request
Identifier: 43
Authentic:  7*_<210><246><179><129><13><162>t<220><234><205><4><1><182>
Attributes:
	User-Name = "COMMTECH-C800\mike"
	Service-Type = Framed-User
	Framed-MTU = 1500
	Called-Station-Id = "00-1F-27-A3-09-01"
	Calling-Station-Id = "00-04-76-43-C8-11"
	EAP-Message = <2>'<0><29><25><0><23><3><1><0><18><5>NR<218><154>h&<182>F<133>j^<8><247>/o<240><159>
	Message-Authenticator = <189><135><158><10><200> ZO<141><198><28><168>|T<229><8>
	NAS-Port-Type = Ethernet
	Cisco-NAS-Port = "FastEthernet0/1"
	NAS-Port = 50001
	NAS-IP-Address = 172.31.4.88
	Acct-Session-Id = "AC1F045800000017"

#########################
Dictionary

VENDORATTR      9 	cisco-avpair            	1       string
VENDORATTR      9 	Cisco-NAS-Port          	2  	string
VENDORATTR      9 	cisco-h323-remote-address       23 	string
VENDORATTR      9 	cisco-h323-conf-id      	24      string
VENDORATTR      9 	cisco-h323-setup-time   	25      string
VENDORATTR      9 	cisco-h323-call-origin  	26      string


-----------------------------------------------------------------
Yesterday is history, tomorrow is a mystery, but today is a gift.
That is why it is called the present. [Oogway - Kungfu Panda]
-----------------------------------------------------------------
Michael Harlow                     Private Bag 69
Network Engineer                   Hobart Tasmania 7001
IT Resources                       Ph  03 6226 1812
University of Tasmania             Mob 0438 26 1812
Michael.Harlow at utas.edu.au         Fx  03 6226 7171
-----------------------------------------------------------------