#!/usr/local/bin/perl read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); $i = 0; foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); # print $name, " = ", $value , "\n"; $Parm[$i] = $value; $i++; #print $Parm[$i], " : " ,$name, "\n"; if ( $value == "0" ){ print "ERROR -- \n\n"; print "Select proper Value for ", $name, " other than 0.\n\n"; print "Please go back to previous page by pressing 'Back' button on your browser.\n\n"; exit; } } print "\n\n"; # for ($i = 0; $i =<4; $i++){ # print $Parm[$i], "\n"; # } # print "Urgency = ", $Parm[0], "\n"; # print "Complexity = ", $Parm[1], "\n"; # print "Importance = ", $Parm[2], "\n"; # print "Skill = ", $Parm[3], "\n"; # print "Frequency = ", $Parm[4], "\n"; # print "\n\n"; $R = int( 1000 * 0.7 * ( $Parm[0] + $Parm[1] + $Parm[2] )*( 10 - $Parm[3] ) / (20 * ( 1 - sin( $Parm[4] / 10 )))); $R = $R / 1000; # print "Content-Type: text/html\n\n"; # Content-Type: text/html print < Sod's Law Risk Factor by nNEZOU
Sod's Law Risk Factor


Urgency
Complexity
Importance
Skill
Frequency
=
=
=
=
=
 $Parm[0]
$Parm[1]
$Parm[2]
$Parm[3]
$Parm[4]


  Risk Factor = $R
 

END_HTML exit;