<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;"># mod_cgi.pl
# Defines editors CGI logging directives

sub mod_cgi_directives
{
local($rv);
$rv = [ [ 'ScriptLog', 0, 11, 'global', 1.2 ],
        [ 'ScriptLogLength', 0, 11, 'global', 1.2 ],
        [ 'ScriptLogBuffer', 0, 11, 'global', 1.2 ] ];
return &amp;make_directives($rv, $_[0], "mod_cgi");
}

sub mod_cgi_handlers
{
return ("cgi-script");
}

sub edit_ScriptLog
{
return (1, "$text{'mod_cgi_logname'}",
        &amp;opt_input($_[0]-&gt;{'value'}, "ScriptLog", "$text{'mod_cgi_none'}", 20).
        &amp;file_chooser_button("ScriptLog", 0));
}
sub save_ScriptLog
{
$in{'ScriptLog_def'} || &amp;allowed_auth_file($in{'ScriptLog'}) ||
	&amp;error($text{'mod_cgi_eunder'});
return &amp;parse_opt("ScriptLog", '^\S+$', "$text{'mod_cgi_elogname'}");
}

sub edit_ScriptLogLength
{
return (1, "$text{'mod_cgi_logsize'}",
        &amp;opt_input($_[0]-&gt;{'value'}, "ScriptLogLength", "$text{'mod_cgi_default'}", 8)
		.$text{'bytes'});
}
sub save_ScriptLogLength
{
return &amp;parse_opt("ScriptLogLength", '^\d+$', "$text{'mod_cgi_elogsize'}");
}

sub edit_ScriptLogBuffer
{
return (1, "$text{'mod_cgi_post'}",
        &amp;opt_input($_[0]-&gt;{'value'}, "ScriptLogBuffer", "$text{'mod_cgi_default'}", 6)
		.$text{'bytes'});
}
sub save_ScriptLogBuffer
{
return &amp;parse_opt("ScriptLogBuffer", '^\d+$', "$text{'mod_cgi_epost'}");
}

1;

</pre></body></html>