blob: 28088102cf17dcd0f99ecad4b31fa96556cbdeea (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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;
|
