13 lines
413 B
Perl
Executable File
13 lines
413 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_system.cgi
|
|
# SYSTEM DIR LOGS lists File Manage for Services with Tarantella
|
|
|
|
require './stta-lib.pl';
|
|
if ( ! $access{'supervision'} ) { &redirect("index.cgi"); }
|
|
&redirect( "file_manager.cgi?wkdir=$config{'system_log'}&perm=clean&postform=logsystem");
|
|
exit;
|
|
|
|
|