(RADIATOR) Radiator-Perl and FreeTDS Problem

Hugh Irvine hugh at open.com.au
Thu Oct 5 06:10:20 CDT 2006


Hello Tarkan -

A quick Google search for dbd-freetds yields lots of hits.

If you cannot find the DBD-FreeTDS module, then I suggest you either  
use DBD-ODBC with a commercial ODBC driver for Linux, or you install  
a local copy of Radiator on your MS-SQL box and run Radiator with DBD- 
ODBC locally.

We recommend using ActivePerl 5.8.8.819 from ActiveState on Windows  
(www.activestate.com).

regards

Hugh


On 5 Oct 2006, at 19:04, Tarkan Erimer wrote:

> 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,CALLINGSTA 
> TIONID,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,ACCTSESS 
> IONTIME,ACCTSTATUSTYPE,CALLEDSTATIONID,CALLINGSTATIONID,NASIDENTIFIER, 
> NASIPADDRESS,NASPORT,NASPORTTYPE,SERVICETYPE,TIME_STAMP,TIME_TODATE,US 
> ERNAME) 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.



NB:

Have you read the reference manual ("doc/ref.html")?
Have you searched the mailing list archive (www.open.com.au/archives/ 
radiator)?
Have you had a quick look on Google (www.google.com)?
Have you included a copy of your configuration file (no secrets),
together with a trace 4 debug showing what is happening?

-- 
Radiator: the most portable, flexible and configurable RADIUS server
anywhere. Available on *NIX, *BSD, Windows, MacOS X.
Includes support for reliable RADIUS transport (RadSec),
and DIAMETER translation agent.
-
Nets: internetwork inventory and management - graphical, extensible,
flexible with hardware, software, platform and database independence.
-
CATool: Private Certificate Authority for Unix and Unix-like systems.



--
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