diff options
| author | Steve Langasek <steve.langasek@ubuntu.com> | 2019-01-03 13:00:10 -0800 |
|---|---|---|
| committer | Steve Langasek <steve.langasek@ubuntu.com> | 2019-01-03 13:00:10 -0800 |
| commit | 9d69c7bbb05cc22edce56e751cef5828e652988a (patch) | |
| tree | b97c4aa6e6133fa3e319805c5190819020838c32 /Linux-PAM/modules/pam_userdb/create.pl | |
| parent | a6f4ab0bebc76acf85cc0244bd21c1036009c28c (diff) | |
| parent | d5b06b67bbeeed7c05c0eb2e05d6a972ad050d1c (diff) | |
| download | pam-9d69c7bbb05cc22edce56e751cef5828e652988a.tar.gz pam-9d69c7bbb05cc22edce56e751cef5828e652988a.tar.bz2 pam-9d69c7bbb05cc22edce56e751cef5828e652988a.zip | |
Merge tag 'upstream/0.99.7.1' into debian
Diffstat (limited to 'Linux-PAM/modules/pam_userdb/create.pl')
| -rw-r--r-- | Linux-PAM/modules/pam_userdb/create.pl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/Linux-PAM/modules/pam_userdb/create.pl b/Linux-PAM/modules/pam_userdb/create.pl new file mode 100644 index 00000000..28088102 --- /dev/null +++ b/Linux-PAM/modules/pam_userdb/create.pl @@ -0,0 +1,23 @@ +#!/usr/bin/perl +# this program creates a database in ARGV[1] from pairs given on +# stdandard input +# +# $Id: create.pl,v 1.2 2004/09/28 13:48:47 kukuk Exp $ + +use DB_File; + +my $database = $ARGV[0]; +die "Use: create.pl <database>\n" unless ($database); +print "Using database: $database\n"; + +my %lusers = (); + +tie %lusers, 'DB_File', $database, O_RDWR|O_CREAT, 0644, $DB_HASH ; +while (<STDIN>) { + my ($user, $pass) = split; + + $lusers{$user} = $pass; +} +untie %lusers; + + |