forked from plainblack/webgui
-
Notifications
You must be signed in to change notification settings - Fork 0
/
maintenanceMode.pl
executable file
·92 lines (61 loc) · 2.02 KB
/
maintenanceMode.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
#!/usr/bin/env perl
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2009 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
our ($webguiRoot);
BEGIN {
$webguiRoot = "..";
unshift (@INC, $webguiRoot."/lib");
}
use Getopt::Long;
use Pod::Usage;
use strict;
use WebGUI::Session;
my $help;
my $start = 1;
my $stop = 0;
my $configFile;
GetOptions(
'help'=>\$help,
'start'=>\$start,
'stop'=>\$stop,
'configFile=s'=>\$configFile
);
pod2usage( verbose => 2 ) if $help;
pod2usage() if $configFile eq "";
my $session = WebGUI::Session->open($webguiRoot,$configFile);
$session->setting->remove('specialState');
$session->setting->add('specialState','upgrading') unless $stop;
$session->var->end;
$session->close;
__END__
=head1 NAME
maintenanceMode - Set WebGUI site into maintenance mode.
=head1 SYNOPSIS
maintenanceMode --configFile config.conf [--start|--stop]
maintenanceMode --help
=head1 DESCRIPTION
This utility script will set or unset WebGUI's B<specialState>
setting to signal the beginning or end of Maintenance Mode.
=over
=item B<--configFile config.conf>
The WebGUI config file to use. Only the file name needs to be specified,
since it will be looked up inside WebGUI's configuration directory.
This parameter is required.
=item B<--start>
Set B<specialState> to signal the beginning of maintenance mode.
This is the default behaviour.
=item B<--stop>
Unset B<specialState> to signal the end of maintenance mode.
=item B<--help>
Shows this documentation, then exits.
=back
=head1 AUTHOR
Copyright 2001-2009 Plain Black Corporation.
=cut