X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=cgi-bin%2FBackupPC_Admin;h=8dbcadf10908a9816e0511d32c81ef30509d5118;hp=a3fbe87116098ab7843913a74a66c82a50e7d5a1;hb=2a19fd178108b0898e79d2b8908236429ca4c6a3;hpb=5c6a6cc4f333ce44a9df62ab828b0b9341579f7c diff --git a/cgi-bin/BackupPC_Admin b/cgi-bin/BackupPC_Admin index a3fbe87..8dbcadf 100755 --- a/cgi-bin/BackupPC_Admin +++ b/cgi-bin/BackupPC_Admin @@ -39,7 +39,7 @@ # #======================================================================== # -# Version 2.1.0beta1, released 9 Apr 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) ); #