(RADIATOR) Radiator-Perl and FreeTDS Problem
Tarkan Erimer
tarkan at netone.net.tr
Thu Oct 5 06:52:17 CDT 2006
Hello Hugh,
Yeah, There are a lot of results on google. But; none of them are useful, really. All the related documents are too old. And yeah, some documents are pointing to some URLs for downloading DBD-FreeTDS module; but, these links are not working. BTW, thanks for the suggestion about DBD-ODBC. I will search the DBD-ODBC way. If you can point me to URL or document about the configuration, would be a joy ;)
Regards
Tarkan
-----Original Message-----
From: Hugh Irvine [mailto:hugh at open.com.au]
Sent: Thursday, October 05, 2006 2:10 PM
To: Tarkan Erimer
Cc: radiator at open.com.au
Subject: Re: (RADIATOR) Radiator-Perl and FreeTDS Problem
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