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
|
package Authen::SASL::Cyrus;
require DynaLoader;
require Authen::SASL::Cyrus::Security;
require Exporter;
@ISA = qw(DynaLoader);# Exporter);
# Modified for Debian from 0.13-server to avoid Perl 5.12 problems with
# non-numeric versions.
$VERSION = "0.13.1";
bootstrap Authen::SASL::Cyrus $VERSION;
#
# Take a client filehandle and tie it to the Security subclass to
# perform SASL encryption and decryption on the network traffic
#
sub tiesocket {
my($sasl, $fh) = @_;
new Authen::SASL::Cyrus::Security($fh, $sasl);
}
# Create a new client filehandle and tie it to the Security subclass to
# perform SASL encryption and decryption on the network traffic
sub securesocket {
my ($sasl, $fh) = @_;
my $glob = \do { local *GLOB; };
tie(*$glob, "Authen::SASL::Cyrus::Security", $fh, $sasl);
$glob;
}
1;
|
