Das Script


blauer Text ist nur im Abstimm-Script enthalten.
#!/usr/bin/perl if($ENV{'REQUEST_METHOD'} eq 'GET') { $Daten = $ENV{'QUERY_STRING'} } else { read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'}); } @Formularfelder = split(/&/, $Daten); foreach $Feld (@Formularfelder) { ($name, $value) = split(/=/, $Feld); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s/<!--(.|\n)*-->//g; $Formular[$i] = $name; $i = $i + 1; $Formular[$i] = $value; $i = $i + 1; } open(NAMEN, "<namen.txt") || die; while(<NAMEN>) { push(@names,$_); } close(NAMEN); open(NAMENVOLL, "<namen_voll.txt") || die; while(<NAMENVOLL>) { push(@voll,$_); } close(NAMENVOLL); open(WERTE, "<anzahl.txt") || die; while(<WERTE>) { push(@wert,$_); } close(WERTE); $gesamt=0; for($i=0; $i<=$#wert; $i++) { if($names[$i] =~ $Formular[1]) { $wert[$i]++; $aktuell=$i; } $gesamt=$gesamt+$wert[$i]; } open(WERTS, ">anzahl.txt"); for($i=0; $i<=$#wert; $i++) { if($i==$aktuell) { print WERTS "$wert[$i]\n"; } else { print WERTS "$wert[$i]"; } } close(WERTS); $rund=0; $top=0; for($i=0;$i<=$#wert;$i++) { if($gesamt!=0) { $pro[$i]=int(($wert[$i]/$gesamt)*100); } else { $pro[$i]=0; } if($pro[$i]>$pro[$top]) { $top=$i; } $rund=$rund+$pro[$i]; } if(($rund!=100)&&($rund!=0)) { $pro[$top]=$pro[$top]+(100-$rund); } $Mailprogramm = "/usr/sbin/sendmail"; $MailSubject = "Abstimmung: Wer wird deutscher Fußballmeister?"; $Empfaenger = "umfrage\@nils-heuermann.de"; $SenderName = $Formular[3]; $SenderMail = $Formular[5]; open(MAIL,"|$Mailprogramm -t") || die; print MAIL "To: $Empfaenger\n"; print MAIL "From: $SenderMail($SenderName)\n"; print MAIL "Subject: $MailSubject\n"; $i = 0; $max = $#Formular; for($i=0;$i<=$max;$i=$i+2) { print MAIL "\n$Formular[$i]: $Formular[$i+1]"; } print MAIL "\n\nErgebnisse:"; for($i=0;$i<=$#pro;$i++) { print MAIL "\n$names[$i] $pro[$i]%"; } close(MAIL); #Ausgabe an Browser print "Content-type: text/html\n\n"; print <<html_ende; <HEAD> <TITLE>Umfrage: Wer wird deutscher Fu&szlig;ballmeister</TITLE> </HEAD> <BODY BGCOLOR="#fedcba" TEXT="#000000" LINK="#808080" VLINK="#c0c0c0" ALINK="#c0c0c0"> <H1><CENTER><B>Umfrage: Wer wird deutscher Fu&szlig;ballmeister</B></H1> <HR noshade></CENTER> <TABLE ALIGN=CENTER BORDER=1 CELLSPACING=3> <TR ALIGN=CENTER VALIGN=MIDDLE> <TD>Team</TD> <TD>Stimmen in Prozent</TD> <TD>Stimm-Anzahl</TD> </TR> html_ende for($i=0; $i<=$#wert; $i++) { if($i==$top) { print "\n<TR ALIGN=RIGHT VALIGN=TOP>\n"; print " <TD ALIGN=LEFT><FONT SIZE=4><B>",$voll[$i],"</B></FONT></TD>\n"; print " <TD><FONT SIZE=4><B>",$pro[$i]," %</B></FONT></TD>\n"; print " <TD><FONT SIZE=4><B>",$wert[$i],"</B></FONT></TD>\n</TR>\n"; } else { print "\n<TR ALIGN=RIGHT VALIGN=TOP>\n"; print " <TD ALIGN=LEFT>",$voll[$i],"</TD>\n"; print " <TD>",$pro[$i]," %</TD>\n"; print " <TD>",$wert[$i],"</TD>\n</TR>\n"; } } print "<TR><TD COLSPAN=3></TD></TR>\n"; print "<TR ALIGN=RIGHT>\n"; print " <TD></TD>\n"; print " <TD>100%</TD>\n"; print " <TD>",$gesamt,"</TD>\n</TR>\n"; print <<html_ende; </TABLE> <HR noshade> <CENTER><A HREF="../umfrage.htm" onClick="history.back()"> <FONT SIZE=5>&lt;&lt; Zur&uuml;ck</FONT></A></CENTER> <HR noshade> <FONT SIZE=2>&copy;opyrights: <A HREF="mailto:webdesign\@nils-heuermann.de">Nils Heuermann</A> &amp; <A HREF="mailto:dyck2000\@gmx.de">Stefan Dyck</A> 2000 <BR>Umfrage gestartet am: 26.11.2000</A></FONT> </BODY> </HTML> html_ende
<< Inhalt >>


©opyrights @ Nils Heuermann & Stefan Dyck 2000