Thank you for investigating my change management survey. The survey is now complete. The results have been incorporated in the document linked to my web page on Implementing Software Engineering methddologies. The survey results and related research are availble at: Material related to Change Management and Implementation
The perl code used to conduct the survey is contained below. We've modified the code to eliminate most of the questions so the reader is able to understand its mechanics more easily. If you want to re-use parts of this code, swipe it from this page rather than using the view html since I've added formatting codes to the html source to make it more readible.
#!/usr/local/bin/perl
use CGI qw(:standard);
$query = new CGI;
open (writefile, '>> file.out') || die "cannot open: file.out";
print header;
print <<"EOF"; The purpose of this survey is to try to identify the factors that increase the changes of success when introducing a defined process or methodology. EOF
print start_html(' ','Change Management Survey'), h1('Change Management Survey'), start_form,
"Environment prior to methodology rollout", p,
...
"2. In the prior environment, what was the development approach?", popup_menu(-name=>'prior_methodology: ', -values=>[' ','There was no formally defined methodology in place prior to the target methodology','The target methodology was a replacement for an older single methodology','The target methodology replaced several other methodologies']), p,
...
"3. In the prior environment, did the organization keep a database of project metrics? ", popup_menu(-name=>'metrics_db: ', -values=>[' ','Yes', 'No']), p,
...
"8. Which would best describe your programming environment? "," ", checkbox_group(-name=>'processing_environ: ', -values=>['Mainframe','UNIX Workstations','PC (Client Server or Desktop App)', 'Thin Clients (Browser Based)', 'Other'], -multiple=>5), p,
...
"24. Please enter your unique id if we provided you with one or make up some other id that we can use to tie your responses together ", textfield(-name=>'Id: ', -default=>'Any unique identifier for you'), p,
submit,
end_form,
hr;
pause;
$mail_body = '';
foreach $field (sort ($query->param)) { foreach $value ($query->param($field)) { $mail_body .= "$field $value\t"; } }
print $mail_body;
print writefile $mail_body;
print writefile "\n";
close writefile;
print end_html;
