#!/usr/bin/perl
#
# vhshowlog.pl - dumps the named log to an HTML page
#
# Copyright (1997) Advanced Internet Technologies, Inc.

require 'CGI.pl';
$logdir = "/usr/local/etc/httpd/logs";

# get form data
&read_cgi_input;

if ($FORM{'log'} eq "Access")    { $logf = "$logdir/vhdomain.com-access_log"; }
elsif ($FORM{'log'} eq "Error")  { $logf = "$logdir/vhdomain.com-error_log"; }
else {
   $msg = "<H1 ALIGN=CENTER>Error: Unrecognized Log</H1>\n";
   &write_and_exit($msg);
}

if (open(LOG, $logf)) {
   $title = "Viewing $FORM{'log'} Log for $mydomain";
   &start_html($title);
   print "<H1 ALIGN=CENTER>$title</H1>\n";
   print "<HR><PRE>\n";
   while (<LOG>) {
      print;
   }
   close(LOG);
   print "</PRE><HR>\n";
   &end_html;
} else {
   $msg = "<H1 ALIGN=CENTER>Error: Could not open $FORM{'log'} Log</H1>\n";
   &write_and_exit($msg);
}

exit;