password check, logout button

[nj-awaymsg.git] / run-mason.cgi

diff --git a/run-mason.cgi b/run-mason.cgi
index 91916cc0c507c05e3f801d1d8f00d08d59000799..d39bb834f9f4ec244901f6c6a70dbfc70e4195bf 100755 (executable)
--- a/run-mason.cgi
+++ b/run-mason.cgi
@@ -15,8 +15,8 @@ unshift @INC, $perllib;
 my $pathsofar = $comp_root;
 die "$pathsofar $!" unless stat $pathsofar;
 
+$ENV{'PATH_INFO'} ||= '/main';
 my $path_info = $ENV{'PATH_INFO'};
-$path_info='' if !defined $path_info;
 
 foreach my $pathcomp (split m#/#, $path_info) {
     next if $pathcomp eq '';