if (defined($cgi->param('parse'))) {
	@lines = split(/\n/, $cgi->param('pasted'));
	my $line;
	$text .= "<table border>\n";
	$text .=  "<tr><td colspan=4>Update <small>(wenn leer, ging was schief!)</small></td></tr>\n";
	$text .=  "<tr><td>Platz</td><td>Spieler</td><td>Ally</td><td>Punkte</td></tr>\n";
	my $i = 0;
	my $cnt = 0;
	foreach $line (reverse @lines) {
		#3   + 	PG Power	   	kaffee	178392	
		#4   – 	sand	   	kaffee	176800	
		#5   * 	Done it Duncan	   	XCT	159366	
		next unless ($line =~ /[^\s]/);
		my @valuez = split(/\t/, $line);
		next unless(defined($valuez[4]));
		foreach (@valuez) {
			s/^\s*//;
			s/\s*$//;
		}
		$valuez[0] =~ /^(\d+)/;
		$valuez[0] = $1;
		$valuez[4] =~ s/[^\d]//g;
		next unless (defined(($valuez[0])));
		next if ($valuez[4] eq "");
		next if ($valuez[4] =~ /[^\d]/);
		if ($i == 0) {
			$sth = $dbh->prepare("select platz from $uni{'name'}_ogame_players order by platz desc limit 1;");
			$sth->execute();
			my $last = $sth->fetchrow_array;
			for ($i = $last + 1; $i <= $valuez[0]; $i++) {
				$sth = $dbh->do("insert into $uni{'name'}_ogame_players set platz='$i';");
				$cnt++;
			}
			$i = 1;
		}
		if (($valuez[0] =~ /(\d+)/) && ($valuez[1] ne "")){
			$sth = $dbh->do("update $uni{'name'}_ogame_players set ally='$valuez[3]', punkte='$valuez[4]', name='$valuez[1]', date=NOW() where platz='$1';");
			$cnt++;
			$text .=  "<tr><td>$1</td><td>$valuez[1]</td><td>";
			if ($valuez[3] ne "") {
				$text .=  $valuez[3];
			} else {
				$text .=  "&nbsp;";
			}
			$text .=  "</td><td>$valuez[4]</td></tr>\n";
		} else {
			$text .=  "<!--tr><td colspan=4>Diese Zeile wird ignoriert: $line</td></tr-->\n";
		}
	}
	$text .=  "</table>\n$cnt Zeilen wurden verwendet";
}