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

sub mod_dir_directives
{
local($rv, $all); $all = 'virtual directory htaccess';
$rv = [ [ 'DirectoryIndex', 0, 12, 'virtual directory htaccess', undef, 8 ],
	[ 'AddIcon AddIconByType AddIconByEncoding', 1, 12, $all, -1.3, 1 ],
        [ 'DefaultIcon', 0, 12, $all, -1.3, 4 ],
        [ 'AddAlt AddAltByType AddAltByEncoding', 1, 12, $all, -1.3 ],
        [ 'AddDescription', 1, 12, $all, -1.3 ],
        [ 'IndexOptions FancyIndexing', 0, 12, $all, -1.3, 10 ],
        [ 'HeaderName', 0, 12, $all, -1.3, 3 ],
        [ 'ReadmeName', 0, 12, $all, -1.3, 2 ],
        [ 'IndexIgnore', 1, 12, $all, -1.3, 6 ] ];
return &amp;make_directives($rv, $_[0], "mod_dir");
}

sub edit_DirectoryIndex
{
local($rv);
$rv = sprintf "&lt;textarea name=DirectoryIndex rows=5 cols=20&gt;%s&lt;/textarea&gt;\n",
        join("\n", split(/\s+/, $_[0]-&gt;{'value'}));
return (1, "$text{'mod_dir_txt'}", $rv);
}
sub save_DirectoryIndex
{
local(@di);
@di = split(/\s+/, $in{'DirectoryIndex'});
return @di ? ( [ join(' ', @di) ] ) : ( [ ] );
}

require 'autoindex.pl';

1;

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