Hello
I'm using (trying in fact) an external perl script but
i don't know what are the name of subroutines(Entry points)
The error message is :
Mon Jul 12 13:21:57 1999: ERR: Error in PreHandlerHook(): Can't use string
("1")
as a subroutine ref while "strict refs" in use at Radius/Client.pm line 329.
Now my Config file
# ------------------ Main varaibles sets -----------------
# Directory where all log file are placed
LogDir ./logs
# Directory where configs and DB are placed
DbDir .
# ------------------ Main varaibles -----------------
# All log send to stdout
LogStdout
# Trace level
Trace 4
# Pid File
PidFile %L/radiusd.pid
# Port number for authentication
AuthPort 1812
# Port number for accounting request
AcctPort 1813
# Name and location of the log file
LogFile %L/logfile
# Where dicto is placed
DictionaryFile %D/dictionary
<Client ws4-weiner>
Secret mysecret
DupInterval 0
FramedGroupBaseAddress 10.0.0.1
IdenticalClients ws4-maugeri2
</Client>
<Realm DEFAULT>
# Convert All UPPERCASE to lowercaase
#RewriteUsername tr/[A-Z]/[a-z]/
AcctLogFileName %L/detail
AcctLogFileFormat Client: %c Station: %{Calling-Station-Id} LoginIp:
%{Login-IP-Host} Time: %{Timestamp} Session: %{Acct-Session-Id} User:
%{User-Name}
WtmpFileName %L/wtmp
#RejectHasReason
PreAuthHook file:"writeldap.pl"
<AuthBy LDAPSDK>
Host ws4-maugeri2
Port 389
AuthDN cn=Directory Manager
AuthPassword password
BaseDN o=Airius.com
UsernameAttr uid
PasswordAttr userpassword
CheckAttr %{Calling-Station-Id}
</AuthBy>
</Realm>
And now the perl source file
use Getopt::Std; # To parse command line arguments.
use Mozilla::LDAP::Conn; # Main "OO" layer for LDAP
use Mozilla::LDAP::Utils; # LULU, utilities.
use strict;
no strict "vars";
# connect to the directory server
$conn = new Mozilla::LDAP::Conn("ws4-maugeri2","389","cn=Directory
Manager","password");
die "Could't connect to LDAP server ws4-maugeri2" unless $conn;
print "Hello
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n";
# Close the current connection if exist
$conn->close if $conn;
sub main
{
print
"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n";
}
Thanks a lot !
Recycle your PC, Get Linux...
Recycle your Windows, Get Kde...
===
Archive at http://www.thesite.com.au/~radiator/
To unsubscribe, email '[EMAIL PROTECTED]' with
'unsubscribe radiator' in the body of the message.
