Line # Revision Author
1 296 ahitrov #!/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 #PidFile->new($state); # db-based locking (run only on one host)
22 #PidFile->new($state, per_host=>1); # db-based locking (run on whole cluster)
23 #PidFile->new($state->{run_dir}); # file-based locking (run on whole cluster)
24
25 my $keeper_module = $state->project.'::Keeper';
26 $keeper = $keeper_module->new($state);
27
28 ############################################
29 # please use:
30 # $state->{log_dir} for logging
31 # $state->{tmp_dir} for temporary files
32 ###########################################