Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tag: v2.11
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

executable file 19 lines (11 sloc) 0.367 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#!/usr/bin/env perl

# short script to check compatability with previous Authen::SASL library

use lib 'lib';
use Authen::SASL;

my $sasl = Authen::SASL->new('CRAM-MD5', password => 'fred');

$sasl->user('gbarr');

$initial = $sasl->initial;
$mech = $sasl->name;

print "$mech;", unpack("H*",$initial),";\n";

print unpack "H*", $sasl->challenge('xyz');
print "\n";
Something went wrong with that request. Please try again.