r3434 - in /packages/libauthen-krb5-perl/trunk: COPYRIGHT Changes Krb5.pm Krb5.xs debian/changelog debian/compat debian/control 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:25:03 UTC 2006


Author: gregoa-guest
Date: Mon Aug  7 20:25:01 2006
New Revision: 3434

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=3434
Log:
* New upstream release.
* Set Standards-Version to 3.7.2 (no changes).
* Set debhelper compatibility level to 5.

Modified:
    packages/libauthen-krb5-perl/trunk/COPYRIGHT
    packages/libauthen-krb5-perl/trunk/Changes
    packages/libauthen-krb5-perl/trunk/Krb5.pm
    packages/libauthen-krb5-perl/trunk/Krb5.xs
    packages/libauthen-krb5-perl/trunk/debian/changelog
    packages/libauthen-krb5-perl/trunk/debian/compat
    packages/libauthen-krb5-perl/trunk/debian/control
    packages/libauthen-krb5-perl/trunk/sample_client
    packages/libauthen-krb5-perl/trunk/sample_server
    packages/libauthen-krb5-perl/trunk/simple_client
    packages/libauthen-krb5-perl/trunk/simple_server
    packages/libauthen-krb5-perl/trunk/typemap

Modified: packages/libauthen-krb5-perl/trunk/COPYRIGHT
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-krb5-perl/trunk/COPYRIGHT?rev=3434&op=diff
==============================================================================
--- packages/libauthen-krb5-perl/trunk/COPYRIGHT (original)
+++ packages/libauthen-krb5-perl/trunk/COPYRIGHT Mon Aug  7 20:25:01 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/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-krb5-perl/trunk/Changes?rev=3434&op=diff
==============================================================================
--- packages/libauthen-krb5-perl/trunk/Changes (original)
+++ packages/libauthen-krb5-perl/trunk/Changes Mon Aug  7 20:25:01 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/trunk/Krb5.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-krb5-perl/trunk/Krb5.pm?rev=3434&op=diff
==============================================================================
--- packages/libauthen-krb5-perl/trunk/Krb5.pm (original)
+++ packages/libauthen-krb5-perl/trunk/Krb5.pm Mon Aug  7 20:25:01 2006
@@ -52,7 +52,7 @@
 	KRB5_NT_UNKNOWN
 	KRB5_TGS_NAME
 );
-$VERSION = '1.5';
+$VERSION = '1.6';
 
 sub KRB5_TGS_NAME() { return "krbtgt"; }
 
@@ -116,8 +116,12 @@
 =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 at the beginning of
-a script.
+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.
 
 =item get_default_realm()
 
@@ -330,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/trunk/Krb5.xs
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-krb5-perl/trunk/Krb5.xs?rev=3434&op=diff
==============================================================================
--- packages/libauthen-krb5-perl/trunk/Krb5.xs (original)
+++ packages/libauthen-krb5-perl/trunk/Krb5.xs Mon Aug  7 20:25:01 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,8 +124,9 @@
 krb5_init_ets()
 
 	CODE:
-	/* This is no longer needed or supported by MIT Kerberos, but it was
-	   documented as necessary, so retain it in the Perl API as a stub. */
+#if KRB5_DEPRECATED
+	krb5_init_ets(context);
+#endif /* KRB5_DEPRECATED */
 	XSRETURN_YES;
 
 void
@@ -600,7 +602,7 @@
 		XSRETURN_YES;
 	}
 
-char *
+const char *
 get_name(cc)
 	Authen::Krb5::Ccache cc
 
@@ -638,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/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-krb5-perl/trunk/debian/changelog?rev=3434&op=diff
==============================================================================
--- packages/libauthen-krb5-perl/trunk/debian/changelog (original)
+++ packages/libauthen-krb5-perl/trunk/debian/changelog Mon Aug  7 20:25:01 2006
@@ -1,3 +1,11 @@
+libauthen-krb5-perl (1.6-1) unstable; urgency=low
+
+  * New upstream release.
+  * Set Standards-Version to 3.7.2 (no changes).
+  * Set debhelper compatibility level to 5.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at>  Mon,  7 Aug 2006 22:08:17 +0200
+
 libauthen-krb5-perl (1.5-2) unstable; urgency=low
 
   * Set maintainer to the Debian Perl Group.

Modified: packages/libauthen-krb5-perl/trunk/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-krb5-perl/trunk/debian/compat?rev=3434&op=diff
==============================================================================
--- packages/libauthen-krb5-perl/trunk/debian/compat (original)
+++ packages/libauthen-krb5-perl/trunk/debian/compat Mon Aug  7 20:25:01 2006
@@ -1,1 +1,1 @@
-4
+5

Modified: packages/libauthen-krb5-perl/trunk/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-krb5-perl/trunk/debian/control?rev=3434&op=diff
==============================================================================
--- packages/libauthen-krb5-perl/trunk/debian/control (original)
+++ packages/libauthen-krb5-perl/trunk/debian/control Mon Aug  7 20:25:01 2006
@@ -1,10 +1,10 @@
 Source: libauthen-krb5-perl
 Section: perl
 Priority: optional
-Build-Depends: perl (>= 5.8.0-7), debhelper (>= 4.0.2), libkrb5-dev
+Build-Depends: perl (>= 5.8.0-7), debhelper (>= 5.0.0), libkrb5-dev
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Russ Allbery <rra at debian.org>
-Standards-Version: 3.6.2
+Uploaders: Russ Allbery <rra at debian.org>, gregor herrmann <gregor+debian at comodo.priv.at>
+Standards-Version: 3.7.2
 
 Package: libauthen-krb5-perl
 Architecture: any

Modified: packages/libauthen-krb5-perl/trunk/sample_client
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-krb5-perl/trunk/sample_client?rev=3434&op=diff
==============================================================================
--- packages/libauthen-krb5-perl/trunk/sample_client (original)
+++ packages/libauthen-krb5-perl/trunk/sample_client Mon Aug  7 20:25:01 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);
 

Modified: packages/libauthen-krb5-perl/trunk/sample_server
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-krb5-perl/trunk/sample_server?rev=3434&op=diff
==============================================================================
--- packages/libauthen-krb5-perl/trunk/sample_server (original)
+++ packages/libauthen-krb5-perl/trunk/sample_server Mon Aug  7 20:25:01 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);

Modified: packages/libauthen-krb5-perl/trunk/simple_client
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-krb5-perl/trunk/simple_client?rev=3434&op=diff
==============================================================================
--- packages/libauthen-krb5-perl/trunk/simple_client (original)
+++ packages/libauthen-krb5-perl/trunk/simple_client Mon Aug  7 20:25:01 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);
 

Modified: packages/libauthen-krb5-perl/trunk/simple_server
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-krb5-perl/trunk/simple_server?rev=3434&op=diff
==============================================================================
--- packages/libauthen-krb5-perl/trunk/simple_server (original)
+++ packages/libauthen-krb5-perl/trunk/simple_server Mon Aug  7 20:25:01 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);

Modified: packages/libauthen-krb5-perl/trunk/typemap
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-krb5-perl/trunk/typemap?rev=3434&op=diff
==============================================================================
--- packages/libauthen-krb5-perl/trunk/typemap (original)
+++ packages/libauthen-krb5-perl/trunk/typemap Mon Aug  7 20:25:01 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