#
#========================================================================
#
-# Version 2.1.0beta1, released 9 Apr 2004.
+# Version 2.1.3, released 21 Jan 2007.
#
# See http://backuppc.sourceforge.net.
#
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);
# 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}};
# 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) );
#