swigweb/cgi-bin/surveyresponse.pl - third_party/swig - Git at Google

 #!/usr/bin/perl

 # This is a CGI script which takes the input from the simple survey submitted in
 # survey.html. The user's intended languages and operating systems are stored in
 # simple comma separated value files.

 use CGI;
 $q = new CGI;

 # Start the response web page
 print "Content-type:text/html\n\n";
 print <<EndHTML;
 <html><head><title>SWIG Survey Submission</title></head>
 <body>
 <p/>
 <table> <tr>
 <td bgcolor="#000000" align=center><font color="#ffffff"><b>SWIG Survey Submission</b></font></td>
 </tr> </table>

 EndHTML


 # Extract all the variables out of the response
 $remoteHost = $ENV{'REMOTE_HOST'};
 $remoteAddr = $ENV{'REMOTE_ADDR'};
 $ipAddress = ($remoteHost == '') ? $remoteAddr : $remoteHost;

 $langChicken    = $q->param('langChicken');
 $langCSharp     = $q->param('langCSharp');
 $langGuile      = $q->param('langGuile');
 $langJava       = $q->param('langJava');
 $langMzscheme   = $q->param('langMzscheme');
 $langOcaml      = $q->param('langOcaml');
 $langPerl       = $q->param('langPerl');
 $langPhp        = $q->param('langPhp');
 $langPike       = $q->param('langPike');
 $langPython     = $q->param('langPython');
 $langRuby       = $q->param('langRuby');
 $langSexp       = $q->param('langSexp');
 $langTcl        = $q->param('langTcl');
 $langXml        = $q->param('langXml');
 $langSpareLang1 = $q->param('langSpareLang1');
 $langSpareLang2 = $q->param('langSpareLang2');
 $langSpareLang3 = $q->param('langSpareLang3');
 $langOtherLang  = $q->param('langOtherLang');

 $namedLanguage  = $q->param('namedLanguage');

 $osBSD          = $q->param('osBSD');
 $osHPUX         = $q->param('osHPUX');
 $osLinux        = $q->param('osLinux');
 $osMacOSX       = $q->param('osMacOSX');
 $osSolaris      = $q->param('osSolaris');
 $osWindows      = $q->param('osWindows');
 $osOtherOS      = $q->param('osOtherOS');

 $namedOS        = $q->param('namedOS');

 # Get log date
 ($seconds, $minutes, $hours, $day_of_month, $month, $year, $wday, $yday, $isdst) = gmtime;
 $logDate = sprintf("%04d/%02d/%02d %02d:%02d", $year+1900, $month+1, $day_of_month, $hours, $minutes);

 # Create new file each month
 $fileName = sprintf("../survey/swigsurvey-%04d-%02d.csv", $year+1900, $month+1);

 if (!-e $fileName) {
     create_file($fileName);
 }

 # Open file for appending and lock it to prevent concurrent access
 open(fileOUT, ">>$fileName") or construct_thankyou_page_and_exit(); # We can't log the info if we can't open the file, quietly give up.
 flock(fileOUT, 2);
 seek(fileOUT, 0, 2);

 # Dump all the surveyed data to file in comma separated value (CSV) format
 print fileOUT "$logDate,$ipAddress,";
 print fileOUT "$langChicken,$langCSharp,$langGuile,$langJava,$langMzscheme,$langOcaml,$langPerl,$langPhp,$langPike,$langPython,$langRuby,$langSexp,$langTcl,$langXml,$langSpareLang1,$langSpareLang2,$langSpareLang3,$langOtherLang,$namedLanguage,";
 print fileOUT "$osBSD,$osHPUX,$osLinux,$osMacOSX,$osSolaris,$osWindows,$osSpareOS1,$osSpareOS2,$osSpareOS3,$osOtherOS,$namedOS";
 print fileOUT "\n";
 close(fileOUT);

 # Create html page response
 construct_thankyou_page_and_exit();

 sub create_file($)
 {
     my($fileToCreate) = @_;

     open(fileOUT, ">$fileToCreate") or construct_thankyou_page_and_exit(); # We can't log the info if we can't create the file, quietly give up.

     # Generate field heading names
     print fileOUT "LogDate,IPAddress,";
     print fileOUT "Chicken,CSharp,Guile,Java,Mzscheme,Ocaml,Perl,Php,Pike,Python,Ruby,Sexp,Tcl,Xml,SpareLang1,SpareLang2,SpareLang3,OtherLang,NamedLanguage,";
     print fileOUT "BSD,HPUX,Linux,MacOSX,Solaris,Windows,SpareOS1,SpareOS2,SpareOS3,OtherOS,NamedOS";
     print fileOUT "\n";
 }

 sub construct_thankyou_page_and_exit
 {
     print <<EndHTML;

     Thank you for taking the time to fill out the survey. Please continue to the
     <a href="../download.html">Download area</a> or return to the <a href="../index.html">SWIG home</a> page.
     </body></html>

 EndHTML
     exit;
 }
	#!/usr/bin/perl

	# This is a CGI script which takes the input from the simple survey submitted in
	# survey.html. The user's intended languages and operating systems are stored in
	# simple comma separated value files.

	use CGI;
	$q = new CGI;

	# Start the response web page
	print "Content-type:text/html\n\n";
	print <<EndHTML;
	<html><head><title>SWIG Survey Submission</title></head>
	<body>
	<p/>
	<table> <tr>
	<td bgcolor="#000000" align=center><font color="#ffffff"><b>SWIG Survey Submission</b></font></td>
	</tr> </table>

	EndHTML


	# Extract all the variables out of the response
	$remoteHost = $ENV{'REMOTE_HOST'};
	$remoteAddr = $ENV{'REMOTE_ADDR'};
	$ipAddress = ($remoteHost == '') ? $remoteAddr : $remoteHost;

	$langChicken = $q->param('langChicken');
	$langCSharp = $q->param('langCSharp');
	$langGuile = $q->param('langGuile');
	$langJava = $q->param('langJava');
	$langMzscheme = $q->param('langMzscheme');
	$langOcaml = $q->param('langOcaml');
	$langPerl = $q->param('langPerl');
	$langPhp = $q->param('langPhp');
	$langPike = $q->param('langPike');
	$langPython = $q->param('langPython');
	$langRuby = $q->param('langRuby');
	$langSexp = $q->param('langSexp');
	$langTcl = $q->param('langTcl');
	$langXml = $q->param('langXml');
	$langSpareLang1 = $q->param('langSpareLang1');
	$langSpareLang2 = $q->param('langSpareLang2');
	$langSpareLang3 = $q->param('langSpareLang3');
	$langOtherLang = $q->param('langOtherLang');

	$namedLanguage = $q->param('namedLanguage');

	$osBSD = $q->param('osBSD');
	$osHPUX = $q->param('osHPUX');
	$osLinux = $q->param('osLinux');
	$osMacOSX = $q->param('osMacOSX');
	$osSolaris = $q->param('osSolaris');
	$osWindows = $q->param('osWindows');
	$osOtherOS = $q->param('osOtherOS');

	$namedOS = $q->param('namedOS');

	# Get log date
	($seconds, $minutes, $hours, $day_of_month, $month, $year, $wday, $yday, $isdst) = gmtime;
	$logDate = sprintf("%04d/%02d/%02d %02d:%02d", $year+1900, $month+1, $day_of_month, $hours, $minutes);

	# Create new file each month
	$fileName = sprintf("../survey/swigsurvey-%04d-%02d.csv", $year+1900, $month+1);

	if (!-e $fileName) {
	create_file($fileName);
	}

	# Open file for appending and lock it to prevent concurrent access
	open(fileOUT, ">>$fileName") or construct_thankyou_page_and_exit(); # We can't log the info if we can't open the file, quietly give up.
	flock(fileOUT, 2);
	seek(fileOUT, 0, 2);

	# Dump all the surveyed data to file in comma separated value (CSV) format
	print fileOUT "$logDate,$ipAddress,";
	print fileOUT "$langChicken,$langCSharp,$langGuile,$langJava,$langMzscheme,$langOcaml,$langPerl,$langPhp,$langPike,$langPython,$langRuby,$langSexp,$langTcl,$langXml,$langSpareLang1,$langSpareLang2,$langSpareLang3,$langOtherLang,$namedLanguage,";
	print fileOUT "$osBSD,$osHPUX,$osLinux,$osMacOSX,$osSolaris,$osWindows,$osSpareOS1,$osSpareOS2,$osSpareOS3,$osOtherOS,$namedOS";
	print fileOUT "\n";
	close(fileOUT);

	# Create html page response
	construct_thankyou_page_and_exit();

	sub create_file($)
	{
	my($fileToCreate) = @_;

	open(fileOUT, ">$fileToCreate") or construct_thankyou_page_and_exit(); # We can't log the info if we can't create the file, quietly give up.

	# Generate field heading names
	print fileOUT "LogDate,IPAddress,";
	print fileOUT "Chicken,CSharp,Guile,Java,Mzscheme,Ocaml,Perl,Php,Pike,Python,Ruby,Sexp,Tcl,Xml,SpareLang1,SpareLang2,SpareLang3,OtherLang,NamedLanguage,";
	print fileOUT "BSD,HPUX,Linux,MacOSX,Solaris,Windows,SpareOS1,SpareOS2,SpareOS3,OtherOS,NamedOS";
	print fileOUT "\n";
	}

	sub construct_thankyou_page_and_exit
	{
	print <<EndHTML;

	Thank you for taking the time to fill out the survey. Please continue to the
	<a href="../download.html">Download area</a> or return to the <a href="../index.html">SWIG home</a> page.
	</body></html>

	EndHTML
	exit;
	}