11 lines
280 B
Perl
Executable File
11 lines
280 B
Perl
Executable File
#!/usr/bin/perl
|
|
# dirlogs_tta.cgi
|
|
# TTA LOGS lists File Manage for Tarantella Services
|
|
|
|
require './tarantella-lib.pl';
|
|
if ( ! $access{'supervision'} ) { &redirect("index.cgi"); }
|
|
&redirect( "file_manager.cgi?wkdir=$config{'ttalog_path'}&perm=read&postform=dirlogstta");
|
|
exit;
|
|
|
|
|