Line # Revision Author
1 3 ahitrov@rambler.ru #!/usr/bin/perl
2
3 use strict;
4 use warnings "all";
5 use locale;
6
7 use FindBin;
8 BEGIN {
9 require "$FindBin::RealBin/../lib/Modules.pm";
10 }
11
12 use Contenido::Globals;
13 use Contenido::Init;
14 use ErrorTee;
15 use PidFile;
16
17
18 # begin
19 Contenido::Init->init();
20
21 my $keeper_module = $state->project.'::Keeper';
22 $keeper = $keeper_module->new($state);
23
24 #PidFile->new($keeper, compat=>1); # db-based locking (run only on one host)
25 #PidFile->new($keeper, compat=>1, per_host=>1); # db-based locking (run on whole cluster)
26
27 381 ahitrov for my $plugin ( split(/\s+/, $state->plugins) ) {
28 my $class = $plugin.'::Apache';
29 eval { $class->child_init(); };
30 if ( $@ ) {
31 $log->error("�� ���� ��������� ����� child_init ������� $plugin ($class) �� ������� '$@'");
32 }
33 }
34 3 ahitrov@rambler.ru ############################################
35 # please use:
36 # $state->{log_dir} for logging
37 # $state->{tmp_dir} for temporary files
38 ###########################################