r3432 - in /packages/libauthen-krb5-perl/branches/upstream/current:
COPYRIGHT Changes Krb5.pm Krb5.xs sample_client sample_server
simple_client simple_server typemap
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Mon Aug 7 20:01:31 UTC 2006
Author: gregoa-guest
Date: Mon Aug 7 20:01:31 2006
New Revision: 3432
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=3432
Log:
Load /tmp/tmp.tdhqK20128/libauthen-krb5-perl-1.6 into
packages/libauthen-krb5-perl/branches/upstream/current.
Modified:
packages/libauthen-krb5-perl/branches/upstream/current/COPYRIGHT
packages/libauthen-krb5-perl/branches/upstream/current/Changes
packages/libauthen-krb5-perl/branches/upstream/current/Krb5.pm
packages/libauthen-krb5-perl/branches/upstream/current/Krb5.xs
packages/libauthen-krb5-perl/branches/upstream/current/sample_client
packages/libauthen-krb5-perl/branches/upstream/current/sample_server
packages/libauthen-krb5-perl/branches/upstream/current/simple_client
packages/libauthen-krb5-perl/branches/upstream/current/simple_server
packages/libauthen-krb5-perl/branches/upstream/current/typemap
Modified: packages/libauthen-krb5-perl/branches/upstream/current/COPYRIGHT
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-krb5-perl/branches/upstream/current/COPYRIGHT?rev=3432&op=diff
==============================================================================
--- packages/libauthen-krb5-perl/branches/upstream/current/COPYRIGHT (original)
+++ packages/libauthen-krb5-perl/branches/upstream/current/COPYRIGHT Mon Aug 7 20:01:31 2006
@@ -1,3 +1,3 @@
-Copyright (c) 2000-2004 Jeff Horwitz (jeff at smashing.org). All rights reserved.
+Copyright (c) 2000-2006 Jeff Horwitz (jeff at smashing.org). All rights reserved.
This module is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
Modified: packages/libauthen-krb5-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-krb5-perl/branches/upstream/current/Changes?rev=3432&op=diff
==============================================================================
--- packages/libauthen-krb5-perl/branches/upstream/current/Changes (original)
+++ packages/libauthen-krb5-perl/branches/upstream/current/Changes Mon Aug 7 20:01:31 2006
@@ -1,4 +1,9 @@
Revision history for Perl extension Krb5.
+
+1.6 Add methods for iterating through credentials cache
+ (mbrown at fensystems.co.uk)
+ Deprecated init_ets
+ Fix some compiler warnings
1.5 Fix broken compile for Authen::Krb5::Keytab::get_name()
Modified: packages/libauthen-krb5-perl/branches/upstream/current/Krb5.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-krb5-perl/branches/upstream/current/Krb5.pm?rev=3432&op=diff
==============================================================================
--- packages/libauthen-krb5-perl/branches/upstream/current/Krb5.pm (original)
+++ packages/libauthen-krb5-perl/branches/upstream/current/Krb5.pm Mon Aug 7 20:01:31 2006
@@ -52,7 +52,7 @@
KRB5_NT_UNKNOWN
KRB5_TGS_NAME
);
-$VERSION = '1.5';
+$VERSION = '1.6';
sub KRB5_TGS_NAME() { return "krbtgt"; }
@@ -95,7 +95,6 @@
use Authen::Krb5;
Authen::Krb5::init_context();
-Authen::Krb5::init_ets();
=head1 DESCRIPTION
@@ -117,10 +116,9 @@
=item init_context()
Initializes a context for the application. Returns a Authen::Krb5::Context
-object, or undef if there was an error. Should be called along with init_ets
-at the beginning of a script.
-
-=item init_ets()
+object, or undef if there was an error.
+
+=item init_ets() (DEPRECATED)
Initializes the Kerberos error tables. Should be called along with
init_context at the beginning of a script.
@@ -336,6 +334,21 @@
Destroys the credentials cache and releases all resources it used.
+=item o start_seq_get()
+
+Returns a cursor that can be passed to I<next_cred()> to read in turn
+every credential in the cache.
+
+=item o next_cred(cursor)
+
+Returns the next credential in the cache as an Authen::Krb5::Creds
+object.
+
+=item o end_seq_get(cursor)
+
+Perform cleanup opreations after I<next_cred()> and invalidates
+I<cursor>.
+
=back
=item Authen::Krb5::KeyBlock
Modified: packages/libauthen-krb5-perl/branches/upstream/current/Krb5.xs
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-krb5-perl/branches/upstream/current/Krb5.xs?rev=3432&op=diff
==============================================================================
--- packages/libauthen-krb5-perl/branches/upstream/current/Krb5.xs (original)
+++ packages/libauthen-krb5-perl/branches/upstream/current/Krb5.xs Mon Aug 7 20:01:31 2006
@@ -29,6 +29,7 @@
typedef krb5_keyblock *Authen__Krb5__Keyblock;
typedef krb5_keytab_entry *Authen__Krb5__KeytabEntry;
typedef krb5_kt_cursor *Authen__Krb5__KeytabCursor;
+typedef krb5_cc_cursor *Authen__Krb5__CcacheCursor;
typedef krb5_keyblock *Authen__Krb5__KeyBlock;
static krb5_context context = 0;
@@ -123,7 +124,9 @@
krb5_init_ets()
CODE:
+#if KRB5_DEPRECATED
krb5_init_ets(context);
+#endif /* KRB5_DEPRECATED */
XSRETURN_YES;
void
@@ -599,7 +602,7 @@
XSRETURN_YES;
}
-char *
+const char *
get_name(cc)
Authen::Krb5::Ccache cc
@@ -637,6 +640,47 @@
freed((SV*)cc);
XSRETURN_YES;
}
+
+krb5_cc_cursor *
+start_seq_get(cc)
+ Authen::Krb5::Ccache cc
+
+ CODE:
+ if (!New(0, RETVAL, 1, krb5_cc_cursor))
+ XSRETURN_UNDEF;
+ err = krb5_cc_start_seq_get(context, cc, RETVAL);
+ if (err)
+ XSRETURN_UNDEF;
+
+ OUTPUT:
+ RETVAL
+
+Authen::Krb5::Creds
+next_cred(cc, cursor)
+ krb5_cc_cursor *cursor
+ Authen::Krb5::Ccache cc
+
+ CODE:
+ if (!New(0, RETVAL, 1, krb5_creds))
+ XSRETURN_UNDEF;
+ err = krb5_cc_next_cred(context, cc, cursor, RETVAL);
+ if (err)
+ XSRETURN_UNDEF;
+ can_free((SV *)RETVAL);
+
+ OUTPUT:
+ RETVAL
+
+void
+end_seq_get(cc, cursor)
+ Authen::Krb5::Ccache cc
+ krb5_cc_cursor *cursor
+
+ CODE:
+ err = krb5_cc_end_seq_get(context, cc, cursor);
+ if (err)
+ XSRETURN_UNDEF;
+ XSRETURN_YES;
void
DESTROY(cc)
Modified: packages/libauthen-krb5-perl/branches/upstream/current/sample_client
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-krb5-perl/branches/upstream/current/sample_client?rev=3432&op=diff
==============================================================================
--- packages/libauthen-krb5-perl/branches/upstream/current/sample_client (original)
+++ packages/libauthen-krb5-perl/branches/upstream/current/sample_client Mon Aug 7 20:01:31 2006
@@ -3,7 +3,7 @@
# sample_client
# sends authentication info to a server via sendauth
-use blib;
+use blib; # remove if not in module build directory
use IO::Socket;
use Authen::Krb5 (KRB5_NT_SRV_HST);
@@ -12,7 +12,6 @@
$SERVER = "server.domain.edu";
Authen::Krb5::init_context();
-Authen::Krb5::init_ets();
$ac = new Authen::Krb5::AuthContext;
Modified: packages/libauthen-krb5-perl/branches/upstream/current/sample_server
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-krb5-perl/branches/upstream/current/sample_server?rev=3432&op=diff
==============================================================================
--- packages/libauthen-krb5-perl/branches/upstream/current/sample_server (original)
+++ packages/libauthen-krb5-perl/branches/upstream/current/sample_server Mon Aug 7 20:01:31 2006
@@ -3,7 +3,7 @@
# sample_server
# receives authentication info from a client using recvauth
-use blib;
+use blib; # remove if not in module build directory
use IO::Socket;
use Sys::Hostname;
use Authen::Krb5 (KRB5_NT_SRV_HST);
@@ -15,7 +15,6 @@
chomp($SERVER = hostname());
Authen::Krb5::init_context();
-Authen::Krb5::init_ets();
$ac = new Authen::Krb5::AuthContext;
Modified: packages/libauthen-krb5-perl/branches/upstream/current/simple_client
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-krb5-perl/branches/upstream/current/simple_client?rev=3432&op=diff
==============================================================================
--- packages/libauthen-krb5-perl/branches/upstream/current/simple_client (original)
+++ packages/libauthen-krb5-perl/branches/upstream/current/simple_client Mon Aug 7 20:01:31 2006
@@ -3,7 +3,7 @@
# simple_client
# uses mk_req & mk_priv to send an authenticated and encrypted message
-use blib;
+use blib; # remove if not in module build directory
use IO::Socket;
use Authen::Krb5 (ADDRTYPE_INET,ADDRTYPE_IPPORT);
@@ -12,7 +12,6 @@
$SERVER = "server.domain.edu";
Authen::Krb5::init_context();
-Authen::Krb5::init_ets();
$ac = new Authen::Krb5::AuthContext;
Modified: packages/libauthen-krb5-perl/branches/upstream/current/simple_server
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-krb5-perl/branches/upstream/current/simple_server?rev=3432&op=diff
==============================================================================
--- packages/libauthen-krb5-perl/branches/upstream/current/simple_server (original)
+++ packages/libauthen-krb5-perl/branches/upstream/current/simple_server Mon Aug 7 20:01:31 2006
@@ -3,7 +3,7 @@
# simple_server
# uses rd_req & rd_priv to decrypt an authentic encrypted message
-use blib;
+use blib; # remove if not in module build directory
use IO::Socket;
use Sys::Hostname;
use Authen::Krb5 (ADDRTYPE_INET,ADDRTYPE_IPPORT,KRB5_NT_SRV_HST);
@@ -15,7 +15,6 @@
chomp($SERVER = hostname());
Authen::Krb5::init_context();
-Authen::Krb5::init_ets();
$ac = new Authen::Krb5::AuthContext;
Modified: packages/libauthen-krb5-perl/branches/upstream/current/typemap
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-krb5-perl/branches/upstream/current/typemap?rev=3432&op=diff
==============================================================================
--- packages/libauthen-krb5-perl/branches/upstream/current/typemap (original)
+++ packages/libauthen-krb5-perl/branches/upstream/current/typemap Mon Aug 7 20:01:31 2006
@@ -28,6 +28,7 @@
krb5_ui_4 T_INT
krb5_enctype T_INT
krb5_kt_cursor * T_PTROBJ_NU
+krb5_cc_cursor * T_PTROBJ_NU
krb5_kvno T_U_INT
INPUT
More information about the Pkg-perl-cvs-commits
mailing list