#!/usr/bin/perl -wT
use strict;
use Cwd;
## taint environmentals
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
$ENV{'PATH'} = "/usr/bin:/usr/local/bin";
## cgi.pm
use CGI;
$CGI::DISABLE_UPLOADS = 1;
$CGI::POST_MAX = 1024;
my $query = new CGI;
## config vars
my $rcs = (qw$Revision: 1.13 $)[-1];
my $cwd = cwd();
my $domain = (split(/\//,$cwd))[-1];
my %logfile = ( wwwlog => "/var/log/www/www-xfer.$domain",
wwwerr => "/var/log/www/www-error.$domain",
ftplog => "/var/log/ftp/ftp-xfer.$domain",
ftperr => "/var/log/ftp/ftp-error.$domain",
ssllog => "/var/log/ssl/ssl-xfer.$domain",
sslerr => "/var/log/ssl/ssl-error.$domain"
);
## get form input
my $log = $query->param('log') || '';
## create html
print <
View Log Files
HTML
if ($log) {
open(LOG, ($logfile{$log}));
while () {
chomp $_;
print "$_\n";
}
close(LOG);
}
print <
HTML