1package Authen::SASL::Cyrus; 2require DynaLoader; 3require Authen::SASL::Cyrus::Security; 4@ISA = qw(DynaLoader); 5$VERSION = "0.13"; 6bootstrap Authen::SASL::Cyrus $VERSION; 7 8 9 10# 11# Take a client filehandle and tie it to the Security subclass to 12# perform SASL encryption and decryption on the network traffic 13# 14sub tiesocket { 15 my($sasl, $fh) = @_; 16 17 new Authen::SASL::Cyrus::Security($fh, $sasl); 18} 19 20 21 22# Create a new client filehandle and tie it to the Security subclass to 23# perform SASL encryption and decryption on the network traffic 24sub securesocket { 25 my ($sasl, $fh) = @_; 26 my $glob = \do { local *GLOB; }; 27 tie(*$glob, "Authen::SASL::Cyrus::Security", $fh, $sasl); 28 $glob; 29} 30 31 32 331; 34