chiark
/
gitweb
/
~ian
/
cgi-auth-flexible.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
a3eb016
)
wip, rename __ to _gt
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Fri, 28 Dec 2012 13:29:34 +0000
(13:29 +0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Fri, 28 Dec 2012 13:29:34 +0000
(13:29 +0000)
cgi-auth-hybrid.pm
patch
|
blob
|
history
diff --git
a/cgi-auth-hybrid.pm
b/cgi-auth-hybrid.pm
index 422d7a31b357e6d18cd2052d128501a5a3b7aa39..27cf367d64cbb8f17359e755f0cd818cc8555eae 100644
(file)
--- a/
cgi-auth-hybrid.pm
+++ b/
cgi-auth-hybrid.pm
@@
-77,9
+77,9
@@
sub do_redirect_cgi ($$$$) {
-location => $new_url);
push @ha, (-cookie => $cookie) if defined $cookie;
$r->_print($c->header(@ha),
-location => $new_url);
push @ha, (-cookie => $cookie) if defined $cookie;
$r->_print($c->header(@ha),
- $r->_ch('gen_start_html')($r->_
_
('Redirection')),
+ $r->_ch('gen_start_html')($r->_
gt
('Redirection')),
'<a href="'.escapeHTML($new_url).'">',
'<a href="'.escapeHTML($new_url).'">',
- $r->_
_
("If you aren't redirected, click to continue."),
+ $r->_
gt
("If you aren't redirected, click to continue."),
"</a>",
$c->_ch('gen_end_html'));
}
"</a>",
$c->_ch('gen_end_html'));
}
@@
-208,7
+208,7
@@
sub _rp ($$@) {
my $p = scalar $r->_ch('get_param',$pn)
}
my $p = scalar $r->_ch('get_param',$pn)
}
-sub _
_
($$) { my ($r, $t) = @_; return $r->_ch('gettext')($t); }
+sub _
gt
($$) { my ($r, $t) = @_; return $r->_ch('gettext')($t); }
sub _print ($$) { my ($r, @t) = @_; return $r->_ch('print')(join '', @t); }
# pages/param-sets are
sub _print ($$) { my ($r, @t) = @_; return $r->_ch('print')(join '', @t); }
# pages/param-sets are
@@
-527,8
+527,8
@@
sub check_ok ($) {
my ($title, @body);
if ($kind =~ m/^LOGIN-/) {
my ($title, @body);
if ($kind =~ m/^LOGIN-/) {
- $title = $r->_
_
('Login');
- push @body, $r->_
_
($divert->{Message});
+ $title = $r->_
gt
('Login');
+ push @body, $r->_
gt
($divert->{Message});
push @body, $r->_ch('gen_login_form');
$body .= $r->_ch(
push @body, $r->_ch('gen_login_form');
$body .= $r->_ch(