version 1.129.2.1, 2003/02/01 19:55:00
|
version 1.131, 2003/01/28 22:25:54
|
Line 46 use Apache::Constants qw(:common :http);
|
Line 46 use Apache::Constants qw(:common :http);
|
use Apache::loncommon(); |
use Apache::loncommon(); |
use POSIX qw (floor strftime); |
use POSIX qw (floor strftime); |
|
|
|
my %navmaphash; |
|
my %parmhash; |
|
|
|
sub cleanup { |
|
if (tied(%navmaphash)){ |
|
&Apache::lonnet::logthis('Cleanup navmaps: navmaphash'); |
|
unless (untie(%navmaphash)) { |
|
&Apache::lonnet::logthis('Failed cleanup navmaps: navmaphash'); |
|
} |
|
} |
|
if (tied(%parmhash)){ |
|
&Apache::lonnet::logthis('Cleanup navmaps: parmhash'); |
|
unless (untie(%parmhash)) { |
|
&Apache::lonnet::logthis('Failed cleanup navmaps: parmhash'); |
|
} |
|
} |
|
} |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
real_handler($r); |
real_handler($r); |
Line 985 sub new {
|
Line 1003 sub new {
|
$self->{NETWORK_FAILURE} = 0; |
$self->{NETWORK_FAILURE} = 0; |
|
|
# tie the nav hash |
# tie the nav hash |
my %navmaphash; |
|
if (!(tie(%navmaphash, 'GDBM_File', $self->{NAV_HASH_FILE}, |
if (!(tie(%navmaphash, 'GDBM_File', $self->{NAV_HASH_FILE}, |
&GDBM_READER(), 0640))) { |
&GDBM_READER(), 0640))) { |
return undef; |
return undef; |
} |
} |
|
|
my %parmhash; |
|
if (!(tie(%parmhash, 'GDBM_File', $self->{PARM_HASH_FILE}, |
if (!(tie(%parmhash, 'GDBM_File', $self->{PARM_HASH_FILE}, |
&GDBM_READER(), 0640))) |
&GDBM_READER(), 0640))) |
{ |
{ |