(RADIATOR) Radiator-Perl and FreeTDS Problem
Tarkan Erimer
tarkan at netone.net.tr
Thu Oct 5 04:04:46 CDT 2006
Hi all,
I have Radiator, Perl and FreeTDS installed on Fedora Core 5. My scenario is to talking these Radiator, perl and FreeTDS installed system to MS SQL Server. But; when I tried, I got this error on the Radiator log file.
---------------------------------------------------------------------------------------------------
Wed Oct 4 16:21:34 2006: ERR: Could not connect to any SQL database. Request is ignored. Backing off for 600 seconds
Wed Oct 4 16:21:34 2006: DEBUG: do query is: 'delete from AAA_SESSIONTABLE where NASIDENTIFIER='203.63.154.1' and NASPORT=01234':
Wed Oct 4 16:21:34 2006: DEBUG: Handling with Radius::AuthSQL
Wed Oct 4 16:21:34 2006: DEBUG: Handling with Radius::AuthSQL: CheckBySQL_Default
Wed Oct 4 16:21:34 2006: ERR: Could not connect to SQL database with DBI->connect dbi:FreeTDS:database=netone2000;host=1.1.1.1;port=1433, rad1, aaa: install_driver(FreeTDS) failed: Can't locate DBD/FreeTDS.pm in @INC (@INC contains: . /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.7/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.6/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl/5.8.7 /usr/lib/perl5/site_perl/5.8.6 /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.7/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.6/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl/5.8.7 /usr/lib/perl5/vendor_perl/5.8.6 /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4 /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.8/i386-linux-thread-multi /usr/lib/perl5/5.8.8 .) at (eval 81) line 3.
Perhaps the DBD::FreeTDS perl module hasn't been fully installed,
or perhaps the capitalisation of 'FreeTDS' isn't right.
Available drivers: DBM, ExampleP, File, Proxy, Sponge.
at /usr/lib/perl5/site_perl/5.8.7/Radius/SqlDb.pm line 110
Wed Oct 4 16:21:34 2006: ERR: Could not connect to SQL database with DBI->connect dbi:FreeTDS:database=netone2000;host=10.2.1.12;port=1433, rad1, bolero74: install_driver(FreeTDS) failed: Can't locate DBD/FreeTDS.pm in @INC (@INC contains: . /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.7/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.6/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl/5.8.7 /usr/lib/perl5/site_perl/5.8.6 /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.7/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.6/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl/5.8.7 /usr/lib/perl5/vendor_perl/5.8.6 /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4 /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.8/i386-linux-thread-multi /usr/lib/perl5/5.8.8 .) at (eval 82) line 3.
Perhaps the DBD::FreeTDS perl module hasn't been fully installed,
or perhaps the capitalisation of 'FreeTDS' isn't right.
Available drivers: DBM, ExampleP, File, Proxy, Sponge.
at /usr/lib/perl5/site_perl/5.8.7/Radius/SqlDb.pm line 110
Wed Oct 4 16:21:34 2006: ERR: Could not connect to any SQL database. Request is ignored. Backing off for 600 seconds
Wed Oct 4 16:21:34 2006: DEBUG: AuthBy SQL result: IGNORE, User database access error
Wed Oct 4 16:21:39 2006: DEBUG: Packet dump:
*** Received from 193.192.100.50 port 32809 ....
Code: Accounting-Request
Identifier: 125
Authentic: ~\<202><152>H<19>c<178>]-^<188><196>K<194><171>
Attributes:
User-Name = "zao"
Service-Type = Framed-User
NAS-IP-Address = 2.2.2.2
NAS-Identifier = "2.2.2.2"
NAS-Port = 1234
NAS-Port-Type = Async
Acct-Session-Id = "00001234"
Acct-Status-Type = Start
Called-Station-Id = "123456789"
Calling-Station-Id = "987654321"
Acct-Delay-Time = 0
Wed Oct 4 16:21:39 2006: DEBUG: Handling request with Handler 'DEFAULT_HANDLER'
Wed Oct 4 16:21:39 2006: DEBUG: SdbSQL_Default Adding session for zao, 203.63.154.1, 1234
Wed Oct 4 16:21:39 2006: DEBUG: do query is: 'delete from AAA_SESSIONTABLE where NASIDENTIFIER='2.2.2.2' and NASPORT=01234':
Wed Oct 4 16:21:39 2006: DEBUG: do query is: 'insert into AAA_SESSIONTABLE (USERNAME, NASIDENTIFIER, NASPORT, ACCTSESSIONID, TIME_STAMP, TIME_TODATE, FRAMEDIPADDRESS, NASPORTTYPE, SERVICETYPE, DNIS, REALM, CLASS) values ('zao', '2.2.2.2', 01234, '00001234',1159968099, '2006.10.04 16:21:39', '', 'Async', 'Framed-User', '123456789', '', '')':
Wed Oct 4 16:21:39 2006: DEBUG: Handling with Radius::AuthSQL
Wed Oct 4 16:21:39 2006: DEBUG: Handling accounting with Radius::AuthSQL
Wed Oct 4 16:21:39 2006: DEBUG: do query is: 'insert into AAA_ACCOUNTING (ACCTDELAYTIME,ACCTSESSIONID,ACCTSTATUSTYPE,CALLEDSTATIONID,CALLINGSTATIONID,NASIDENTIFIER,NASIPADDRESS,NASPORT,NASPORTTYPE,SERVICETYPE,TIME_STAMP,TIME_TODATE,USERNAME) values (0,,,,,,,1234,,,1159968099,,)':
Wed Oct 4 16:21:39 2006: DEBUG: AuthBy SQL result: IGNORE, Database failure
Wed Oct 4 16:21:44 2006: DEBUG: Packet dump:
*** Received from 193.192.100.50 port 32809 ....
Code: Accounting-Request
Identifier: 126
Authentic: &<185><149><201><144><29><185><220><177><213>9<186>r<199><220>H
Attributes:
User-Name = "zao"
Service-Type = Framed-User
NAS-IP-Address = 203.63.154.1
NAS-Identifier = "203.63.154.1"
NAS-Port = 1234
NAS-Port-Type = Async
Acct-Session-Id = "00001234"
Acct-Status-Type = Stop
Called-Station-Id = "123456789"
Calling-Station-Id = "987654321"
Acct-Delay-Time = 0
Acct-Session-Time = 1000
Acct-Input-Octets = 20000
Acct-Output-Octets = 30000
Wed Oct 4 16:21:44 2006: DEBUG: Handling request with Handler 'DEFAULT_HANDLER'
Wed Oct 4 16:21:44 2006: DEBUG: SdbSQL_Default Deleting session for zao, 2.2.2.2, 1234
Wed Oct 4 16:21:44 2006: DEBUG: do query is: 'delete from AAA_SESSIONTABLE where NASIDENTIFIER='203.63.154.1' and NASPORT=01234':
Wed Oct 4 16:21:44 2006: DEBUG: Handling with Radius::AuthSQL
Wed Oct 4 16:21:44 2006: DEBUG: Handling accounting with Radius::AuthSQL
Wed Oct 4 16:21:44 2006: DEBUG: do query is: 'insert into AAA_ACCOUNTING (ACCTDELAYTIME,ACCTINPUTOCTETS,ACCTOUTPUTOCTETS,ACCTSESSIONID,ACCTSESSIONTIME,ACCTSTATUSTYPE,CALLEDSTATIONID,CALLINGSTATIONID,NASIDENTIFIER,NASIPADDRESS,NASPORT,NASPORTTYPE,SERVICETYPE,TIME_STAMP,TIME_TODATE,USERNAME) values (0,20000,30000,,1000,,,,,,1234,,,1159968104,,)':
Wed Oct 4 16:21:44 2006: DEBUG: AuthBy SQL result: IGNORE, Database failure
-----------------------------------------------------------------------------------------
It states that, "DBD::FreeTDS" module is not installed in perl. It looks; this module is too old and I think, it is not available now. Because, I really can not find it on anywhere. How can I solve this problem or find this perl module ? My software versions are as follows :
- Radiator-3.15-1
- perl-5.8.8-5
- perl-URI-1.35-2.2
- perl-BSD-Resource-1.24-3.2.2
- perl-String-CRC32-1.4-1.FC5
- newt-perl-1.08-9.2.1
- mod_perl-2.0.2-5.1
- perl-DBI-1.52-1.fc5
- perl-SGMLSpm-1.03ii-16.2
Also, the following perl modules installed:
PERLLOCAL(1) User Contributed Perl Documentation PERLLOCAL(1)
Tue Sep 26 16:24:01 2006: "Module" UNIVERSAL::moniker
· "installed into: /usr/lib/perl5/site_perl/5.8.8"
· "LINKTYPE: dynamic"
· "VERSION: 0.08"
· "EXE_FILES: "
Tue Sep 26 16:24:55 2006: "Module" version
· "installed into: /usr/lib/perl5/site_perl/5.8.8"
· "LINKTYPE: dynamic"
· "VERSION: 0.6701"
· "EXE_FILES: "
Tue Sep 26 16:25:13 2006: "Module" Class::Accessor
· "installed into: /usr/lib/perl5/site_perl/5.8.8"
· "LINKTYPE: dynamic"
· "VERSION: 0.27"
· "EXE_FILES: "
Tue Sep 26 16:25:46 2006: "Module" Clone
· "installed into: /usr/lib/perl5/site_perl/5.8.8"
· "LINKTYPE: dynamic"
· "VERSION: 0.20"
· "EXE_FILES: "
Tue Sep 26 16:32:29 2006: "Module" IO::Stringy
· "installed into: /usr/lib/perl5/site_perl/5.8.8"
· "LINKTYPE: dynamic"
· "VERSION: 2.110"
· "EXE_FILES: "
Tue Sep 26 16:32:47 2006: "Module" Class::Data::Inheritable
· "installed into: /usr/lib/perl5/site_perl/5.8.8"
· "LINKTYPE: dynamic"
· "VERSION: 0.06"
· "EXE_FILES: "
Tue Sep 26 16:32:51 2006: "Module" Class::Trigger
· "installed into: /usr/lib/perl5/site_perl/5.8.8"
· "LINKTYPE: dynamic"
· "VERSION: 0.10"
· "EXE_FILES: "
Tue Sep 26 16:38:04 2006: "Module" DBIx::ContextualFetch
· "installed into: /usr/lib/perl5/site_perl/5.8.8"
· "LINKTYPE: dynamic"
· "VERSION: 1.03"
· "EXE_FILES: "
Tue Sep 26 16:38:08 2006: "Module" Ima::DBI
· "installed into: /usr/lib/perl5/site_perl/5.8.8"
· "LINKTYPE: dynamic"
· "VERSION: 0.34"
· "EXE_FILES: "
Tue Sep 26 16:38:17 2006: "Module" Class::DBI
· "installed into: /usr/lib/perl5/site_perl/5.8.8"
· "LINKTYPE: dynamic"
· "VERSION: undef"
· "EXE_FILES: "
Tue Sep 26 16:38:20 2006: "Module" Class::DBI::Sybase
· "installed into: /usr/lib/perl5/site_perl/5.8.8"
· "LINKTYPE: dynamic"
· "VERSION: 0.5"
· "EXE_FILES: "
perl v5.8.8 2006-09-26 PERLLOCAL(1)
Thanks for your very help
Tarkan
--
Archive at http://www.open.com.au/archives/radiator/
Announcements on radiator-announce at open.com.au
To unsubscribe, email 'majordomo at open.com.au' with
'unsubscribe radiator' in the body of the message.
More information about the radiator
mailing list