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
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?
Ciao
Charl
_______________________________________________________________________
Imagine, if you will, that there were no such thing as a hypothetical
situation...
_______________________________________________________________________
Charl Matthee email: [EMAIL PROTECTED]
Infoline (w) 011-402-4116
C O D E S M I T H Mobile:
+27-82-684-4606
_______________________________________________________________________
===
Archive at http://www.thesite.com.au/~radiator/
To unsubscribe, email '[EMAIL PROTECTED]' with
'unsubscribe radiator' in the body of the message.
