(RADIATOR) Retrieving a hook by filename from inside ClientListSQL Date: Mon, 03 Feb 2003 00:47:43 -0300

[Claudio Lapidus]

Hello Toomas et al.

Sorry for not answering your first post earlier, I unattended this mailbox a
couple of days...

About the issue you mention, we also needed to be able to select prehandler
hook from an SQL value, but as Mike pointed out back then, that is not
possible, at least directly. By further testing, we also realized that
Radiator doesn't know how to update its client list during runtime, i.e. the
client list is only read once, during initialization (or kill -USR1, I
think, am I wrong Hugh?). Then our final solution was simply to use a clause
like

include /home/radiator/Radiator-3.3.1/rad_clients|

and setup a perl file containing:

-------------------<snip>-------------------
#!/usr/bin/perl
use DBI;
$dbh = DBI->connect ( "dbi:Pg:dbname=xxxxxxx;host=xx.xx.xx.xx", "xxxxx",
"xxxxx");
if ( !defined $dbh ) {
die "Cannot connect to database!\n";
}

$sth = $dbh->prepare( "SELECT nasidentifier, nastype, secret, prehandlerhook
FROM radclientlist");
if ( !defined $sth ) {
die "Cannot prepare statement: $DBI::errstr\n";
}
$sth->execute;
while ( ($nas_id, $nas_type, $nas_secret, $pre_handler) = $sth->fetchrow()){

print "<Client $nas_id>\n   Secret $nas_secret\n   NasType $nas_type\n
PreHandlerHook $pre_handler\n</Client>\n";
}
$sth->finish;
$dbh->disconnect;
-------------------</snip>-------------------

This way, the client list is generated (from SQL data) at daemon startup and
included inline with the rest of the configuration, so we can enjoy the best
of both worlds, the client data stored efficiently in SQL and the compact
'file:"scriptname.pl"' notation as a pointer to further code. Perhaps it
needs some refinement, especially in error handling, but it works fine.
Anyway, I continue thinking that it would be better to have it handled
directly by the main code, but I was unable to convince Mike and Hugh at
that time :-)

Mike, if you want to add the script to contrib, please credit German Gatica,
as he was the person who wrote it.

kind regards
cl.


_________________________________________________________________
MSN 8 helps eliminate e-mail viruses. Get 2 months FREE*.
http://join.msn.com/?page=features/virus

-------------------------------------------------------

-- 
Mike McCauley                               mikem at open.com.au
Open System Consultants Pty. Ltd            Unix, Perl, Motif, C++, WWW
24 Bateman St Hampton, VIC 3188 Australia   http://www.open.com.au
Phone +61 3 9598-0985                       Fax   +61 3 9598-0955

Radiator: the most portable, flexible and configurable RADIUS server 
anywhere. SQL, proxy, DBM, files, LDAP, NIS+, password, NT, Emerald, 
Platypus, Freeside, TACACS+, PAM, external, Active Directory, EAP, TLS, 
TTLS, PEAP etc on Unix, Windows, MacOS etc.

===
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.