Hi Charl -
On Wed, 25 Aug 1999, charl wrote:
> Hi all,
>
> When I try and use AuthBy EXTERNAL with the following:
>
> <AuthBy EXTERNAL>
> Command /usr/bin/perl /usr/local/bin/auth.pl %U %R
>
> # Pass password as Plain Text to script
> DecryptPassword
> </AuthBy>
>
> I get the following out put:
>
> sending Access-Request...
> No reply
> sending Accounting-Request Start...
> No reply
> sending Accounting-Request Stop...
> No reply
>
> Here is the source of the perl script:
>
> #1/usr/bin/perl -w
Try this (replace "1" with "!"):
#!/usr/bin/perl -w
>
> use strict;
> use IO::File;
>
> # create a new IO::File object
> my $fh = new IO::File "> /tmp/temp_file";
>
> # write the command-line options I have been given to the file
> if (defined $fh)
> {
> my $element = '';
>
> foreach $element (@ARGV)
> {
> print $fh "$element\n";
> }
>
> $fh->close;
> }
>
> # hard code the exit to success for now
> exit 0;
>
>
> Does anyone have any clues as to why I am not getting a success returned
> from the script?
I have made the correction above and it works for me.
hth
Hugh
--
Radiator: the most portable, flexible and configurable RADIUS server
anywhere. SQL, proxy, DBM, files, LDAP, NIS+, password, NT, Emerald,
Platypus, Freeside, TACACS+, PAM, external, etc etc on Unix, Win95/8,
NT, Rhapsody
===
Archive at http://www.thesite.com.au/~radiator/
To unsubscribe, email '[EMAIL PROTECTED]' with
'unsubscribe radiator' in the body of the message.
