Updates

README.md

@@ -5,6 +5,8 @@ The following is a first list of the stuff we should know how to do.
 
 ssh actswac@104.238.116.218
 
+Qbttxpsea1!
+
 - Find names of software packages in the official CentOS repositories.
 
 Sample commands

survey-nginx/cgi-bin/login.pl

@@ -11,10 +11,11 @@ require 'testlib.pl';
 &traceoutput("login.pl");	# TRACE IF ACTIVE
 
 &app_initialize;
-$SESSION{'temptime'} = time();
 
+$SESSION{'temptime'} = time();
 $SESSION{'clid'} = $FORM{'clid'};
 $SESSION{'lang'} = $FORM{'lang'};
+
 &get_client_configuration();
 &traceoutput("login.pl:$FORM{'clid'}:$FORM{'uid'}:$FORM{'pwd'}");	# TRACE IF ACTIVE
 &setbrowsertype();
@@ -28,13 +29,15 @@ if (! -x $testroot) {
 if ($FORM{'selfregister'} eq "Y") {
     unless ($SESSION{'clid'}) {
 	warn "ERROR: Empty Client ID in Form $FORM{'clid'} " ;
-    &show_illegal_access_warning("user");
+	print STDERR "ERROR: Empty Client ID in Form $FORM{'clid'} " ;
+#	&show_illegal_access_warning("user");
 	exit();
     }
     &get_client_profile($SESSION{'clid'});
     unless (%CLIENT) {
 	warn "ERROR: Invalid Client ID $FORM{'clid'} " ;
-    &show_illegal_access_warning("user");
+	print STDERR "ERROR: Invalid Client ID $FORM{'clid'} " ;
+#	&show_illegal_access_warning("user");
 	exit();
     }
     $CANDIDATE{'new'}="Y";
@@ -54,13 +57,15 @@ if ($FORM{'selfregister'} eq "Y") {
     $vars{'direction'} = $FORM{'direction'} unless !(defined($FORM{'direction'}));
     unless ($SESSION{'clid'}) {
 	warn "ERROR: Empty Client ID in Form $FORM{'clid'} " ;
-    &show_illegal_access_warning("user");
+	print STDERR "ERROR: Empty Client ID in Form $FORM{'clid'} " ;
+#	&show_illegal_access_warning("user");
 	exit();
     }
     &get_client_profile($SESSION{'clid'});
     unless (%CLIENT || $SESSION{'clid'} eq 'std') {
 	warn "ERROR: Invalid Client ID $FORM{'clid'} " ;
-    &show_illegal_access_warning("user");
+	print STDERR "ERROR: Invalid Client ID $FORM{'clid'} " ;
+#	&show_illegal_access_warning("user");
 	exit();
     }
     if ($SESSION{'taclid'} ne '') {
@@ -76,7 +81,7 @@ if ($FORM{'selfregister'} eq "Y") {
 	    &regdusr("regtacl");
 	}
     } elsif ($FORM{'sas'} ne '') {
-## ^ support for wilcard login
+	## ^ support for wilcard login
 	# register an account to the candidate
 	my $opts = { restrict_to_availability_window => 1 };
 	unless ($SESSION{'uid'}) {

survey-nginx/cgi-bin/sadmin.pl

@@ -4,7 +4,15 @@
 #
 # Source File: sadmin.pl
 
+#use strict;
+use warnings;
+use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
+
+#warningsToBrowser(1);
+#fatalsToBrowser(1);
+
 # Get config
+
 require 'sitecfg.pl';
 require 'testlib.pl';
 
@@ -12,18 +20,21 @@ require 'testlib.pl';
 
 print "Content-Type: text/html\n\n";
 
-if (&get_session($FORM{'tid'})) {
+#print $logroot;
+my $tid = $FORM{'tid'};
+
+if (&get_session($tid)) {
     &LanguageSupportInit();
     unless ($SESSION{'clid'}) {
 	warn "ERROR: Empty Client ID in Session data for Session ID $FORM{'tid'} " ;
-    &show_illegal_access_warning("user");
+	#&show_illegal_access_warning("user");
 	exit();
     }
     if ($SESSION{'clid'} ne 'std') {
 	&get_client_profile($SESSION{'clid'});
 	unless (%CLIENT) {
 	    warn "ERROR: Invalid Client ID $SESSION{'clid'} in Session ID $FORM{'tid'} " ;
-    	&show_illegal_access_warning("user");
+	    #&show_illegal_access_warning("user");
 	    exit();
   	}
 	if ($SESSION{'uac'} eq 'admin' || $SESSION{'uac'} eq 'madmin') {
@@ -34,7 +45,7 @@ if (&get_session($FORM{'tid'})) {
 	    &get_candidate_profile($SESSION{'clid'}, $SESSION{'uid'});
 	    unless (%CANDIDATE) {
     		warn "ERROR: Invalid Candidate ID $SESSION{'uid'} for Client $SESSION{'clid'} in Session ID $FORM{'tid'} " ;
-    		&show_illegal_access_warning("user");
+    		#&show_illegal_access_warning("user");
     		exit();
 	    }
 	    $FORM{'pageid'} = "Gradebook";
@@ -50,8 +61,6 @@ if (&get_session($FORM{'tid'})) {
     $CLIENT{'emlaclstr'} =~ s/@//g;
     $CLIENT{'emlaclstr'} =~ s/,$//g;
 
-
-
     if ($FORM{'idx'} eq '1') {
 	&log_entry($SESSION{'clid'}, $SESSION{'uid'}, "2", "SA/I");
 	if ($SESSION{'uac'} eq 'admin' || $SESSION{'uac'} eq 'gadmin' || $SESSION{'uac'} eq 'madmin') {
@@ -184,7 +193,7 @@ if (&get_session($FORM{'tid'})) {
 	&log_entry($SESSION{'clid'}, $SESSION{'uid'}, "2", "SA/GP");
 	&show_admin_request($mainttmplt);
     } elsif ($FORM{'dtl'} eq '8') {
-#Begin filtering
+	#Begin filtering
 	$filterbydate = $FORM{'filterbydate'};
 	$day_filter = $FORM{'day_filter'};
 	$date_filter = $FORM{'date_filter'};
@@ -192,7 +201,7 @@ if (&get_session($FORM{'tid'})) {
 	$cnd2_filter = $FORM{'cnd2'};
 	$cnd3_filter = $FORM{'cnd3'};
 	$cnd4_filter = $FORM{'cnd4'};
-#End filtering
+	#End filtering
 	&log_entry($SESSION{'clid'}, $SESSION{'uid'}, "2", "SA/CC");
 	&show_admin_request("maintcnd");
     } elsif ($FORM{'dtl'} eq '9') {
@@ -207,11 +216,11 @@ if (&get_session($FORM{'tid'})) {
     } elsif ($FORM{'dbop'} ne '') {
 	&show_dbop_response;
     } else {
-		&show_illegal_access_warning;
+	#&show_illegal_access_warning("else1");
     }
 } else {
     &logger::logerr("Unable to get session with &get_session($FORM{'tid'})");
-	&show_illegal_access_warning;
+    &show_illegal_access_warning("else2");
 }
 
 sub show_license_request {
@@ -479,5 +488,5 @@ window.onmouseup=right;
 }
 
 sub close_results {
-	print "</BODY>\n</HTML>\n";
+    print "<DIV>HERE</DIV></BODY>\n</HTML>\n";
 }

survey-nginx/cgi-bin/sitecfg.pl

@@ -75,14 +75,15 @@ $fieldsep = ';';
 $idmax = 1000;
 
 $hostid = 4;
+
 require 'smilib.pl';
 require 'cybertestlib.pl';
 require 'maillib.pl';
 
-
 #
 # THIS IS DEVELOPMENT SETTING *ONLY*!  DO NOT COMMIT THIS CHANGE!!
 #
+
 $docroot = $ENV{DOCUMENT_ROOT};
 $docroot =~ s/\/htdocs\s*$//g;
 $urlroot = "/cgi-bin";
@@ -115,7 +116,7 @@ $PATHS{'pubroot'} = $pubroot;
 $PATHS{'logroot'} = $logroot;
 $PATHS{'dataroot'} = $dataroot;
 $PATHS{'secroot'} = $secroot;
-$PATHS{'logroot'} = $logroot;
+#$PATHS{'logroot'} = $logroot;
 $PATHS{'resptmplt'} = $resptmplt;
 $PATHS{'questionroot'} = $questionroot;
 $PATHS{'testroot'} = $testroot;

survey-nginx/cgi-bin/smilib.pl

@@ -217,12 +217,12 @@ sub show_message_with_back {
 <CENTER>
 $_[0]<BR>
 \&nbsp;<BR>\n";
-if ($_[1] == 2) {
+    if ($_[1] == 2) {
 	print "<a href=$URL target=_parent>BACK</a>\n";
-} else {
+    } else {
 	print "<a href=$URL>BACK</a>\n";
-}
+    }
-print "
+    print "
 </BODY>
 </HTML>
 ";
@@ -544,15 +544,15 @@ sub show_illegal_access_warning {
     }
     print "\&nbsp;<BR>\n";
     print "\&nbsp;<BR>\n";
-#        print "Attention Hackers:<br>You have attempted to gain access to this secure site \n";
+    #        print "Attention Hackers:<br>You have attempted to gain access to this secure site \n";
-#	print "by bypassing the site security.<BR>\n";
+    #	print "by bypassing the site security.<BR>\n";
-#	print "\&nbsp;<BR>\n";
+    #	print "\&nbsp;<BR>\n";
-#	print "The contents of this site are protected by United States and International copyright laws.<BR>\n";
+    #	print "The contents of this site are protected by United States and International copyright laws.<BR>\n";
-#	print "The information on this site is proprietary and protected by United States and International information privacy laws.<BR>\n";
+    #	print "The information on this site is proprietary and protected by United States and International information privacy laws.<BR>\n";
-#	print "\&nbsp;<BR>\n";
+    #	print "\&nbsp;<BR>\n";
-#	print "This invalid attempt has been logged, the site administrator notified, and your access route traced.<BR>";
+    #	print "This invalid attempt has been logged, the site administrator notified, and your access route traced.<BR>";
-#	print "Any further unauthorized access attempts from $ENV{'REMOTE_ADDR'} will result ";
+    #	print "Any further unauthorized access attempts from $ENV{'REMOTE_ADDR'} will result ";
-#	print "in further investigation and possible prosecution.<BR>\n";
+    #	print "in further investigation and possible prosecution.<BR>\n";
     print "</BODY>\n";
     print "</HTML>\n";
 }
@@ -572,12 +572,12 @@ sub check_admin_profiles {
 sub checkinprogress {
     my ($clid, $uid) = @_;
 
-#	FIXME:  This code, which I commented out, is a nagging mystery.  
+    #	FIXME:  This code, which I commented out, is a nagging mystery.  
-#   FIXME:  Why was it here?  Can't see how it worked?  -efl, 1/2002
+    #   FIXME:  Why was it here?  Can't see how it worked?  -efl, 1/2002
-#	$tmpfile = join( $pathsep, $testroot, "inprog", "$uid.dat");
+    #	$tmpfile = join( $pathsep, $testroot, "inprog", "$uid.dat");
-#	open (TMPFILE, "<$tmpfile") || return 0;
+    #	open (TMPFILE, "<$tmpfile") || return 0;
-#	@pairs = <TMPFILE>;
+    #	@pairs = <TMPFILE>;
-#	close TMPFILE;
+    #	close TMPFILE;
 
     $testdir = join( $pathsep, $testroot, "inprog");
 
@@ -597,11 +597,11 @@ sub checkinprogress {
 	    #
 	    if ( &within_availability_window($clid, $testid, time) ) {
 
-#	FIXME:  Don't actually note the inprogress test file because this code
+		#	FIXME:  Don't actually note the inprogress test file because this code
-#	FIXME:  never worked before and was compensated for elsewhere.  If it
+		#	FIXME:  never worked before and was compensated for elsewhere.  If it
-#	FIXME:  ain't broke, don't fix it.  If you uncomment the line below,
+		#	FIXME:  ain't broke, don't fix it.  If you uncomment the line below,
-#	FIXME:  then this code works, but test resumption does not.  -efl, 1/2002
+		#	FIXME:  then this code works, but test resumption does not.  -efl, 1/2002
-#				push( @inprogtests, $testid );
+		#				push( @inprogtests, $testid );
 
 	    }
 	}
@@ -746,11 +746,11 @@ sub IsTaclID {
 
 sub verifyaccess {
     $FORM{'uac'} = "";
-## v support for wildcard ids
+    ## v support for wildcard ids
     if (&IsTaclID($FORM{'clid'},$FORM{'uid'},$FORM{'pwd'},$FORM{'testid'})) {
 	return 1;
     }
-## ^ support for wildcard ids
+    ## ^ support for wildcard ids
     if ($FORM{'tadm'} ne '' || $FORM{'sadm'} ne '') {
 	$tmpfile = "admin.dat";
 	($oldpass,$newpass,$confirmpass) = split(/\//, $FORM{'pwd'});
@@ -1115,7 +1115,7 @@ sub xlatline {
 	    } elsif ( $xltline =~ /<%=CLIENT.groups%>/i) {
 		&print_client_groups($CLIENT{'clid'}, $fh);
 		return "";
-# v sac modification to standardize test sequence inputs
+		# v sac modification to standardize test sequence inputs
 	    } elsif ( $xltline =~ /<%=CLIENT.cfas%>/i) {
 		$repl = &print_client_seqtst_list($CLIENT{'clid'},"cfa",$TEST{'dscl'},$fh);
 		$srch = join('', "<%=CLIENT.", "cfas", "%>");
@@ -1132,7 +1132,7 @@ sub xlatline {
 		$repl = &print_client_seqtst_list($CLIENT{'clid'},"srvy",$TEST{'srvy'},$fh);
 		$srch = join('', "<%=CLIENT.", "srvys", "%>");
 		$xltline =~ s/$srch/$repl/g;
-# ^ sac modification to standardize test sequence inputs
+		# ^ sac modification to standardize test sequence inputs
 	    } elsif ( $xltline =~ /<%=CLIENT.userlanguageselect%>/i) {
 		&print_user_language_select($CLIENT{'clid'});
 		return "";
@@ -1327,7 +1327,7 @@ sub xlatline {
 		    $srch1 = join('', "<%=CANDIDATE.", $_, "%>");
 		    $xltline =~ s/$srch1/$repl/g;
 		}
-# v sac support for self-registration
+		# v sac support for self-registration
 		$srch1 = "<%=CANDIDATE.selfregistertests%>";
 		if ($xltline =~ m/$srch1/ ) {
 		    if ($CANDIDATE{'inproglist'} ne '') {
@@ -1349,7 +1349,7 @@ sub xlatline {
 		}
 		# Was end curly brace for loop on keys of %CANDIDATE
 	    }
-# ^ sac support for self-registration
+	    # ^ sac support for self-registration
 	}
 	$srch1 = "<%=DATE%>";
 	if ($xltline =~ m/$srch1/ ) {
@@ -1369,7 +1369,7 @@ sub xlatline {
 sub get_template {
     my ($template_base) = @_;
     # warn "Template $template_base Used." ; # HBI Trace template usage.
-# v sac check for custom template
+    # v sac check for custom template
     if ($SESSION{'clid'} ne '') {
 	$tmpfile = join($pathsep, $resptmplt, "$SESSION{'clid'}","$template_base.htt");
     } elsif ($FORM{'clid'} ne '') {
@@ -1377,11 +1377,11 @@ sub get_template {
     } else {
 	$tmpfile = join($pathsep, $resptmplt, "$CLIENT{'clid'}","$template_base.htt");
     }
-# ^ sac check for custom template
+    # ^ sac check for custom template
     unless (&file_exists($tmpfile)) {
 	$tmpfile = join($pathsep, $resptmplt, "$template_base.htt");
     }
-#	&logger::logdbg("Reading template $template_base.htt");
+    #	&logger::logdbg("Reading template $template_base.htt");
     my @locallines;
     if ($HBI_Debug_smilib_template_file) {
 	warn "Reading Template file $tmpfile \n";
@@ -1931,32 +1931,32 @@ sub compute_month_seconds {
 }
 
 sub log_entry {
-#
+    #
-#	Emergency fix for lost test data
+    #	Emergency fix for lost test data
-#
+    #
-#	my ($clid, $uid) = @_;
+    #	my ($clid, $uid) = @_;
-#	$tmstmp = &format_date_time("dd-mmm-yy hh:nn:ss GMT", "1", "0");
+    #	$tmstmp = &format_date_time("dd-mmm-yy hh:nn:ss GMT", "1", "0");
-#	@flds = @_;
+    #	@flds = @_;
-#	$j = $#flds;
+    #	$j = $#flds;
-#	$newrec =  $tmstmp;
+    #	$newrec =  $tmstmp;
-#	$newrec = join(',', $newrec, $SESSION{'tid'});
+    #	$newrec = join(',', $newrec, $SESSION{'tid'});
-#	for $i (2 .. $j) {
+    #	for $i (2 .. $j) {
-#		$newrec = join(',', $newrec, $flds[$i++]);
+    #		$newrec = join(',', $newrec, $flds[$i++]);
-#	}
+    #	}
-#	$logfile = join($pathsep, $logroot, "$clid.$uid");
+    #	$logfile = join($pathsep, $logroot, "$clid.$uid");
-#	if (open (TMPFILE, ">>$logfile")) {
+    #	if (open (TMPFILE, ">>$logfile")) {
-#		print TMPFILE "$newrec\n";
+    #		print TMPFILE "$newrec\n";
-#		close TMPFILE;
+    #		close TMPFILE;
-#	} else {
+    #	} else {
-#		open (TMPFILE, ">$logfile");
+    #		open (TMPFILE, ">$logfile");
-#		@tmprecs = <TMPFILE>;
+    #		@tmprecs = <TMPFILE>;
-#		foreach $tmprec (@tmprecs) {
+    #		foreach $tmprec (@tmprecs) {
-#			print TMPFILE "$tmprec";
+    #			print TMPFILE "$tmprec";
-#		}
+    #		}
-#		print TMPFILE "$newrec\n";
+    #		print TMPFILE "$newrec\n";
-#		close TMPFILE;
+    #		close TMPFILE;
-#	}
+    #	}
-#	$chmodok = chmod 0666, $logfile;
+    #	$chmodok = chmod 0666, $logfile;
     my ($clid, $uid, $code, $message, $tmstmp) = @_;
     my $i;
     my $logfile;
@@ -2625,14 +2625,14 @@ sub make_tree {
     my $dirbranch = $dirtree;
     my $dirbranch = s/^$docroot//g;
     my @branches=split($pathsep,$dirbranch);
-&dbgprint("make_tree:$dirbase:$dirtree:$dirbranch:$#branches\n");
+    &dbgprint("make_tree:$dirbase:$dirtree:$dirbranch:$#branches\n");
     for $i (0 .. $#branches) {
 	$dirbranch=join($pathsep,$dirbase,$branches[$i]);
 	if (opendir(TMPDIR,"$dirbranch")) {
 	    closedir TMPDIR;
 	} else {
 	    mkdir $dirbranch,0666;
-&dbgprint("mkdirResult:$dirbranch:$!\n");
+	    &dbgprint("mkdirResult:$dirbranch:$!\n");
 	}
 	$dirbase=$dirbranch;
     }
@@ -2849,12 +2849,12 @@ sub pushEmlAcl {
 }
 
 sub get_data_hash {
-# Read a data file, and return a hash of the file.
+    # Read a data file, and return a hash of the file.
-# Parameters are the file name, and a flag for using a lock file.
+    # Parameters are the file name, and a flag for using a lock file.
-# Return an unnamed hash of hashes.
+    # Return an unnamed hash of hashes.
-# The keys of the first hash are the ids.
+    # The keys of the first hash are the ids.
-# The values of the first hash is a hash with one line's data.
+    # The values of the first hash is a hash with one line's data.
-#    This next hash has the field ids for keys.
+    #    This next hash has the field ids for keys.
     my ($file, $lock) = @_;
     my @data_lines = get_data($file, $lock) ;
     my $bFirst = 1 ;

survey-nginx/cgi-bin/test.pl

@@ -1,96 +1,70 @@
 #!/usr/bin/perl
+#use strict;
+#use warnings;
+use CGI;
+use CGI::Carp qw(fatalsToBrowser);
+
 require 'sitecfg.pl';
-require 'testlib.pl';
 
-&traceoutput("visitor.pl:$ENV{'HTTP_REFERER'}");        # TRACE IF ACTIVE
+print "Content-type: text/plain\n\n";
 
-&app_initialize;                                                    
+# Get user IDs
+my $real_user_id = $<;
+my $effective_user_id = $>;
 
-print "Content-Type: text/html\n\n";                    
+# Get group IDs
+my $real_group_id = $(;
+my $effective_group_id = $);
 
-$mtime = time;   
+# Get group names
-$today = &format_date_time("yyyy-mm-dd hh:nn:ss GMT", "1", "-10000", $mtime);
+my $real_group_name = getgrgid($real_group_id);
+my $effective_group_name = getgrgid($effective_group_id);
 
-$stdvisitorlog = join($pathsep, $secroot, "visitsstd.dat");
+# Print user and group information
-$clidvisitorlog = join($pathsep, $secroot, "visits$FORM{'clid'}.dat");
+print "Real User ID: $real_user_id\n";
-$defaultvisitlog = join($pathsep, $secroot, "visits.dat");
+print "Effective User ID: $effective_user_id\n";
+print "Real Group ID: $real_group_id ($real_group_name)\n";
+print "Effective Group ID: $effective_group_id ($effective_group_name)\n";
 
-$msg = "";                                                                   
+my $cgi = CGI->new($ENV{'QUERY_STRING'});
-if (($FORM{'clid'} eq '') || ($FORM{'clid'} eq 'sacc') || ($FORM{'clid'} eq 'std')) {
+my %FORM = $cgi->Vars;
-        open(VSTLOG,"<$stdvisitorlog") or $msg="not found";                          
-        if ($msg eq "not found") {                                                   
-                $makeok = &make_file($stdvisitorlog, $defaultvisitlog, 1);           
-                $msg = ($makeok == 1) ? "" : "failed";                               
-                open(VSTLOG,"<$stdvisitorlog") or $msg="not found";                  
-        }                                                                            
-        if ($msg eq '') {                                                            
-                @visits = <VSTLOG>;                                                  
-                close VSTLOG;                                                        
-        }                                                                            
-        $litmplt = "shome";                                               
-} else {                                                                  
-        open(VSTLOG,"<$clidvisitorlog") or $msg="not found";              
-        if ($msg eq "not found") {                                 
-                $makeok = &make_file($clidvisitorlog, $stdvisitorlog, 1);
-                $msg = ($makeok == 1) ? "" : "failed";                   
-                open(VSTLOG,"<$clidvisitorlog") or $msg="not found";     
-        }                                                                
-        if ($msg eq '') {                                                
-                @visits = <VSTLOG>;                                      
-                close VSTLOG;                                            
-        }                                                                
-        $litmplt = "cindex";                                             
-        $SESSION{'clid'} = $FORM{'clid'};                                
-        &get_client_profile($FORM{'clid'});                              
-}                                                                   
 
-if ($FORM{'lang'} eq '') {                                                           
+my $session_id = $FORM{'tid'};
-        $lastvisit = -1;                                                             
+
-        for (1 .. $#visits) {                                                        
+my $s_id = "sess.$session_id";
-                @entries = split(/&/, $visits[$_]);                                  
+my $directory = join($pathsep, $logroot);
-                if ($entries[1] eq $ENV{'REMOTE_ADDR'}) {                            
+my $trash = join($pathsep, $directory, $s_id);
-                        $lastvisit = $_;                                             
+
-                }                                                                    
+if (-d $directory) {
-        }                                                                            
+    print "Directory '$directory' exists.\n";
-        if ($lastvisit == -1) {                                                      
+
-                @languages=split(/\,/,$ENV{'HTTP_ACCEPT_LANGUAGE'});                 
+    # Check if the directory is readable
-                if ($languages[0] eq 'en') {$languages[0]="enu";}                    
+    if (-r $directory) {
-                if ($languages[0] eq 'en-us') {$languages[0]="enu";}                 
+        print "Directory '$directory' is readable.\n";
-                if ($languages[0] eq 'ar') {$languages[0]="arb";}                    
-                if ($LANGUAGE_ID{$languages[0]} ne '') {                             
-                        $FORM{'lang'} = $languages[0];                               
-                }                                                         
     } else {
-                @visitdata = split(/&/, $visits[$lastvisit]);             
+        print "Directory '$directory' is not readable.\n";
-                $idx = $#visitdata - 1;                                  
-                $FORM{'lang'} = $visitdata[$idx];                        
-                @visitdata = ();                                         
     }
-}               
 
-@visits = ();                                                                        
+    # Check if the directory is writable
-                                                           
+    if (-w $directory) {
-&LanguageSupportInit();           
+        print "Directory '$directory' is writable.\n";
-                                                                          
+    } else {
-$visitrec = join('&',$today,$ENV{'REMOTE_ADDR'},$ENV{'REMOTE_PORT'},$ENV{'HTTP_ACCEPT_LANGUAGE'},$ENV{'HTTP_USER_AGENT'},$SESSION{'lang'},"");
+        print "Directory '$directory' is not writable.\n";
-if (($FORM{'clid'} eq '') || ($FORM{'clid'} eq 'sacc') || ($FORM{'clid'} eq 'std')) {
+    }
-        open(VSTLOG,">>$stdvisitorlog");
 } else {
-        open(VSTLOG,">>$clidvisitorlog");
+    print "Directory '$directory' does not exist.\n";
 }
-print VSTLOG "$visitrec\n";
-close VSTLOG;              
-print "$litmplt\n";
-print "--------------------------------------------------------------------------\n";
-$SESSION{'browserapp'} = ($ENV{'HTTP_USER_AGENT'} =~ /MSIE/ ) ? "MSIE" : "NSNV";
-&traceoutput("visitor.pl:$litmplt");    # TRACE IF ACTIVE
-&show_template($litmplt);                                         
-print "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n";
 
-print "Content-type: text/html\n\n";
+# eval {
-print "<html><body><h1>Test CGI Script</h1></body></html>\n\n";
+#     open (my $SESSFILE, '>', $trash) or die "Could not open file '$trash': $!";
-print "\n\n";
+#     print $SESSFILE "This is a test.\n";
-print "$docroot\n";
+#     close($SESSFILE) or die "Could not close file '$trash': $!";
-print "$secroot\n";
+# };
-print $resptmplt;
+
-print "\n\n";
+# if ($@) {
+#     print $@
+# }
+
+#while (my ($key, $value) = each %FORM) {
+#    print "$key: $value\n";
+#}

survey-nginx/fcgiwrap

@@ -2,8 +2,13 @@
 
 name="fcgiwrap"
 description="Simple server for running CGI applications over FastCGI"
-
 command="/usr/bin/spawn-fcgi"
-command_args="-s /var/run/fcgiwrap.socket -u nobody -g nogroup -P /var/run/fcgiwrap.pid /usr/bin/fcgiwrap > /var/log/fcgiwrap.log 2>&1"
+command_user="nginx:nginx"
+command_args="-s /var/run/fcgiwrap.socket -u nginx -g nginx -P /var/run/fcgiwrap.pid /usr/bin/fcgiwrap > /var/log/fcgiwrap.log 2>&1"
 
 pidfile="/var/run/fcgiwrap.pid"
+
+depend() {
+    use net
+    after nginx
+}