#!/bin/perl
#
# resetlogs.pl - resets the default server logs
#
# Copyright (1997) Advanced Internet Technologies, Inc.

require 'CGI.pl';

$msg = "<H1 ALIGN=CENTER>Server Logs Reset</H1>\n"
     . "<DL><TT>\n";

open(LOG,">/usr/local/etc/httpd/logs/virtualhost.com-error_log");
close(LOG);
$msg .= "<DD>error_log   - zero'ed\n";

open(LOG,">/usr/local/etc/httpd/logs/virtualhost.com-access_log");
close(LOG);
$msg .= "<DD>access_log - zero'ed\n";

$msg .= "</TT></DL>\n";

&write_and_exit($msg);