1# mod_mime_magic.pl
2# Defines MIME type guessing directives
3
4sub mod_mime_magic_directives
5{
6$rv = [ [ 'MimeMagicFile', 0, 6, 'virtual' ] ];
7return &make_directives($rv, $_[0], "mod_mime_magic");
8}
9
10sub edit_MimeMagicFile
11{
12return (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}
16sub save_MimeMagicFile
17{
18return &parse_opt("MimeMagicFile", '^\S+$', "$text{'mod_mime_magic_efile'}");
19}
20
211;
22
23