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
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
package POE::Component::Jabber::Error;
use warnings;
use strict;
use constant
{
'PCJ_SOCKETFAIL' => 0,
'PCJ_SOCKETDISCONNECT' => 1,
'PCJ_AUTHFAIL' => 2,
'PCJ_BINDFAIL' => 3,
'PCJ_SESSIONFAIL' => 4,
'PCJ_SSLFAIL' => 5,
'PCJ_CONNECTFAIL' => 6,
};
require Exporter;
our $VERSION = '2.02';
our @ISA = qw/ Exporter /;
our @EXPORT = qw/ PCJ_SOCKETFAIL PCJ_SOCKETDISCONNECT PCJ_AUTHFAIL PCJ_BINDFAIL
PCJ_SESSIONFAIL PCJ_SSLFAIL PCJ_CONNECTFAIL/;
1;
__END__
=pod
=head1 NAME
POE::Component::Jabber::Error - Error constants for use in PCJ
=head1 SYNOPSIS
use POE::Component::Jabber::Error; # All constants imported
sub error_handler()
{
my $error = $_[ARG0];
if($error == +PCJ_SOCKETFAIL)
{
my ($call, $code, $err) = @_[ARG1..ARG3];
print "Socket error: $call, $code, $err\n";
} elsif ($error == +PCJ_SOCKETDISCONNECT) {
print "We got disconneted\n";
} elsif ($error == +PCJ_CONNECTFAIL) {
print "We failed to connect\n";
} elsif ($error == +PCJ_AUTHFAIL) {
print "Failed to authenticate\n";
} elsif ($error == +PCJ_BINDFAIL) {
print "Failed to bind a resource\n"; # XMPP/J2 Only
} elsif ($error == +PCJ_SESSIONFAIL) {
print "Failed to establish a session\n"; # XMPP Only
} elsif ($error == +PCJ_SSLFAIL) {
my $err = @_[+ARG1];
print "TLS/SSL negotiation failed: $err\n"; #XMPP/J2 only
}
}
=head1 DESCRIPTION
POE::Component::Jabber::Error provides error constants for use in error
handlers to determine the type of error one of the Client classes encountered.
Simply `use`ing the class imports all of the constants
=head1 ERRORS
=over 4
=item PCJ_SOCKETFAIL
There has been some sort of socket error. ARG1..ARG3 are what
the POE::Wheel::ReadWrite gave to us.
See POE::Wheel::ReadWrite for further details on what is returned.
=item PCJ_SOCKETDISCONNECT
The socket has been disconnected.
=item PCJ_CONNECTFAIL
Failed to establish a TCP connection.
=item PCJ_AUTHFAIL
Authentication has failed.
=item PCJ_BINDFAIL
Resource/Domain binding has failed. XMPP/J2 Only
=item PCJ_SESSIONFAIL
Session establishment has failed. XMPP Only
=item PCJ_SSLFAIL
TLS/SSL negotiation has failed. ARG1 is what POE::Component::SSLify sets to $@
for your ever delightful information. XMPP/J2 Only
=back
=head1 NOTES
These errors aren't written in stone. They are written in vim. They are
subject to change.
=head1 AUTHORS AND COPYRIGHT
Copyright (c) 2004 - 2007 Nicholas Perez. Released and distributed under the GPL.
=cut
|
