From efd31890b5ed496a5a00c08a262da240e66a4ddc Mon Sep 17 00:00:00 2001
From: Steve Langasek <steve.langasek@ubuntu.com>
Date: Thu, 3 Jan 2019 12:44:11 -0800
Subject: New upstream version 0.76

---
 modules/pam_userdb/create.pl | 23 -----------------------
 1 file changed, 23 deletions(-)
 delete mode 100644 modules/pam_userdb/create.pl

(limited to 'modules/pam_userdb/create.pl')

diff --git a/modules/pam_userdb/create.pl b/modules/pam_userdb/create.pl
deleted file mode 100644
index 046b55f0..00000000
--- a/modules/pam_userdb/create.pl
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/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: check,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;
-
-
-- 
cgit v1.2.3