13 lines
404 B
Perl
Executable File
13 lines
404 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]
|
|
# dir_save.cgi
|
|
# Save DIr lists File Manage for Services with Tarantella
|
|
|
|
require './stta-lib.pl';
|
|
if ( ! $access{'supervision'} ) { &redirect("index.cgi"); }
|
|
&redirect( "file_manager.cgi?wkdir=$config{'stta_savedir'}&perm=write&postform=dirsave");
|
|
exit;
|
|
|
|
|