+use Locale::Gettext;
+
+#---------- public utilities ----------
+
+sub flatten_params ($) {
+ my ($p) = @_;
+ my @p;
+ foreach my $k (keys %$p) {
+ foreach my $v (@{ $p->{$k} }) {
+ push @p, $k, $v;
+ }
+ }
+ return @p;
+}
+
+#---------- default callbacks ----------
+
+sub has_a_param ($$) {
+ my ($c,$cn) = @_;
+ foreach my $pn (@{ $r->{S}{$cn} }) {
+ return 1 if $r->_cm('get_param')($pn);
+ }
+ return 0;
+}
+
+sub get_params ($$) {
+ my ($c) = @_;
+ my %p;
+ foreach my $name ($c->param()) {
+ $p{$name} = [ $c->param($name) ];
+ }
+ return \%p;
+}
+
+sub get_cookie_domain ($$$) {
+ my ($c,$r) = @_;
+ my $uri = new URI $r->_ch('get_url');
+ return $uri->host();
+}
+
+sub construct_cookie ($$$) {
+ my ($c, $r, $cookv) = @_;
+ return $c->cookie(-name => $r->{S}{cookie_name},
+ -value => $cookv,
+ -path => $r->{S}{cookie_path},
+ -domain => $r->_ch('get_cookie_domain'),
+ -expires => '+'.$r->{S}{login_timeout}.'s',
+ -secure => $r->{S}{encrypted_only});
+}
+
+sub do_redirect_cgi ($$$$) {
+ my ($c, $r, $new_url, $cookie) = @_;
+ my @ha = ('text/html',
+ -status => '303 See other',
+ -location => $new_url);
+ push @ha, (-cookie => $cookie) if defined $cookie;
+ $r->_print($c->header(@ha),
+ $r->_ch('gen_start_html')($r->_gt('Redirection')),
+ '<a href="'.escapeHTML($new_url).'">',
+ $r->_gt("If you aren't redirected, click to continue."),
+ "</a>",
+ $c->_ch('gen_end_html'));
+}
+
+sub gen_plain_login_form ($$) {
+ my ($c,$r, $params) = @_;
+ my @form;
+ push @form, ('<form method="POST" action="'.
+ escapeHTML($r->_ch('get_url')).'>'.
+ '<table>');
+ my $sz = 'size="'.$r->{S}{form_entry_size}.'"';
+ foreach my $up (@{ $r->{S}{username_param_names}}) {
+ push @form, ('<tr><td>',$r->_gt(ucfirst $up),'</td>',
+ '<td><input type="text" ',$sz.
+ ' name=',$up,'></td></tr>');
+ }
+ push @form, ('<tr><td>'.$r->_gt('Password'),'</td>',
+ '<td><input type="password" '.$sz.
+ ' name="'.$r->{S}{password_param_name}.'"></td></tr>');
+ push @form, ('<tr><td colspan="2">',
+ '<input type="submit"'.
+ ' name="'.$r->{S}{login_submit_name}.'"'.
+ ' value="'.$r->_gt('Login').'"></td></tr>',
+ '</table>');
+ foreach my $n (keys %$params) {
+ push @form, ('<input type="hidden"'.
+ ' name="'.$n.'"'.
+ ' value="'.$params->{$n}.'">');
+ }
+ push @form, ('</form>');
+ return join "\n", @form;
+}
+
+sub gen_login_link ($$) {
+ my ($c,$r, $params) = @_;
+ my $url = $r->url_with_query_params($params);
+ return ('<a href="'.escapeHTML($url).'">'.
+ $r->_gt('Log in again to continue.').
+ '</a>');
+}