14 lines
362 B
Perl
Executable File
14 lines
362 B
Perl
Executable File
#!/usr/bin/perl
|
|
# STTA Rev. 1.3 Copyright (c) 2001-2004 Jesús Pérez Lorenzo --- license GNU GPL
|
|
# stta: (@#) 1.31051043346- [2004_01_29_102036]
|
|
# log_http.cgi
|
|
# HTTP LOG Monitor to Services with Tarantella
|
|
|
|
require './stta-lib.pl';
|
|
if ( ! $access{'supervision'} ) { &redirect("index.cgi"); }
|
|
&redirect( "file_mod.cgi?kf=http_log&postform=loghttp");
|
|
|
|
exit;
|
|
|
|
|