#!/usr/bin/perl -w
use strict;
use CGI;
use CGI::CARP qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
print "Logfile \n";
print "\n";
print "\n";
$a = "logfile-accesspoint-1.txt";
$b = "logfile-accesspoint-2.txt";
my $cgi = CGI->new();
print $cgi->header();
my $file= $cgi->param("Logfilename");
if($file == $a) {
logfile1();
}
elsif($file==$b) {
logfile1();
}
sub logfile1 {
open(LOGFILE1, ">$a") or die "kann $a nicht oeffnen: $!\n";
while() {
print;
}
sub logfile2 {
open(LOGFILE2, ">$b") or die "kann $a nicht oeffnen: $!\n";
while() {
print;
}