| version 1.1, 2004/05/16 13:32:04 |
version 1.2, 2004/05/16 13:50:12 |
|
|
| # 09/02/2004 - created |
# 09/02/2004 - created |
| # |
# |
| |
|
| # $Platon: $ |
# $Platon: perl-modules/Platon/FastCGI/Restart.pm,v 1.1.1.1 2004/05/16 13:32:04 rajo Exp $ |
| |
|
| package Platon::FastCGI::Restart; |
package Platon::FastCGI::Restart; |
| |
|
| use strict; |
use strict; |
| use Carp; |
use Carp; |
| use vars qw($VERSION @ISA @EXPORT $AUTOLOAD); |
use vars qw($VERSION $DEBUG @EXPORT $AUTOLOAD); |
| |
|
| |
$VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); |
| |
$DEBUG = 0 unless defined $DEBUG; |
| |
|
| @EXPORT = qw( add_files add_loaded_modules restart ); |
@EXPORT = qw( add_files add_loaded_modules restart ); |
| $VERSION = '0.1'; |
|
| |
|
| sub new |
sub new |
| { # {{{ |
{ # {{{ |
| Line 117 restart - restart program (e.g. FastCGI |
|
| Line 119 restart - restart program (e.g. FastCGI |
|
| use lib qw ( path/to/Platon/perl-modules ); |
use lib qw ( path/to/Platon/perl-modules ); |
| use Platon::FastCGI::Restart; |
use Platon::FastCGI::Restart; |
| |
|
| $restart = restart->new({ |
$restart = Platon::FastCGI::Restart->new({ |
| restart_func => sub { $req->LastCall() }, |
restart_func => sub { $req->LastCall() }, |
| CHECK_USER_MODULES => 'true', |
CHECK_USER_MODULES => 'true', |
| CHECK_SYSTEM_MODULES => 'false', |
CHECK_SYSTEM_MODULES => 'false', |