(RADIATOR) <AuthBy EXTERNAL> Can't pass received attribute to external program via STDIN

Sun Oct 12 20:33:28 CDT 2003

Hi
I intend to use Radiator as radius server to communicate with Quintum
VOIP gateway. The Radiator is deployed on Windows 2000 Platform.
Currently i am using ActiveState Active Perl 5.8.1. Anything wrong in
the platform ?

MAN
Could you please tell me what hardware/software platform you are  
running and what versions of Windows and Perl?

-----Original Message-----
From: owner-radiator at open.com.au [mailto:owner-radiator at open.com.au] On
Behalf Of Hugh Irvine
Sent: Friday, October 10, 2003 9:07 AM
To: mf_man at unifiedcomms.com
Cc: radiator at open.com.au
Subject: Re: (RADIATOR) <AuthBy EXTERNAL> Can't pass received attribute
to external program via STDIN

Hello Man -

You are correct, Radiator will stop while the program specified by the  
AuthBy EXTERNAL command executes. If the program never exits, then  
Radiator will wait forever. You should add some "print ..." statements  
to the code in the external program to see what it is doing.

BTW - you can also use hooks in your Radiator configuration file for  
running your own code. See the examples in "goodies/hooks.txt". And of  
course you can also write your own AuthBy module as another alternative.

Could you please tell me what hardware/software platform you are  
running and what versions of Windows and Perl?

regards

Hugh

On Friday, Oct 10, 2003, at 10:38 Australia/Melbourne, Man Meng Fei  
wrote:

> Hi
> Previously i did ask a question regarding test run <AuthBy External> 
> by using sample configuration (external.cfg) and perl script
> (testcommand.pl) which can be found in the goodies directory.
>
> After read thru all the replied emails and relevant document, i tried
> to
> execute this sample configuration and perl scrip again. But i still  
> fail
> to get the correct respond.
>
> Hope you can answer the following question.
> 1.Follwoing are the console screen display of RADIUS server after 
> receive Accept request from the client
>
> -------------------Console Screen------------------------- Thu Oct  9 
> 22:54:02 2003: DEBUG: Reading dictionary file 'c:/Program Files/Radia
> tor/dictionary'
> Thu Oct  9 22:54:02 2003: DEBUG: Creating authentication port
> 0.0.0.0:1645
> Thu Oct  9 22:54:02 2003: DEBUG: Creating accounting port 0.0.0.0:1646
> Thu Oct  9 22:54:02 2003: NOTICE: Server started: Radiator 3.7 on man
> (EVALUATIO
> N)
> Thu Oct  9 22:54:04 2003: DEBUG: Packet dump:
> *** Received from 127.0.0.1 port 3330 ....
> Code:       Access-Request
> Identifier: 199
> Authentic:  1234567890123456
> Attributes:
>         User-Name = "mikem"
>         Service-Type = Framed-User
>         NAS-IP-Address = 203.63.154.1
>         NAS-Port = 1234
>         Called-Station-Id = "123456789"
>         Calling-Station-Id = "987654321"
>         NAS-Port-Type = Async
>         User-Password =
> "<159><249>:<201><175>\<4><246><188>8<9><160><216>}x<153
>> "
>
> Thu Oct  9 22:54:04 2003: DEBUG: Handling request with Handler 
> 'Realm=DEFAULT' Thu Oct  9 22:54:04 2003: DEBUG:  Deleting session for

> mikem, 203.63.154.1, 1234
>
> Thu Oct  9 22:54:04 2003: DEBUG: Running command: c:/perl/bin/perl 
> ./goodies/tes tcommand.pl
>
> ----------------------------------------------------------------------
> -
> -
> ----
> Above information has shown that radius server received all the
> attribute value from client, and it called the external program which
> has been define in <AuthBy External>. But somehow radius server didn't
> pass those attributes to external program via STDIN after executed the
> external program.
>
> My question do we need to configure radius configuration file in order

> to direct radius server pass those attributes to external program via 
> STDIN ?
>
> 2.From the above console screen, i also discovered that radius server 
> was halt after calling external program testcommand.pl. I found there
> is
> a endless while loop in the testcommand.pl which is shown as following
>
> while (<>)
> {
>     chomp;
>
>     if ($_ =~ /^\s*([^\s=]+)\s*=\s*"((\\"|[^"])*)"/)
>     {
> 	# Quoted value
> 	$input{$1} = $2;
>     }
>     elsif ($_ =~ /^([^\s=]+)\s*=\s*(.*)/)
>     {
> 	# Unquoted value
> 	$input{$1} = $2;
>     }
> }
> :
> :
> My question is can it be the root to cause the radius server halt ?
>
>
> thank you
>
>
>
> MAN MENG FEI
>
>
>
>
>
>
> while ($counter < 4)
> {
>     print "while\n";
>     chomp;
>
>     if ($_ =~ /^\s*([^\s=]+)\s*=\s*"((\\"|[^"])*)"/)
>     {
> 	# Quoted value
> 	print "Quoted value\n";
> 	$input{$1} = $2;
>     }
>     elsif ($_ =~ /^([^\s=]+)\s*=\s*(.*)/)
>     {
> 	# Unquoted value
> 	print "Unquoted value\n";
> 	$input{$1} = $2;
>     }
>     $counter++;
> }
> :
> :
>
>
> ===
> Archive at http://www.open.com.au/archives/radiator/
> Announcements on radiator-announce at open.com.au
> To unsubscribe, email 'majordomo at open.com.au' with 'unsubscribe 
> radiator' in the body of the message.
>
>

NB: have you included a copy of your configuration file (no secrets),
together with a trace 4 debug showing what is happening?

-- 
Radiator: the most portable, flexible and configurable RADIUS server
anywhere. Available on *NIX, *BSD, Windows, MacOS X.
-
Nets: internetwork inventory and management - graphical, extensible,
flexible with hardware, software, platform and database independence.

===
Archive at http://www.open.com.au/archives/radiator/
Announcements on radiator-announce at open.com.au
To unsubscribe, email 'majordomo at open.com.au' with
'unsubscribe radiator' in the body of the message.