apache/mod_autoindex.pl

   1 # mod_autoindex.pl
   2 # Defines editors automatic index generation
   3
   4 sub mod_autoindex_directives
   5 {
   6 local($rv, $all); $all = 'virtual directory htaccess';
   7 $rv = [ [ 'AddIcon AddIconByType AddIconByEncoding', 1, 12, $all, 1.3, 1 ],
   8         [ 'DefaultIcon', 0, 12, $all, 1.3, 5 ],
   9         [ 'AddAlt AddAltByType AddAltByEncoding', 1, 12, $all, 1.3 ],
  10         [ 'AddDescription', 1, 12, $all, 1.3 ],
  11         [ 'IndexOptions FancyIndexing', 0, 12, $all, 1.3, 10 ],
  12         [ 'HeaderName', 0, 12, $all, 1.3, 4 ],
  13         [ 'ReadmeName', 0, 12, $all, 1.3, 3 ],
  14         [ 'IndexIgnore', 1, 12, $all, 1.3, 6 ],
  15         [ 'IndexOrderDefault', 0, 12, $all, 1.304, 2 ] ];
  16 return &make_directives($rv, $_[0], "mod_autoindex");
  17 }
  18
  19 sub edit_IndexOrderDefault
  20 {
  21 local $rv = sprintf
  22         "<input type=radio name=IndexOrderDefault_def value=1 %s> $text{'mod_autoindex_default'}\n",
  23         $_[0] ? "" : "checked";
  24 $rv .= sprintf "<input type=radio name=IndexOrderDefault_def value=0 %s>\n",
  25         $_[0] ? "checked" : "";
  26 $rv .= "<select name=IndexOrderDefault_asc>\n";
  27 $rv .= sprintf "<option value=Ascending %s>$text{'mod_autoindex_asc'}\n",
  28                 $_[0]->{'words'}->[0] eq "Ascending" ? "selected" : "";
  29 $rv .= sprintf "<option value=Descending %s>$text{'mod_autoindex_descend'}\n",
  30                 $_[0]->{'words'}->[0] eq "Descending" ? "selected" : "";
  31 $rv .= "</select>\n";
  32 $rv .= "<select name=IndexOrderDefault_what>\n";
  33 $rv .= sprintf "<option value=Name %s>$text{'mod_autoindex_name'}\n",
  34                 $_[0]->{'words'}->[1] eq "Name" ? "selected" : "";
  35 $rv .= sprintf "<option value=Date %s>$text{'mod_autoindex_date'}\n",
  36                 $_[0]->{'words'}->[1] eq "Date" ? "selected" : "";
  37 $rv .= sprintf "<option value=Size %s>$text{'mod_autoindex_size'}\n",
  38                 $_[0]->{'words'}->[1] eq "Size" ? "selected" : "";
  39 $rv .= sprintf "<option value=Description %s>$text{'mod_autoindex_desc'}\n",
  40                 $_[0]->{'words'}->[1] eq "Description" ? "selected" : "";
  41 $rv .= "</select>\n";
  42 return (2, "$text{'mod_autoindex_sort'}", $rv);
  43 }
  44 sub save_IndexOrderDefault
  45 {
  46 if ($in{'IndexOrderDefault_def'}) { return ( [ ] ); }
  47 else { return ( [ "$in{'IndexOrderDefault_asc'} $in{'IndexOrderDefault_what'}" ] ); }
  48 }
  49
  50 require 'autoindex.pl';
  51
  52 1;
  53