return '<a href="'.escapeHTML($r->url_with_query_params(\%params)).'">'.
$anchor."</a>";
}
-sub gen_plain_agpl_link_html ($$) {
+sub gen_plain_licence_link_html ($$) {
my ($c,$r) = @_;
gen_special_link_html($c,$r, 'GNU Affero GPL', 'licence');
}
my ($c,$r) = @_;
return ('<hr><address>',
("Powered by Free / Libre / Open Source Software".
- " according to the ".$r->_ch('gen_agpl_link_html')."."),
+ " according to the ".$r->_ch('gen_licence_link_html')."."),
$r->_ch('gen_source_link_html').".",
'</address>');
}
encrypted_only => 1,
gen_start_html => sub { $_[0]->start_html($_[2]); },
gen_footer_html => \&gen_plain_footer_html,
- gen_agpl_link_html => \&gen_plain_agpl_link_html,
+ gen_licence_link_html => \&gen_plain_licence_link_html,
gen_source_link_html => \&gen_plain_source_link_html,
gen_end_html => sub { $_[0]->end_html(); },
gen_login_form => \&gen_plain_login_form,
sub _check_divert_core ($) {
my ($r) = @_;
+ my $special = $r->_rp('special_param_name');
+ if ($special) {
+ die if $special =~ m/\W/;
+ return ({ Kind => 'SPECIAL-'.uc $special,
+ Message => undef,
+ CookieSecret => undef,
+ Params => { } });
+ }
+
my $cooks = $r->_ch('get_cookie');
if ($r->{S}{encrypted_only} && !$r->_ch('check_https')) {