- $r->_ch('print')($c->header(@ha).
- $c->start_html('Redirection').
- $c->a({href=>$new_url},
- "If you aren't redirected, click to continue.").
- $c->end_html());
-}
+ $r->_print($c->header(@ha),
+ $r->_ch('gen_start_html')($r->__('Redirection')),
+ '<a href="'.escapeHTML($new_url).'">',
+ $r->__("If you aren't redirected, click to continue."),
+ "</a>",
+ $c->_ch('gen_end_html'));
+}
+
+sub gen_plain_login_form ($$) {
+ my ($c,$r) = @_;
+ my @form;
+ push @form, ('<form method="POST" action="',
+ escapeHTML($r->_ch('get_url')).'>',
+ '<table>');
+ foreach my $up (@{ $r->{S}{username_param_names}}) {
+ push @form, '<tr><td>'.$r->
+ push @form
+ '<table>'.
+ '<tr>'
+ '<input type="text" name="'
+ '<input type="text" name="'.$r->{S}{password_param_name}.'">'.