Include connection keep-alive

[mod_auth_kerb.git] / test / gssweb_client.pl

diff --git a/test/gssweb_client.pl b/test/gssweb_client.pl
index e0a7030..48dab76 100755 (executable)
--- a/test/gssweb_client.pl
+++ b/test/gssweb_client.pl
@@ -2,6 +2,7 @@
 
 use strict;
 use WWW::Mechanize;
+    use LWP::ConnCache;
 use GSSAPI;
 use GSSAPI::OID;
 use MIME::Base64;
@@ -10,10 +11,11 @@ use URI::Encode qw(uri_encode);
 
 sub parse_token($) {
     my ($json) = @_;
+    print $json;
     my $ref = decode_json($json);
-    return $ref->{'gssweb'}{'token'};
+    return decode_base64($ref->{'gssweb'}{'token'});
                }
-
+;
 
 sub token_body($$) {
     my ($target_server, $itoken) = @_;
@@ -48,6 +50,7 @@ sub token_body($$) {
 
 my ($url, $gssname) = @ARGV;
 my $www = WWW::Mechanize->new('autocheck' => 0);
+$www->conn_cache(LWP::ConnCache->new);
 my $done = 0;
 my $response_token = undef;
    while (!$done) {