#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my $cgi = new CGI;

print $cgi->header(-type =>'text/html');
print $cgi->start_html(- title =>'Vielen Dank',
-BGCOLOR =>'#000000'
-TEXT =>'#00FF00');
print $cgi->body;

my $ip = $ENV{'REMOTE_ADDR'};
my $ipdatei = "$ENV{'DOCUMENT_ROOT'}/ip.txt";
my ($abort,$line);
open (FILE, "$ipdatei") or die "Kann die IP-Datei nicht öffnen";
my @Zeilen = <FILE>;
close (FILE);

foreach $line (@Zeilen) {
chomp $line;

if ($line eq $ip) {
print "<br><br><br>Entweder du hast schon gevotet oder bist gesperrt.<br>\n";
$abort='yes';
last;
}     
}

if ($abort ne 'yes') {
open (FILE, ">$ipdatei" ) or die 'Kann nicht in die IP-Datei schreiben';
print FILE $ip."\n";
close (FILE);
print "<br><br><br>Der Vote wurde registriert.<br>\n";

# bis zu diesem kommentar funktionierte alles und tuts auch noch. 
#aber wie gesagt, es muss je umfrage die zahlen geändert werden müssen, und ab hier ist das dann alles, was damit zu tun hat.
#'vote' ist eine Radiobutton-Gruppe und wird per Post übergeben.

my $vote;
$vote = $cgi->param('vote');
open ( Datei, ">$ENV{'DOCUMENT_ROOT'}/$vote.txt" );
my @Zahl = <Datei>;
@Zahl = @Zahl + 1;
print Datei @Zahl;
close ( Datei );
}

print "Vielen Dank<br><br>\n";
open ( Datei, ">$ENV{'DOCUMENT_ROOT'}/auswahl1.txt" );
my @eins = <Datei>;
close ( Datei );
open ( Datei, ">$ENV{'DOCUMENT_ROOT'}/auswahl2.txt" );
my @zwei = <Datei>;
close ( Datei );
open ( Datei, ">$ENV{'DOCUMENT_ROOT'}/auswahl3.txt" );
my @drei = <Datei>;
close ( Datei );
open ( Datei, ">$ENV{'DOCUMENT_ROOT'}/auswahl4.txt" );
my @vier = <Datei>;
close ( Datei );
open ( Datei, ">$ENV{'DOCUMENT_ROOT'}/auswahl5.txt" );
my @fuenf = <Datei>;
close ( Datei );

my $gesamt = @eins+@zwei+@drei+@vier+@fuenf;
print $gesamt;
my $einser = @eins / $gesamt*100;
my $zweier = @zwei / $gesamt*100;
my $dreier = @drei / $gesamt*100;
my $vierer = @vier / $gesamt*100;
my $fuenfer = @fuenf / $gesamt*100;

print "Es wurde folgendermaßen gevotet:<br><br>\n",
     "".$einser." \% für Auswahl 1<br>\n",
     "".$zweier." \% für Auswahl 2<br>\n",
     "".$dreier." \% für Auswahl 3<br>\n",
     "".$vierer." \% für Auswahl 4<br>\n",
     "".$fuenfer." \% für Auswahl 5<br>\n",
$cgi->end_html;

#!/usr/bin/perl

use warnings;
use strict;

my $string = "havi";

if ($string eq "havi") {
   print "Hallo\n";
} # if

1;