From: Sam Hartman <hartmans@debian.org>
Date: Fri, 5 Sep 2014 10:07:24 +0000 (-0400)
Subject: Don't include newlines in base64 encodings
X-Git-Tag: gssweb-apache-2014-09-08~2^2^2
X-Git-Url: http://www.project-moonshot.org/gitweb/?p=mod_auth_kerb.cvs%2F.git;a=commitdiff_plain;h=a67f5678cd322713c568c55361cb77bb3788b39c

Don't include newlines in base64 encodings
---

diff --git a/test/gssweb_client.pl b/test/gssweb_client.pl
index 48dab76..a3f7157 100755
--- 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);
-    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";
-    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";