1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
/*
*
* Copyright (c) 1994-2008 Carnegie Mellon University. All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
*
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
*
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in
* the documentation and/or other materials provided with the
* distribution.
*
* 3. The name "Carnegie Mellon University" must not be used to
* endorse or promote products derived from this software without
* prior written permission. For permission or any legal
* details, please contact
* Carnegie Mellon University
* Center for Technology Transfer and Enterprise Creation
* 4615 Forbes Avenue
* Suite 302
* Pittsburgh, PA 15213
* (412) 268-7393, fax: (412) 268-7395
* innovation@andrew.cmu.edu
*
* 4. Redistributions of any form whatsoever must retain the following
* acknowledgment:
* "This product includes software developed by Computing Services
* at Carnegie Mellon University (http://www.cmu.edu/computing/)."
*
* CARNEGIE MELLON UNIVERSITY DISCLAIMS ALL WARRANTIES WITH REGARD TO
* THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
* AND FITNESS, IN NO EVENT SHALL CARNEGIE MELLON UNIVERSITY BE LIABLE
* FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
* AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
* OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*/
/*
* Internal callback rock, used to invoke arbitrary Perl code via a CODE
* reference ( \&sub ). Allocate with Perl's New(), free with Safefree().
* The Perl callback is a CODE reference; the rock is any Perl value.
* autofree is nonzero if the C callback routine should decrement the
* refcounts on the Perl objects and free the callback struct (used by the
* imclient_send() finish callback).
*/
struct xsccb {
SV *pcb; /* Perl callback PV */
SV *prock; /* Perl rock SV */
/* gack. but otherwise we're in even more pain */
struct xscyrus *client; /* client object, pre-Perlization */
int autofree; /* nonzero if callback should free it */
};
#ifdef CYRPERL_INTERNAL
#define rock_t struct xsccb *
#else
#define rock_t void *
#endif
/*
* our wrapper for the cyrus imclient struct. mainly exists so I can track
* callbacks without grotting around inside the struct imclient.
*/
struct xscb {
struct xscb *prev;
char *name;
int flags;
struct xsccb *rock;
struct xscb *next;
};
#define NUM_SUPPORTED_CALLBACKS 4
struct xscyrus {
struct imclient *imclient;
char *class;
struct xscb *cb;
int flags;
int authenticated;
int cnt; /* hack */
/* For holding per-connection information during authentication */
/* We need to initialize this when we create a new connection */
sasl_callback_t callbacks[NUM_SUPPORTED_CALLBACKS];
const char *username, *authname;
sasl_secret_t *password;
};
/* C callback to invoke a Perl callback on behalf of imclient */
/*void imclient_xs_cb(struct imclient *, rock_t, struct imclient_reply *);*/
/* C callback to invoke a Perl callback on behalf of imclient_send()'s cb */
/*void imclient_xs_fcmdcb(struct imclient *, rock_t,
struct imclient_reply *);*/
/* Clean up after a "self-freeing" Perl callback */
/*void imclient_xs_callback_free(struct xsccb *);*/
|
