| version 1.5, 2004/10/26 14:22:57 |
version 1.6, 2005/09/08 23:30:45 |
|
|
| # 09/02/2004 - created |
# 09/02/2004 - created |
| # |
# |
| |
|
| # $Platon: perl-modules/Platon/FastCGI/Restart.pm,v 1.4 2004/09/23 18:23:40 rajo Exp $ |
# $Platon: web-apps/fastcgi-gallery/_modules/Platon/FastCGI/Restart.pm,v 1.1 2005/09/07 13:36:50 rajo Exp $ |
| |
|
| package Platon::FastCGI::Restart; |
package Platon::FastCGI::Restart; |
| |
|
|
|
| max_restart_interval => 60, |
max_restart_interval => 60, |
| CHECK_USER_MODULES => 'true', |
CHECK_USER_MODULES => 'true', |
| CHECK_SYSTEM_MODULES => 'false', |
CHECK_SYSTEM_MODULES => 'false', |
| |
system_modules_regexp => '^/usr', |
| }; |
}; |
| } |
} |
| my $class = ref($this) || $this; |
my $class = ref($this) || $this; |
| Line 77 sub add_loaded_modules ($;) |
|
| Line 78 sub add_loaded_modules ($;) |
|
| my @keys = sort keys %INC; |
my @keys = sort keys %INC; |
| #warn scalar(@keys) . " modules loaded"; |
#warn scalar(@keys) . " modules loaded"; |
| foreach my $file (@keys) { |
foreach my $file (@keys) { |
| if ($INC{$file} =~ m#^/#) { |
if ($INC{$file} =~ m#$self->{system_modules_regexp}#o) { |
| if ($self->{CHECK_SYSTEM_MODULES} eq 'true') { |
if ($self->{CHECK_SYSTEM_MODULES} eq 'true') { |
| #warn "Adding system module '$file'\t=>'$INC{$file}'\n"; |
#warn "Adding system module '$file'\t=>'$INC{$file}'\n"; |
| push @{$self->{checked_files}}, $INC{$file}; |
push @{$self->{checked_files}}, $INC{$file}; |
Login
Registration
Slovak
![[BACK]](http://cvsweb.platon.sk/icons/back.gif){kind=icon}
![[TXT]](http://cvsweb.platon.sk/icons/text.gif){kind=icon}
![[DIR]](http://cvsweb.platon.sk/icons/dir.gif){kind=icon}
Up to