added privilege access handler to storage system

This commit is contained in:
JT Smith 2004-12-31 04:00:24 +00:00
parent 8c77e3dfb7
commit de282a98b5
10 changed files with 124 additions and 10 deletions

View file

@ -1,15 +1,15 @@
#!/usr/bin/perl
use strict;
my $webguiRoot;
BEGIN {
$webguiRoot = "/data/WebGUI"; # Edit to match your WebGUI installation directory.
$webguiRoot = "/data/WebGUI";
unshift (@INC, $webguiRoot."/lib");
}
$|=1;
use strict;
print "\nStarting WebGUI ".$WebGUI::VERSION."\n";
$ENV{GATEWAY_INTERFACE} =~ /^CGI-Perl/ or die "GATEWAY_INTERFACE not Perl!";