Merge from vendor branch GCC:
[dragonfly.git] / contrib / libpam / modules / pam_userdb / create.pl
1 #!/usr/bin/perl
2 # this program creates a database in ARGV[1] from pairs given on 
3 # stdandard input
4 #
5 # $Id: create.pl,v 1.1.1.1 2000/06/20 22:12:09 agmorgan Exp $
6 # $FreeBSD: src/contrib/libpam/modules/pam_userdb/create.pl,v 1.1.1.1.2.2 2001/06/11 15:28:33 markm Exp $
7 # $DragonFly: src/contrib/libpam/modules/pam_userdb/Attic/create.pl,v 1.2 2003/06/17 04:24:03 dillon Exp $
8
9 use DB_File;
10
11 my $database = $ARGV[0];
12 die "Use: check,pl <database>\n" unless ($database);
13 print "Using database: $database\n";
14
15 my %lusers = ();
16
17 tie %lusers, 'DB_File', $database, O_RDWR|O_CREAT, 0644, $DB_HASH ;
18 while (<STDIN>) {
19   my ($user, $pass) = split;
20
21   $lusers{$user} = $pass;
22 }
23 untie %lusers;
24
25