1 GSSAPI::OID::Set_out
new(class)2 new(class)
3 char * class
4 PREINIT:
5 OM_uint32 minor_status;
6 CODE:
7 if (GSS_ERROR(gss_create_empty_oid_set(&minor_status, &RETVAL))) {
8 XSRETURN_UNDEF;
9 }
10 OUTPUT:
11 RETVAL
12
13 void
14 DESTROY(oidset)
15 GSSAPI::OID::Set oidset
16 PREINIT:
17 OM_uint32 minor;
18 CODE:
19 if (oidset != 0 && oid_set_is_dynamic(oidset)) {
20 (void)gss_release_oid_set(&minor, &oidset);
21 }
22
23 GSSAPI::Status
24 insert(oidset, oid)
25 GSSAPI::OID::Set oidset
26 GSSAPI::OID oid
27 CODE:
28 if (! oid_set_is_dynamic(oidset)) {
29 croak("oidset is not alterable");
30 }
31 RETVAL.major = gss_add_oid_set_member(&RETVAL.minor, oid, &oidset);
32 OUTPUT:
33 RETVAL
34
35 GSSAPI::Status
36 contains(oidset, oid, isthere)
37 GSSAPI::OID::Set oidset
38 GSSAPI::OID oid
39 int isthere
40 CODE:
41 RETVAL.major = gss_test_oid_set_member(&RETVAL.minor,
42 oid, oidset, &isthere);
43 OUTPUT:
44 RETVAL
45 isthere
46
47
48 #
49 # Kerberos OID_sets
50 #
51
52 #GSSAPI::OID::Set_const
53 #gss_mech_set_krb5()
54 # CODE:
55 # RETVAL = gss_mech_set_krb5;
56 # OUTPUT:
57 # RETVAL
58
59 #GSSAPI::OID::Set_const
60 #gss_mech_set_krb5_old()
61 # CODE:
62 # RETVAL = gss_mech_set_krb5_old;
63 # OUTPUT:
64 # RETVAL
65
66 #GSSAPI::OID::Set_const
67 #gss_mech_set_krb5_both()
68 # CODE:
69 # RETVAL = gss_mech_set_krb5_both;
70 # OUTPUT:
71 # RETVAL
72
73 # Achim Grolms, 2006-02-04
74 # deleted this function, it makes the compile
75 # fail, I don't know if this function is useful
76 #
77
78 #GSSAPI::OID::Set_const
79 #gss_mech_set_krb5_v2()
80 # CODE:
81 # RETVAL = gss_mech_set_krb5_v2;
82 # OUTPUT:
83 # RETVAL
84
85 # Achim Grolms, 2006-02-04
86 # deleted this function, it makes the compile
87 # fail, I don't know if this function is useful
88 #
89 #GSSAPI::OID::Set_const
90 #gss_mech_set_krb5_v1v2()
91 # CODE:
92 # RETVAL = gss_mech_set_krb5_v1v2;
93 # OUTPUT:
94 # RETVAL
95
96