projects
/
mod_auth_kerb.cvs
/
.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2f64188
)
Don't include newlines in base64 encodings
author
Sam Hartman
<hartmans@debian.org>
Fri, 5 Sep 2014 10:07:24 +0000
(06:07 -0400)
committer
Sam Hartman
<hartmans@debian.org>
Fri, 5 Sep 2014 10:07:24 +0000
(06:07 -0400)
test/gssweb_client.pl
patch
|
blob
|
history
diff --git
a/test/gssweb_client.pl
b/test/gssweb_client.pl
index
48dab76
..
a3f7157
100755
(executable)
--- a/
test/gssweb_client.pl
+++ b/
test/gssweb_client.pl
@@
-13,7
+13,7
@@
sub parse_token($) {
my ($json) = @_;
print $json;
my $ref = decode_json($json);
my ($json) = @_;
print $json;
my $ref = decode_json($json);
- return decode_base64($ref->{'gssweb'}{'token'});
+ return decode_base64($ref->{'gssweb'}{'token'})
or die "No token\n"
;
}
;
}
;
@@
-41,7
+41,7
@@
sub token_body($$) {
print "$status\n";
return undef unless $otoken;
print "Pre-encoding token: $otoken\n";
print "$status\n";
return undef unless $otoken;
print "Pre-encoding token: $otoken\n";
- my $encoded_token = encode_base64($otoken);
+ my $encoded_token = encode_base64($otoken
, ''
);
chomp($encoded_token);
my $out = "token=" . uri_encode($encoded_token, {encode_reserved => 1}) ."&nonce=42";
print "$out\n";
chomp($encoded_token);
my $out = "token=" . uri_encode($encoded_token, {encode_reserved => 1}) ."&nonce=42";
print "$out\n";