X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=cgi-bin%2FBackupPC_Admin;h=8dbcadf10908a9816e0511d32c81ef30509d5118;hp=0226c22ba50f8c3915f6b5430f06f929df57c59f;hb=2a19fd178108b0898e79d2b8908236429ca4c6a3;hpb=ce708288691ba7dd95a8dac7a468bc0e4c1d6588 diff --git a/cgi-bin/BackupPC_Admin b/cgi-bin/BackupPC_Admin index 0226c22..8dbcadf 100755 --- a/cgi-bin/BackupPC_Admin +++ b/cgi-bin/BackupPC_Admin @@ -39,7 +39,7 @@ # #======================================================================== # -# Version 2.1.0beta0, released 20 Mar 2004. +# Version 2.1.3, released 21 Jan 2007. # # See http://backuppc.sourceforge.net. # @@ -49,7 +49,7 @@ use strict; no utf8; use CGI; use CGI::Carp qw(fatalsToBrowser); -use lib "/usr/local/BackupPC/lib"; +use lib "/usr/local/BackupPC2.1.0/lib"; use BackupPC::Lib; use BackupPC::CGI::Lib qw(:all); @@ -86,8 +86,6 @@ my %ActionDispatch = ( # Set default actions, then call sub handler # $In{action} ||= "hostInfo" if ( defined($In{host}) ); -## rk default non admin users to pc summary for their hosts -$In{action} = "summary" if ( !defined($ActionDispatch{$In{action}}) && !CheckPermission()); $In{action} = "generalInfo" if ( !defined($ActionDispatch{$In{action}}) ); my $action = $ActionDispatch{$In{action}}; @@ -97,7 +95,7 @@ my $action = $ActionDispatch{$In{action}}; # the directory onto INC if it is missing. This is an ugly hack; # need to figure out what's really going on... # -my $installDir = '/usr/local/BackupPC/lib'; +my $installDir = '/usr/local/BackupPC2.1.0/lib'; push(@INC, $installDir) if ( !grep($_ eq $installDir, @INC) ); #