* Major changes from Ryan Kucera to add style sheets to the CGI
[BackupPC.git] / cgi-bin / BackupPC_Admin
1 #!/bin/perl -T
2 #============================================================= -*-perl-*-w
3 #
4 # BackupPC_Admin: Apache/CGI interface for BackupPC.
5 #
6 # DESCRIPTION
7 #   BackupPC_Admin provides a flexible web interface for BackupPC.
8 #   It is a CGI script that runs under Apache.
9 #
10 #   It requires that Apache pass in $ENV{SCRIPT_NAME} and
11 #   $ENV{REMOTE_USER}. The latter requires .ht_access style
12 #   authentication. Replace the code below if you are using some other
13 #   type of authentication, and have a different way of getting the
14 #   user name.
15 #
16 #   Also, this script needs to run as the BackupPC user.  To accomplish
17 #   this the script is typically installed as setuid to the BackupPC user,
18 #   or it can run under mod_perl with httpd running as the BackupPC user.
19 #
20 # AUTHOR
21 #   Craig Barratt  <cbarratt@users.sourceforge.net>
22 #
23 # COPYRIGHT
24 #   Copyright (C) 2001-2003  Craig Barratt
25 #
26 #   This program is free software; you can redistribute it and/or modify
27 #   it under the terms of the GNU General Public License as published by
28 #   the Free Software Foundation; either version 2 of the License, or
29 #   (at your option) any later version.
30 #
31 #   This program is distributed in the hope that it will be useful,
32 #   but WITHOUT ANY WARRANTY; without even the implied warranty of
33 #   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
34 #   GNU General Public License for more details.
35 #
36 #   You should have received a copy of the GNU General Public License
37 #   along with this program; if not, write to the Free Software
38 #   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
39 #
40 #========================================================================
41 #
42 # Version 2.1.0_CVS, released 3 Jul 2003.
43 #
44 # See http://backuppc.sourceforge.net.
45 #
46 #========================================================================
47
48 use strict;
49 no  utf8;
50 use CGI;
51 use CGI::Carp qw(fatalsToBrowser);
52 use lib "/usr/local/BackupPC/lib";
53
54 use BackupPC::Lib;
55 use BackupPC::CGI::Lib qw(:all);
56
57 BackupPC::CGI::Lib::NewRequest;
58
59 my %ActionDispatch = (
60     "summary"                    => "Summary",
61     $Lang->{Start_Incr_Backup}   => "StartStopBackup",
62     $Lang->{Start_Full_Backup}   => "StartStopBackup",
63     $Lang->{Stop_Dequeue_Backup} => "StartStopBackup",
64     $Lang->{Stop_Dequeue_Archive} => "StartStopBackup",
65     "queue"                      => "Queue",
66     "view"                       => "View",
67     "LOGlist"                    => "LOGlist",
68     "emailSummary"               => "EmailSummary",
69     "browse"                     => "Browse",
70     "dirHistory"                 => "DirHistory",
71     $Lang->{Restore}             => "Restore",
72     "RestoreFile"                => "RestoreFile",
73     "hostInfo"                   => "HostInfo",
74     "generalInfo"                => "GeneralInfo",
75     "restoreInfo"                => "RestoreInfo",
76     "archiveInfo"                => "ArchiveInfo",
77     $Lang->{Start_Archive}       => "Archive",
78     "Archive"                    => "Archive",
79     "Reload"                     => "ReloadServer",
80     "startServer"                => "StartServer",
81     "Stop"                       => "StopServer",
82     "adminOpts"                  => "AdminOptions",
83 );
84
85 #
86 # Set default actions, then call sub handler
87 #
88 $In{action} ||= "hostInfo"    if ( defined($In{host}) );
89 ## rk default non admin users to pc summary for their hosts
90 $In{action}   = "summary" if ( !defined($ActionDispatch{$In{action}}) && !CheckPermission());
91 $In{action}   = "generalInfo" if ( !defined($ActionDispatch{$In{action}}) );
92 my $action    = $ActionDispatch{$In{action}};
93 require "BackupPC/CGI/$action.pm"
94             if ( !defined($BackupPC::CGI::{"${action}::"}) );
95 $BackupPC::CGI::{"${action}::"}{action}();