/
githubmirror
/
linux-pam
Обзор
Документация
Войти
/
githubmirror
/
linux-pam
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
modules/pam_userdb/create.pl
21 строка
417 B
Dmitry V. Levin
Fix whitespace issues
27 окт 2011, 03:56
27 окт 2011, 03:56
1814aec
Код
Авторство
О чём код?
#!/usr/bin/perl # this program creates a database in ARGV[1] from pairs given on # stdandard input # # $Id$ 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;