1 
2 GSSAPI::Binding_out
3 new(class)
4 	char *class;
5     CODE:
6 	New(0, RETVAL, 1, struct gss_channel_bindings_struct);
7 	RETVAL->initiator_addrtype = GSS_C_AF_NULLADDR;
8 	RETVAL->initiator_address.length = 0;
9 	RETVAL->initiator_address.value = NULL;
10 	RETVAL->acceptor_addrtype = GSS_C_AF_NULLADDR;
11 	RETVAL->acceptor_address.length = 0;
12 	RETVAL->acceptor_address.value = NULL;
13 	RETVAL->application_data.length = 0;
14 	RETVAL->application_data.value = NULL;
15     OUTPUT:
16 	RETVAL
17 
18 void
19 DESTROY(self)
20 	GSSAPI::Binding	self
21     CODE:
22 	if (self->initiator_address.value)
23 	    Safefree(self->initiator_address.value);
24 	if (self->acceptor_address.value)
25 	    Safefree(self->acceptor_address.value);
26 	if (self->application_data.value)
27 	    Safefree(self->application_data.value);
28 	Safefree(self);
29 
30 void
31 set_initiator(self, addrtype, address)
32 	GSSAPI::Binding		self
33 	OM_uint32		addrtype
34 	gss_buffer_desc_copy	address
35     CODE:
36 	if (self->initiator_address.value)
37 	    Safefree(self->initiator_address.value);
38 	self->initiator_addrtype = addrtype;
39 	self->initiator_address.length = address.length;
40 	self->initiator_address.value = address.value;
41 
42 void
43 set_acceptor(self, addrtype, address)
44 	GSSAPI::Binding		self
45 	OM_uint32		addrtype
46 	gss_buffer_desc_copy	address
47     CODE:
48 	if (self->acceptor_address.value)
49 	    Safefree(self->acceptor_address.value);
50 	self->acceptor_addrtype = addrtype;
51 	self->acceptor_address.length = address.length;
52 	self->acceptor_address.value = address.value;
53 
54 void
55 set_appl_data(self, data)
56 	GSSAPI::Binding		self
57 	gss_buffer_desc_copy	data
58     CODE:
59 	if (self->application_data.value)
60 	    Safefree(self->application_data.value);
61 	self->application_data.length = data.length;
62 	self->application_data.value = data.value;
63 
64 OM_uint32
65 get_initiator_addrtype(self)
66 	GSSAPI::Binding	self
67     CODE:
68 	RETVAL = self->initiator_addrtype;
69     OUTPUT:
70 	RETVAL
71 
72 gss_buffer_desc_copy
73 get_initiator_address(self)
74 	GSSAPI::Binding	self
75     CODE:
76 	RETVAL.length = self->initiator_address.length;
77 	RETVAL.value = self->initiator_address.value;
78     OUTPUT:
79 	RETVAL
80 
81 OM_uint32
82 get_acceptor_addrtype(self)
83 	GSSAPI::Binding	self
84     CODE:
85 	RETVAL = self->acceptor_addrtype;
86     OUTPUT:
87 	RETVAL
88 
89 gss_buffer_desc_copy
90 get_acceptor_address(self)
91 	GSSAPI::Binding	self
92     CODE:
93 	RETVAL.length = self->acceptor_address.length;
94 	RETVAL.value = self->acceptor_address.value;
95     OUTPUT:
96 	RETVAL
97 
98 gss_buffer_desc_copy
99 get_appl_data(self)
100 	GSSAPI::Binding	self
101     CODE:
102 	RETVAL.length = self->application_data.length;
103 	RETVAL.value = self->application_data.value;
104     OUTPUT:
105 	RETVAL
106