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 [EMAIL PROTECTED] To unsubscribe, email '[EMAIL PROTECTED]' 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 [EMAIL PROTECTED] To unsubscribe, email '[EMAIL PROTECTED]' with 'unsubscribe radiator' in the body of the message.
