From: Margaret Wasserman <margaret@margaret-moonshot3.painless-security.com>
Date: Wed, 13 Aug 2014 20:47:34 +0000 (-0400)
Subject: Removed backup file.
X-Git-Tag: gssweb-apache-2014-09-08~12
X-Git-Url: http://www.project-moonshot.org/gitweb/?p=mod_auth_kerb.cvs%2F.git;a=commitdiff_plain;h=137afd0e8f03540aa6351b4ac4892b13a8ad515c

Removed backup file.
---

diff --git a/test/gssweb_client.pl~ b/test/gssweb_client.pl~
deleted file mode 100755
index 8d01782..0000000
--- a/test/gssweb_client.pl~
+++ /dev/null
@@ -1,67 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use WWW::Mechanize;
-use GSSAPI;
-use GSSAPI::OID;
-use MIME::Base64;
-use JSON;
-
-sub parse_token($) {
-    my ($json) = @_;
-    my $ref = decode_json($json);
-    return $ref->{'gssweb'}{'token'};
-		}
-
-
-sub token_body($$) {
-    my ($target_server, $itoken) = @_;
-    my $status;
-    my $otoken;
-    my $target;
-  try: {
-     $status = GSSAPI::Name->import( $target,
-				       $target_server,
-				     GSSAPI::OID::gss_nt_hostbased_service) or last;
-     our  $ctx = GSSAPI::Context->new() unless $ctx;
-     my $mech;
-     $status = GSSAPI::OID->from_str($mech, '{ 1.3.6.1.5.5.15.1.1.17              }') or last;
-     my $iflags = GSSAPI::GSS_C_MUTUAL_FLAG | GSSAPI::GSS_C_SEQUENCE_FLAG | GSSAPI::GSS_C_REPLAY_FLAG;
-     my $bindings = GSS_C_NO_CHANNEL_BINDINGS;
-     my $creds = GSS_C_NO_CREDENTIAL;
-     my $itime = 0;
-
-             $status = $ctx->init($creds,$target,
-                                  $mech,$iflags,$itime,$bindings,$itoken,
-                                  undef, $otoken,undef,undef);
-    }
-    print "$status\n";
-    return undef unless $otoken;
-
-    my $out =  "token:" . encode_base64($otoken) ."nonce: 42\n";
-    print $out;
-    return $out;
-}
-
-my ($url, $gssname) = @ARGV;
-my $www = WWW::Mechanize->new('autocheck' => 0);
-my $done = 0;
-my $response_token = undef;
-unless ($done) {
-
-    $www->post($url, 'Content' => token_body($gssname, $response_token));
-    my $status = $www->status();
-    if ($status == 200) {
-	$done = 1;
-	print "authenticated: response is ".$www->content()."\n";
-	if (token_body($gssname, parse_token($www->content()))) {
-	    print "Expecting gss success but did not get it!\n";
-	}
-    } elsif ($status == 401) {
-	print "Contiuning\n";
-	$response_token = parse_token($www->content());
-    } else {
-	print "Unexpected response status: $status\n";
-	print $www->content();
-    }
-}