#!/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 qq~Logfile
~;
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() {
next if(/^\s*?$/); # überspringe Leerzeilen... (für Reguläre Ausdrücke siehe perldoc perlre)
print;
}
close LOGFILE1;
}