The scripts below were written by William Schmidt to 
support use of factorWiz and surveyWiz for Mac.

PERL script for coding and saving data to Mac OS X

How to use: 1. Perl is already installed in Mac OS X. 2. You may want or need to edit the script by replacing: (i) URL to redirect users after accepting data in line 2 (optional--this is the URL of the "thank you" message) (ii) the path to the directory where your data files are to be stored in line 3; note the trailing slash after the directory name. Be sure to adjust Step 3 accordingly. (iii) If OS X changes how Perl is configured in the distribution, you might need to change the first line to specify the path to Perl. 3. Create a folder on your Hard Drive named "DataFiles". Select this file, and choose "Get Info" by clicking the Apple Key and letter "i" at the same time. Click the pop down list and select "privileges". Set the first two to "Read and Write" and set the third to "Write Only". That is "drop box". (You must be an administrator on your computer to do this.) 4. Save the script as This MUST be saved as a Unix Text file ONLY. You can use BBEdit Lite to do this. 5. Place your script in the following directory. Start on The Macintosh Hard Drive, and open the folder "Library". Now Open "WebServer". Next open "CGI-Executables" and put the file, in this folder. 6. Now you need to open the Terminal. Open the "Applications" Folder and look in the "Utilities" Folder. Double click the Terminal and a window will open. This is an old-fashioned computer device and you must enter commands one at a time, and be very careful that everything is exactly right before you hit the return key. 7. At the terminal prompt, type the following command: chmod ugo+rwx /Library/WebServer/CGI-Executables/ Before you hit return, check that everything, including spaces and capitalization as well as spelling is exactly right. There is a space after chmod, and there is a space after rwx. When everything is correct, hit return. Nothing particular happens and a new prompt appears. You should now be able to access this script from the Web browser. 8. You can now test the script by typing the following URL in your Web browser: http://localhost/cgi-bin/ You should be redirected to the file on the Web specified by line two of the script. 9. Next, find the <FORM> tag in the HTML file you made with SurveyWiz or FactorWiz. This reads as follows: <FORM METHOD='post' ACTION=''> Change it to the following: <FORM METHOD='post' ACTION='http://localhost/cgi-bin/'> 10. Save your HTML files, including the one you made in No. 10 in the following folder on your Mac. Open Library, Open WebServer, and put your HTML documents in the folder named "Documents". To see your Web file, type the following URL in the browser: http://localhost/filename.htm (You can also put your HTML files in the following folder: Open the Macintosh Hard Drive, Open Users, Select your Username, and open the "Sites" folder. You can put your HTML files here. To see your Web file, named filename.htm with this method, type the following URL in your browser: http://localhost/~username/filename.htm 11. Fill out the survey and click the submit button. You should be forwarded to the "thank you" page, and a file will appear in the directory DataFiles containing your data, named,, where shortName is the name you typed for the shortName in surveyWiz or FactorWiz. 12. From another computer, a person would need to know your IP address or your URL name to reach your files. If you can acquire a fixed IP from your campus network, you can be assigned a domain name. To Contact William Schmidt: William C. Schmidt Dept. of Psychology Park Hall SUNY at Buffalo Buffalo, NY Warning: Open the text version and save it as "," as a UNIX TEXT FILE. Text File of save_data.txt ---------------------------PERL script below #!/usr/bin/perl $redirect_to = ""; $path_to_datafile = "/DataFiles/"; use CGI; $query = new CGI; #timestamp the submission ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $mon++; #determine the data filename, open and dump data $filename = $query->param('00exp'); open(INFO, ">>$path_to_datafile/$"); foreach $key (sort($query->param)) { $value = $query->param($key); #filter out "'s and ,'s $value =~ s/\"/\'/g; $value =~ s/,/ /g; if ($value !~ /^pf/) { print INFO "\"$value\", "; } else { # filter out items that need to be expanded at submission time pf* if ($value =~ /^pfDate/) { print INFO "\"$mon/$mday/$year\", "; } if ($value =~ /^pfTime/) { print INFO "\"$hour:$min:$sec\", "; } if ($value =~ /^pfRemote/) { print INFO "\"",$query->remote_addr(),"\", "; } if ($value =~ /^pfReferer/) { print INFO "\"",$query->referer(),"\", "; } } #print "$key:$value"; } print INFO "\"complete\"\n"; close (INFO); print $query->redirect($redirect_to); exit(); ------------------------------------------------end of script

back to handbook chapter links