apache/mod_auth_basic.pl

   1 # mod_auth_basic.pl
   2 # Defines editors for basic authentication directives
   3
   4 sub mod_auth_basic_directives
   5 {
   6 local($rv);
   7 $rv = [ [ 'AuthBasicAuthoritative', 0, 4, 'directory htaccess' ],
   8         [ 'AuthBasicProvider', 0, 4, 'directory htaccess' ],
   9       ];
  10 return &make_directives($rv, $_[0], "mod_auth_basic");
  11 }
  12
  13 sub edit_AuthBasicAuthoritative
  14 {
  15 return (1, $text{'mod_auth_basic_pass'},
  16        &choice_input($_[0]->{'value'}, "AuthBasicAuthoritative", "",
  17        "$text{'yes'},off", "$text{'no'},on", "$text{'default'},") );
  18 }
  19 sub save_AuthBasicAuthoritative
  20 {
  21 return &parse_choice("AuthBasicAuthoritative", "");
  22 }
  23
  24 sub edit_AuthBasicProvider
  25 {
  26 return (1, $text{'mod_auth_basic_prov'},
  27         &ui_select("AuthBasicProvider", $_[0] ? $_[0]->{'words'} : [ ],
  28                    [ [ "file", $text{'mod_auth_basic_file'} ],
  29                      [ "dbm", $text{'mod_auth_basic_dbm'} ] ],
  30                    3, 1, 1));
  31 }
  32 sub save_AuthBasicProvider
  33 {
  34 local $p = $in{'AuthBasicProvider'};
  35 return ( $p ? [ join(" ", split(/\0/, $p)) ] : [ ] );
  36 }