Hello Pavel,
the way DBD-Oracle handles stored procedures is quite different to many (all?)
other DBD modules. The method you describe of working with SPs in Oracle is
correct, and therefore using Oracle stored procedures in Radiator would require
changing the code that gets the user details.
You dont say which platform you are on, but you might want to consider using
DBD-ODBC which allows you to say something like
exec functioname 'arg'
and get a row back into Radiator in the standard way.
Hope that helps.
Cheers.
>
> ---------- Forwarded Message ----------
> Subject: Re: (RADIATOR) Stored procedures once again
> Date: Fri, 30 Jun 2000 18:54:03 +0400
> From: "Pavel A. Crasotin" <[EMAIL PROTECTED]>
>
>
> I've checked Oracle PLSQL reference, DBD-Oracle manual.
> The correct syntax to call Oracle stored procedure/function from a perl
script is
> to wrap it in BEGIN END; block then call prepare(), bind_param[_inout]() for
IN and OUT
> parameters if any, than execute().
> To pass returned results (it can be OUT parameters in stored procedure) it
must be
> called "bind_param_inout" DBD function. The "exec..." will fail if DBD uses
OCI.
> The positional references work only with prefetched rows (result of @row =
$sth->fetchrow call)...
>
> I would like to use the stored procedure 'cause it's the best way to
implement
> access policy to our networks.
>
> May be I'm using wrong DBD-Oracle module?
>
> Does anyone use stored procedure to get password, check and reply items from
Oracle?
> I need advice how can it be done without rewriting Radiator?
>
> Thanx in advance,
> Pavel A. Crasotin
> ____________________________________
> Open Joint-Stock Company SeverTransCom
> 150000, Yaroslavl, Sobinova 40/13
> Tel/Fax: +7 (0852) 72-17-28, 72-17-38
>
>
>
>
> >
> > Hello Pavel -
> >
> > On Fri, 30 Jun 2000, Pavel A. Crasotin wrote:
> > > Hi all,
> > >
> > > we have stored procedure get_user_details(uname, pwd, check, reply) in
Oracle8i which accepts
> > > username and returns password, check and reply items.
> > > Procedure works fine in the test Perl script.
> > >
> > > Can anyone help me and say what combinations of AuthSelect and
AuthColumnDef
> > > should I write to pass the returned parameters to Radiator for
proccessing?
> > >
> > > I've dug the mailng list but didnt find how to do this.
> > > The right syntax of AuthSelect should be
> > >
> > > AuthSelect begin get_user_details('%n', pwd, check, reply); end; I think.
> > > But I dont get how to bind the returned parameters to Radiator. Is it
possible?
> > >
> >
> > Here is an example from Radius/AuthRODOPI.pm:
> >
> > "exec Interface_VircomUsers '$name'"
> >
> > I would have expected you to define something similar for your AuthSelect.
> >
> > As to dealing with the returned values, the AuthColumnDef's have positional
> > references for the first, second, third, etc. values returned by the
> > AuthSelect. Therefore you would have something like this (you will have to
> > experiment a bit no doubt):
> >
> > AuthSelect exec get_user_details '%n'
> >
> > AuthColumnDef 0, User-Password, check
> > AuthColumnDef 1, GENERIC, check
> > AuthColumnDef 2, GENERIC, reply
> >
> > Have a look at sections 6.25.6 and 6.25.7 in the Radiator 2.16.1 reference
> > manual.
> >
> > hth
> >
> > Hugh
> >
> > --
> > Radiator: the most portable, flexible and configurable RADIUS server
> > anywhere. SQL, proxy, DBM, files, LDAP, NIS+, password, NT, Emerald,
> > Platypus, Freeside, Interbiller, TACACS+, PAM, external, etc, etc.
> > Available on Unix, Linux, FreeBSD, Windows 95/98/2000, NT, MacOS X.
> >
> >
> >
> > ===
> > Archive at http://www.starport.net/~radiator/
> > Announcements on [EMAIL PROTECTED]
> > To unsubscribe, email '[EMAIL PROTECTED]' with
> > 'unsubscribe radiator' in the body of the message.
> >
> -------------------------------------------------------
>
> --
> Radiator: the most portable, flexible and configurable RADIUS server
> anywhere. SQL, proxy, DBM, files, LDAP, NIS+, password, NT, Emerald,
> Platypus, Freeside, Interbiller, TACACS+, PAM, external, etc, etc.
> Available on Unix, Linux, FreeBSD, Windows 95/98/2000, NT, MacOS X.
>
>
>
>-- End of excerpt from Hugh Irvine
--
Mike McCauley [EMAIL PROTECTED]
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 etc etc
on Unix, Win95/8, 2000, NT, MacOS 9, MacOS X
===
Archive at http://www.starport.net/~radiator/
Announcements on [EMAIL PROTECTED]
To unsubscribe, email '[EMAIL PROTECTED]' with
'unsubscribe radiator' in the body of the message.
