15 lines
467 B
Perl
Executable File
15 lines
467 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]
|
|
# mon_script.cgi
|
|
# filter Monitor to Services with Tarantella
|
|
|
|
require './stta-lib.pl';
|
|
if ( ! $access{'monitor'} ) { &redirect("index.cgi"); }
|
|
if ( $config{'has_monitor'} ne "true" ) { &redirect("index.cgi"); }
|
|
|
|
&redirect( "file_manager.cgi?wkdir=$config{'monitor_scripts_path'}&perm=all&postform=ttascript");
|
|
exit;
|
|
|
|
|