(RADIATOR) Radiator-Perl and FreeTDS Problem
Tarkan Erimer
tarkan at netone.net.tr
Fri Oct 6 01:55:36 CDT 2006
Hi again Hugh,
Thanks for your help. I will try out this :)
Regards
Tarkan
-----Original Message-----
From: Hugh Irvine [mailto:hugh at open.com.au]
Sent: Friday, October 06, 2006 1:39 AM
To: Tarkan Erimer
Cc: radiator at open.com.au
Subject: Re: (RADIATOR) Radiator-Perl and FreeTDS Problem
Hello Tarkan -
See section 25.7 in the Radiator 3.15 reference manual ("doc/ref.html").
All you have to change is the DBSource line:
DBSource dbi:ODBC:datasourcename
regards
Hugh
On 5 Oct 2006, at 21:52, Tarkan Erimer wrote:
> 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,CALLINGST
>> A
>> TIONID,NASIDENTIFIER,NASIPADDRESS,NASPORT,NASPORTTYPE,SERVICETYPE,TIM
>> E
>> _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,ACCTSES
>> S
>> IONTIME,ACCTSTATUSTYPE,CALLEDSTATIONID,CALLINGSTATIONID,NASIDENTIFIER
>> ,
>> NASIPADDRESS,NASPORT,NASPORTTYPE,SERVICETYPE,TIME_STAMP,TIME_TODATE,U
>> S
>> 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.
>
>
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