#! /usr/bin/perl use strict; use warnings; use CGI; use CGI::Carp qw(fatalsToBrowser); my $cgi = new CGI; my $ip; my $ipdatei; my $vote; my @Zeilen; $ip = $ENV{'REMOTE_ADDR'}; $ipdatei = "/homepages/18/d23090695/htdocs/ip.txt"; open ( Datei, "<$ipdatei" ); @Zeilen = ; close ( Datei ); foreach my $Zeile (@Zeilen) { chomp $Zeile; if ( $Zeile =~ /^$ip/ ) { print "Content type: text/html\n\n"; print "\n\nFehler\n\n\n"; print "


Du hast schon gevotet oder bist gesperrt!
\n"; print "Klicke hier um die Ergebnisse anzuzeigen\n"; print "\n"; exit; } else { open ( Datei, ">>$ipdatei" ); print Datei "\n$ip"; close ( Datei ); print "Content type: text/html\n\n"; print "\n\nVielen Dank\n\n\n"; print "


Der Vote wurde registriert.
\n"; print "Vielen Dank\n"; print "\n"; } }