apache/mod_dir.pl

   1 # mod_dir.pl
   2 # Defines editors for mod_dir directives
   3
   4 sub mod_dir_directives
   5 {
   6 local($rv, $all); $all = 'virtual directory htaccess';
   7 $rv = [ [ 'DirectoryIndex', 0, 12, 'virtual directory htaccess', undef, 8 ],
   8         [ 'AddIcon AddIconByType AddIconByEncoding', 1, 12, $all, -1.3, 1 ],
   9         [ 'DefaultIcon', 0, 12, $all, -1.3, 4 ],
  10         [ 'AddAlt AddAltByType AddAltByEncoding', 1, 12, $all, -1.3 ],
  11         [ 'AddDescription', 1, 12, $all, -1.3 ],
  12         [ 'IndexOptions FancyIndexing', 0, 12, $all, -1.3, 10 ],
  13         [ 'HeaderName', 0, 12, $all, -1.3, 3 ],
  14         [ 'ReadmeName', 0, 12, $all, -1.3, 2 ],
  15         [ 'IndexIgnore', 1, 12, $all, -1.3, 6 ] ];
  16 return &make_directives($rv, $_[0], "mod_dir");
  17 }
  18
  19 sub edit_DirectoryIndex
  20 {
  21 local($rv);
  22 $rv = sprintf "<textarea name=DirectoryIndex rows=5 cols=20>%s</textarea>\n",
  23         join("\n", split(/\s+/, $_[0]->{'value'}));
  24 return (1, "$text{'mod_dir_txt'}", $rv);
  25 }
  26 sub save_DirectoryIndex
  27 {
  28 local(@di);
  29 @di = split(/\s+/, $in{'DirectoryIndex'});
  30 return @di ? ( [ join(' ', @di) ] ) : ( [ ] );
  31 }
  32
  33 require 'autoindex.pl';
  34
  35 1;
  36