version 1.726, 2006/04/06 19:14:50
|
version 1.728, 2006/04/07 22:42:32
|
Line 45 qw(%perlvar %hostname %badServerCache %i
|
Line 45 qw(%perlvar %hostname %badServerCache %i
|
|
|
use IO::Socket; |
use IO::Socket; |
use GDBM_File; |
use GDBM_File; |
use Apache::Constants qw(:common :http); |
|
use HTML::LCParser; |
use HTML::LCParser; |
use HTML::Parser; |
use HTML::Parser; |
use Fcntl qw(:flock); |
use Fcntl qw(:flock); |
Line 852 sub getsection {
|
Line 851 sub getsection {
|
} |
} |
|
|
sub save_cache { |
sub save_cache { |
my ($r)=@_; |
|
if (! $r->is_initial_req()) { return DECLINED; } |
|
&purge_remembered(); |
&purge_remembered(); |
#&Apache::loncommon::validate_page(); |
#&Apache::loncommon::validate_page(); |
undef(%env); |
undef(%env); |
return OK; |
|
} |
} |
|
|
my $to_remember=-1; |
my $to_remember=-1; |
Line 3992 sub get_users_groups {
|
Line 3988 sub get_users_groups {
|
my $grouplist; |
my $grouplist; |
foreach my $key (keys %roleshash) { |
foreach my $key (keys %roleshash) { |
if ($key =~ /^\Q$courseid\E\/(\w+)\_gr$/) { |
if ($key =~ /^\Q$courseid\E\/(\w+)\_gr$/) { |
unless ($roleshash{$key} =~ /_1_1$/) { # deleted membership |
unless ($roleshash{$key} =~ /_\d+_\-1$/) { # deleted membership |
$grouplist .= $1.':'; |
$grouplist .= $1.':'; |
} |
} |
} |
} |
Line 6525 sub goodbye {
|
Line 6521 sub goodbye {
|
&logthis(sprintf("%-20s is %s",'hits',$hits)); |
&logthis(sprintf("%-20s is %s",'hits',$hits)); |
&flushcourselogs(); |
&flushcourselogs(); |
&logthis("Shutting down"); |
&logthis("Shutting down"); |
return DONE; |
|
} |
} |
|
|
BEGIN { |
BEGIN { |