| Subject: | [PATCH] Support for gss_krb5_ccache_name |
Hi,
See attached patch to expose gss_krb5_ccache_name in order to be able to set the name of the credential cache used.
Feedback welcomed.
Cheers,
Phillip
| Subject: | GSSAPI-0.28-gss_krb5_ccache_name.patch |
diff -NBbur GSSAPI-0.28/GSSAPI/Krb5.pm GSSAPI-0.281/GSSAPI/Krb5.pm
--- GSSAPI-0.28/GSSAPI/Krb5.pm 1970-01-01 12:00:00.000000000 +1200
+++ GSSAPI-0.281/GSSAPI/Krb5.pm 2015-04-09 02:49:51.000000000 +1200
@@ -0,0 +1,55 @@
+package GSSAPI::Krb5;
+
+require 5.005_62;
+use strict;
+use warnings;
+
+require Exporter;
+
+our @ISA = qw(Exporter GSSAPI);
+
+our %EXPORT_TAGS = ( 'all' => [ qw() ] );
+
+our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
+our @EXPORT = ( @{ $EXPORT_TAGS{'all'} } );
+
+1;
+__END__
+
+=head1 NAME
+
+GSSAPI::Krb5 - methods for GSS Kerberos 5.
+
+=head1 SYNOPSIS
+
+ use GSSAPI;
+
+ my $ccacheFile = "FILE:/tmp/someCache";
+ my $ccacheOld = '';
+
+ my $status = GSSAPI::Krb5::ccache_name($ccacheFile, $ccacheOld);
+
+ if ($status) {
+ # blah blah blah
+ }
+
+
+
+=head1 DESCRIPTION
+
+C<GSSAPI::Krb5> provides a namespace for functions exposed relating to GSS Kerberos 5
+
+=head1 BUGS
+
+None known.
+
+=head1 AUTHOR
+
+Phillip O'Donnell <podonnell@cpan.org>
+
+=head1 SEE ALSO
+
+perl(1)
+GSSAPI(3p)
+
+=cut
diff -NBbur GSSAPI-0.28/GSSAPI.xs GSSAPI-0.281/GSSAPI.xs
--- GSSAPI-0.28/GSSAPI.xs 2010-04-28 09:28:30.000000000 +1200
+++ GSSAPI-0.281/GSSAPI.xs 2011-07-01 17:57:00.000000000 +1200
@@ -469,3 +469,7 @@
MODULE = GSSAPI PACKAGE = GSSAPI::Context
INCLUDE: xs/Context.xs
+
+MODULE = GSSAPI PACKAGE = GSSAPI::Krb5
+
+INCLUDE: xs/Krb5.xs
diff -NBbur GSSAPI-0.28/xs/Krb5.xs GSSAPI-0.281/xs/Krb5.xs
--- GSSAPI-0.28/xs/Krb5.xs 1970-01-01 12:00:00.000000000 +1200
+++ GSSAPI-0.281/xs/Krb5.xs 2011-07-01 18:31:29.000000000 +1200
@@ -0,0 +1,12 @@
+GSSAPI::Status
+ccache_name(name, old_name)
+ const char *name
+ const char *old_name
+ CODE:
+ RETVAL.major = gss_krb5_ccache_name(&RETVAL.minor, name, &old_name);
+
+ OUTPUT:
+ RETVAL
+ old_name
+
+