dae03a75e3
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5194 626c5289-ae23-0410-ae9c-e8d60b6d4f22
115 lines
3.8 KiB
Perl
115 lines
3.8 KiB
Perl
#!/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;
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|