#!/usr/bin/perl -w
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my $cgi = CGI->new();
print $cgi->header();
unless($cgi->param('id')){
print "Logfile \n";
print "\n";
print "\n";
exit(0);
}
my $a = "logfile-accesspoint-1.txt";
my $b = "logfile-accesspoint-2.txt";
my $file= $cgi->param("Logfilename");
if($file eq $a) {
logfile($a);
}
elsif($file eq $b) {
logfile($b);
}
sub logfile {
my ($file) = @_;
open(LOGFILE1, "<$file") or die "kann $f nicht oeffnen: $!\n";
while() {
print;
}
close LOGFILE1;
}