[ [ 0, $text{'acl_awl0'}."<br>\n" ],
[ 1, &text('acl_awl1',
&ui_textbox("awl_users", $_[0]->{'awl_users'}, 40).
- &user_chooser_button("awl_users", 1)."<br>\n" ],
+ &user_chooser_button("awl_users", 1))."<br>\n" ],
[ 2, &text('acl_awl2',
&ui_textbox("awl_groups", $_[0]->{'awl_groups'}, 40).
- &group_chooser_button("awl_users", 1)."<br>\n" ],
+ &group_chooser_button("awl_users", 1))."<br>\n" ],
]),"</td> </tr>\n";
}
#!/usr/local/bin/perl
# Display entries in the auto-whitelist
-# XXX delete all
require './spam-lib.pl';
&can_use_check("awl");
print &ui_user_textbox("user", $in{'user'}),"\n",
&ui_submit($text{'awl_uok'});
print &ui_form_end();
+ $formno++;
if (!$in{'user'}) {
# Can't do any more
&ui_print_endpage("<b>".&text('awl_cannotuser',
"<tt>".&html_escape($in{'user'})."</tt>")."</b>");
}
-elsif (!defined(getpwnam($in{'user'}))) {
+elsif (!defined(getpwnam($in{'user'})) && !$module_info{'usermin'}) {
&ui_print_endpage("<b>".&text('awl_nouser',
"<tt>".&html_escape($in{'user'})."</tt>")."</b>");
}