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
   8 use DB_File;
   9
  10 my $database = $ARGV[0];
  11 die "Use: check,pl <database>\n" unless ($database);
  12 print "Using database: $database\n";
  13
  14 my %lusers = ();
  15
  16 tie %lusers, 'DB_File', $database, O_RDWR|O_CREAT, 0644, $DB_HASH ;
  17 while (<STDIN>) {
  18   my ($user, $pass) = split;
  19
  20   $lusers{$user} = $pass;
  21 }
  22 untie %lusers;
  23
  24