#!/usr/bin/perl

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

print $cgi->header;
print $cgi->start_html('Vielen Dank');

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

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

	if ($line eq $ip) {
		print "<br><br><br>Der Vote wurde bereits registriert.<br>\n";
		$abort='yes';
		last;
	}     
}

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

print "Vielen Dank\n";
print $cgi->end_html;