#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use IO::File;

my $u = CGI->new;

if($u->param){
	if($u->param('vote')){
		# Datei serverseitig einlesen
		my $fh = IO::File->new;
		$fh->open("$ENV{DOCUMENT_ROOT}/robots.txt", "r") or do{
			print $u->header, $u->h1("Fehler beim Lesen der Datei: $!");
			exit;
		};
		read($fh, my $in, -s $fh);
		$fh->close;
		# die entsprechenden Header und die Datei zum Download
		print "Content-Disposition: attachment; filename=robots.txt\n";
		print "Content-type: text/plain\n\n";
		print $in;
		# weitere Aktionen: Kommentar serverseitig speichern... u.a....
	}
	else{
		print $u->header, $u->h1("Unbekannter Parameter");
	}
}
else{
	print $u->header, $u->h1("Inhalt download?");
	print qq(
		<form action="$ENV{SCRIPT_NAME}">
			Komentar hier: <input name="comment">
			<input type="submit" name="vote">
		</form>
	);
}