> -----Original Message-----
> From: EXT Hugh Irvine [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, September 02, 1999 2:02 AM
> To: [EMAIL PROTECTED]; [EMAIL PROTECTED];
> [EMAIL PROTECTED]
> Subject: RE: (RADIATOR) AccountingLogFile
>
>
>
> Hello Requiem -
>
> On Wed, 01 Sep 1999, [EMAIL PROTECTED] wrote:
> > >%_Hello
> >
> > I have tried this but it doesn't work.
> >
>
> Could you please be a little more specific? It would be most
> helpful if you
> included the relevant debug output and log output.
> Your previous email said that the PreClientHook was working
> (is this the PreClientHook?) and that you wanted to access the log
> filename. What is being printed by the "print $logfile;" line?
Yes it's the preclienthook !
Actually i just want to print the filename to be sure i've got
the correct name. but after, i will add informations into this file
Here is a log debug output
Thu Sep 2 13:55:59 1999: DEBUG: Packet dump:
*** Received from 127.0.0.1 port 32882 ....
Code: Access-Request
Identifier: 59
Authentic: 1234567890123456
Attributes:
User-Name = "nokiawap"
Service-Type = Framed-User
NAS-IP-Address = 127.0.0.1
NAS-Port = 15
NAS-Port-Type = Async
User-Password = "n<229>,<141>2<255>mx7<228>8?SZ<165>#"
Calling-Station-Id = "612345678"
!!!!!!!!
-----------
Thu Sep 2 13:55:59 1999: DEBUG: Handling request with Handler
'Realm=DEFAULT'
Thu Sep 2 13:55:59 1999: DEBUG: Deleting session for nokiawap, 127.0.0.1,
15
Thu Sep 2 13:55:59 1999: DEBUG: Handling with Radius::AuthLDAP2
Thu Sep 2 13:55:59 1999: DEBUG: Connecting to 192.168.20.30, port 389
Thu Sep 2 13:55:59 1999: DEBUG: LDAP got result for
wapusermsisdn=612345678,ou=wapusers,o=servicesusers
Thu Sep 2 13:55:59 1999: DEBUG: LDAP got wapUserPassword: nokiawap
Thu Sep 2 13:55:59 1999: DEBUG: Radius::AuthLDAP2 looks for match with
612345678
Thu Sep 2 13:55:59 1999: DEBUG: Radius::AuthLDAP2 ACCEPT:
Thu Sep 2 13:55:59 1999: DEBUG: Access accepted for 612345678
Thu Sep 2 13:55:59 1999: DEBUG: Packet dump:
*** Sending to 127.0.0.1 port 32882 ....
Code: Access-Accept
Identifier: 59
Authentic: 1234567890123456
Attributes:
Here is my latest source code !
use Mozilla::LDAP::Conn;
use Mozilla::LDAP::Utils;
use FileHandle;
use Radius::Radius;
use strict;
sub
{
print "\n";
my $p = ${$_[0]};
my $code = $p->code;
my $subcodetype =
$p->getAttrByNum($Radius::Radius::ACCT_STATUS_TYPE);
my $username;
my $msisdn;
if ( $code eq 'Access-Request')
{
print "\n!!!!!!!!\n";
my $username = $p->getAttrByNum($Radius::Radius::USER_NAME);
my $msisdn =
$p->getAttrByNum($Radius::Radius::CALLING_STATION_ID);
if (!$msisdn)
{
$msisdn="000000000";
}
$p->{CachedAttrs}{$Radius::Radius::USER_NAME} = $msisdn;
$p->changeAttrByNum($Radius::Radius::USER_NAME, $msisdn);
$p->{CachedAttrs}{$Radius::Radius::CALLING_STATION_ID} =
$username;
$p->changeAttrByNum($Radius::Radius::CALLING_STATION_ID,
$username);
my $logfile;
foreach $logfile ($p->{Handler}->{AcctLogFileName})
{
print $logfile;
print "\n-----------\n";
}
}
}
Thanks to help me !
===
Archive at http://www.thesite.com.au/~radiator/
To unsubscribe, email '[EMAIL PROTECTED]' with
'unsubscribe radiator' in the body of the message.
