oysteikt/heimdal
0
0
Fork 0
Code Issues 5 Pull Requests Releases Activity

spelling and fixes problems, pointed out by Hai Zaar.

Browse Source 
git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@20578 ec53bebd-3082-4978-b11e-865c3cabbd6b
This commit is contained in:
Love Hörnquist Åstrand
2007-05-07 22:21:51 +00:00
parent 1da031f45b
commit e30a0ffae3
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/kadm5/check-cracklib.pl
View File

@@ -19,7 +19,7 @@
# * cracklib (2.8.5) http://sourceforge.net/projects/cracklib # * cracklib (2.8.5) http://sourceforge.net/projects/cracklib
# * Crypt-Cracklib perlmodule (0.01) http://search.cpan.org/~daniel/ # * Crypt-Cracklib perlmodule (0.01) http://search.cpan.org/~daniel/
# #
# Samaple dictionaries: # Sample dictionaries:
# cracklib-words (1.1) http://sourceforge.net/projects/cracklib # cracklib-words (1.1) http://sourceforge.net/projects/cracklib
# miscfiles (1.4.2) http://directory.fsf.org/miscfiles.html # miscfiles (1.4.2) http://directory.fsf.org/miscfiles.html
# #
@@ -35,8 +35,10 @@ use strict;
use Crypt::Cracklib; use Crypt::Cracklib;
use Digest::MD5; use Digest::MD5;
# NEED TO CHANGE THESE TO MATCH YOUR SYSTEM
my $database = '/usr/lib/cracklib_dict'; my $database = '/usr/lib/cracklib_dict';
my $repeatdb = '/var/heimdal/repeatdb'; my $historydb = '/var/heimdal/historydb';
# NEED TO CHANGE THESE TO MATCH YOUR SYSTEM
my %params; my %params;
@@ -64,10 +66,10 @@ sub check_repeat
my $key=$md5context->hexdigest(); my $key=$md5context->hexdigest();
dbmopen(%DB,$repeatdb,0600) or die "Internal: Could not open $db"; dbmopen(%DB,$historydb,0600) or die "Internal: Could not open $historydb";
$result = "ok" if (!$DB{$key}); $result = "ok" if (!$DB{$key});
$DB{$key}=scalar(time()); $DB{$key}=scalar(time());
dbmclose(%DB) or die "Internal: Could not close $db"; dbmclose(%DB) or die "Internal: Could not close $historydb";
return $result; return $result;
} }