#!/usr/bin/perl read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); $buffer =~ s/\+/\ /g; @pari = split(/&/, $buffer); foreach $par (@pari) { ($name, $value) = split(/=/, $par); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s/\|/\&\#124\;/g; $value =~ s/\'/\&\#39\;/g; $value =~ s/\ / \&\#160\;/g; $FORM{$name} = $value;} if ($ENV{'QUERY_STRING'} ne "") { $buffer = "$ENV{'QUERY_STRING'}"; @pari = split(/&/, $buffer); foreach $par (@pari) {($name, $value) = split(/=/, $par); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s/\|/\&\#124\;/g; $value =~ s/\'/\&\#39\;/g; $value =~ s/\ / \&\#160\;/g; $FORM{$name} = $value;}} ############# print "Content-type: text/html\n\n Koliko potencialnih strank potrebujete naslednji mesec? "; if ($FORM{tx1} eq "") {$FORM{tx1} = "Od vseh interesentov je preverjeno primernih:";} if ($FORM{tx2} eq "") {$FORM{tx2} = "Od tega je dogovorjenih srečanj:";} if ($FORM{tx3} eq "") {$FORM{tx3} = "Od vseh teh jih prizna problem:";} if ($FORM{tx4} eq "") {$FORM{tx4} = "Od teh prejmejo ponudbo:";} if ($FORM{tx5} eq "") {$FORM{tx5} = "Od teh jih kupi:";} if ($FORM{intr} eq "") {$FORM{intr} = 1000;} if ($FORM{u1} eq "") {$FORM{u1} = 70;} if ($FORM{u2} eq "") {$FORM{u2} = 50;} if ($FORM{u3} eq "") {$FORM{u3} = 40;} if ($FORM{u4} eq "") {$FORM{u4} = 80;} if ($FORM{u5} eq "") {$FORM{u5} = 50;} if ($FORM{str} eq "") {$FORM{str} = 10;} if ($FORM{t1} eq "") {$FORM{t1} = 2;} if ($FORM{t2} eq "") {$FORM{t2} = 1;} if ($FORM{t3} eq "") {$FORM{t3} = 2;} if ($FORM{t4} eq "") {$FORM{t4} = 1;} if ($FORM{t5} eq "") {$FORM{t5} = 4;} $i1 = ($FORM{intr} / 100) * $FORM{u1}; $i2 = ($i1 / 100) * $FORM{u2}; $i3 = ($i2 / 100) * $FORM{u3}; $i4 = ($i3 / 100) * $FORM{u4}; $i5 = ($i4 / 100) * $FORM{u5}; $tednov = $FORM{t1} + $FORM{t2} + $FORM{t3} + $FORM{t4} + $FORM{t5}; $proc = 100 - (($i5/$FORM{intr}) * 100); ($proc, $d) = split(/\./, $proc); $s4 = ($FORM{str} / $FORM{u5}) * 100; $s3 = ($s4 / $FORM{u4}) * 100; $s2 = ($s3 / $FORM{u3}) * 100; $s1 = ($s2 / $FORM{u2}) * 100; $s = ($s1 / $FORM{u1}) * 100; ($i1, $d) = split(/\./, $i1); ($i2, $d) = split(/\./, $i2); ($i3, $d) = split(/\./, $i3); ($i4, $d) = split(/\./, $i4); ($i5, $d) = split(/\./, $i5); ($s4, $d) = split(/\./, $s4); ($s3, $d) = split(/\./, $s3); ($s2, $d) = split(/\./, $s2); ($s1, $d) = split(/\./, $s1); ($s, $d) = split(/\./, $s); print "
$s
$i1 $s1
$i2 $s2
$i3 $s3
$i4 $s4
$i5
Prodajni proces bo trajal $tednov tednov.
V tem času bo odpadlo $proc% interesentov.
Iz $FORM{intr} interesentov boste pridobili $i5 kupcev.
Za $FORM{str} kupcev boste potrebovali $s interesentov.
";