Hi Adam,
thanks for pointing that one out to us.
We have fixed it for the next release.
Cheers.
On Aug 5, 3:53pm, Adam Morrison wrote:
> Subject: (RADIATOR) SessDBM inconsistency
>
> SessDBM.pm defined $dbtype as a knob for selecting which database to
> use, but later on several places use AnyDBM_File instead.
>
> *** SessDBM.pm.orig Wed Aug 5 17:38:02 1998
> --- SessDBM.pm Wed Aug 5 17:39:06 1998
> ***************
> *** 105,111 ****
> my $filename = &main::format_special($self->{Filename}, $p);
>
> my %online;
> ! tie (%online, 'AnyDBM_File', $filename, O_CREAT | O_RDWR, 0777)
> || &main::log($main::LOG_WARNING,
> "$self->{Identifier} Could not open DBM online
database file '$filename': $!");
>
> --- 105,111 ----
> my $filename = &main::format_special($self->{Filename}, $p);
>
> my %online;
> ! tie (%online, $dbtype, $filename, O_CREAT | O_RDWR, 0777)
> || &main::log($main::LOG_WARNING,
> "$self->{Identifier} Could not open DBM online
database file '$filename': $!");
>
> ***************
> *** 122,128 ****
> my $filename = &main::format_special($self->{Filename}, $p);
>
> my %online;
> ! tie (%online, 'AnyDBM_File', $filename, O_CREAT | O_RDWR, 0777)
> || &main::log($main::LOG_WARNING,
> "$self->{Identifier} Could not open DBM online
database file '$filename': $!");
>
> --- 122,128 ----
> my $filename = &main::format_special($self->{Filename}, $p);
>
> my %online;
> ! tie (%online, $dbtype, $filename, O_CREAT | O_RDWR, 0777)
> || &main::log($main::LOG_WARNING,
> "$self->{Identifier} Could not open DBM online
database file '$filename': $!");
>
> ***************
> *** 142,148 ****
>
> my $filename = &main::format_special($self->{Filename}, $p);
> my %online;
> ! tie (%online, 'AnyDBM_File', $filename, O_CREAT | O_RDWR, 0777)
> || &main::log($main::LOG_WARNING,
> "$self->{Identifier} Could not open DBM online
database file '$filename': $!");
>
> --- 142,148 ----
>
> my $filename = &main::format_special($self->{Filename}, $p);
> my %online;
> ! tie (%online, $dbtype, $filename, O_CREAT | O_RDWR, 0777)
> || &main::log($main::LOG_WARNING,
> "$self->{Identifier} Could not open DBM online
database file '$filename': $!");
>
>
> ===
> Archive at http://www.thesite.com.au/~radiator/
> To unsubscribe, email '[EMAIL PROTECTED]' with
> 'unsubscribe radiator' in the body of the message.
>-- End of excerpt from Adam Morrison
--
Mike McCauley [EMAIL PROTECTED]
Open System Consultants Pty. Ltd Unix, Perl, Motif, C++, WWW
24 Bateman St Hampton, VIC 3188 Australia http://www.open.com.au
Phone +61 3 9598-0985 Fax +61 3 9598-0955
Radiator: the most portable, flexible and configurable RADIUS server
anywhere. SQL, proxy, DBM, files, LDAP, NIS+, password, NT, Emerald,
Platypus, Freeside, TACACS+, PAM, external, etc etc on Unix, Win95/8,
NT, Rhapsody
===
Archive at http://www.thesite.com.au/~radiator/
To unsubscribe, email '[EMAIL PROTECTED]' with
'unsubscribe radiator' in the body of the message.
