apache/mod_mime_magic.pl

   1 # mod_mime_magic.pl
   2 # Defines MIME type guessing directives
   3
   4 sub mod_mime_magic_directives
   5 {
   6 $rv = [ [ 'MimeMagicFile', 0, 6, 'virtual' ] ];
   7 return &make_directives($rv, $_[0], "mod_mime_magic");
   8 }
   9
  10 sub edit_MimeMagicFile
  11 {
  12 return (1, "$text{'mod_mime_magic_file'}",
  13         &opt_input($_[0]->{'value'}, "MimeMagicFile", "$text{'mod_mime_magic_none'}", 20).
  14         &file_chooser_button("MimeMagicFile", 1));
  15 }
  16 sub save_MimeMagicFile
  17 {
  18 return &parse_opt("MimeMagicFile", '^\S+$', "$text{'mod_mime_magic_efile'}");
  19 }
  20
  21 1;
  22