#!/usr/bin/perl
# config.cgi
# From Webmin config.cgi  ... does not allow to pass arguments so ...
# STTA Rev. 1.3 Copyright (c) 2001-2002 Jesús Pérez Lorenzo  --- license GNU GPL

require '../web-lib.pl';
do "config_info.pl";

$fileCFG = $ARGV[0];
$m = "stta";
%access = &get_module_acl(undef, $m);
$access{'noconfig'} &&
	&error($text{'config_ecannot'});
%module_info = &get_module_info($m);
&header($text{'config_title'}, "", undef, 0, 1);
print "<center><font size=+2>",&text('config_dir', $module_info{'desc'}),
      "</font></center>\n";
print "<hr>\n";

print "<form action=\"/config_save.cgi\">\n";
print "<input type=hidden name=module value=\"$m\">\n";
print "<input type=hidden name=fcfg value=\"$fileCFG\">\n";
print "<table border>\n";
print "<tr $tb> <td><b>",&text('config_header', $module_info{'desc'}),
      "</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";

&config_form;

print "</table></td></tr></table>\n";
print "<input type=submit value=\"$text{'save'}\"></form>\n";
print "<hr>\n";
&footer("/$m", $text{'index'});

