d76a6fef95
git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@14807 ec53bebd-3082-4978-b11e-865c3cabbd6b
36 lines
668 B
Perl
Executable File
36 lines
668 B
Perl
Executable File
#!/usr/pkg/bin/perl
|
|
#
|
|
# Sample cracklib password verifier for Heimdals external password
|
|
# verifier, see the chapter "Password changing" in the the info
|
|
# documentation for more information about the protocol used.
|
|
#
|
|
# $Id$
|
|
|
|
use strict;
|
|
use Crypt::Cracklib;
|
|
|
|
my $database = '/usr/pkg/libdata/pw_dict';
|
|
|
|
my %params;
|
|
|
|
while (<>) {
|
|
last if /^end$/;
|
|
if (!/^([^:]+): (.+)$/) {
|
|
die "key value pair not correct: $_";
|
|
}
|
|
$params{$1} = $2;
|
|
}
|
|
|
|
die "missing password" if (!defined $params{'new-password'});
|
|
|
|
my $reason = fascist_check($params{'new-password'}, $database);
|
|
|
|
if ($reason eq "ok") {
|
|
print "APPROVED\n";
|
|
} else {
|
|
print "$reason\n";
|
|
}
|
|
|
|
exit 0
|
|
|