From 46f67aa8d208b91dfcd2b5f6ed9e6c739b9f0017 Mon Sep 17 00:00:00 2001
From: Chip Black <bytex64@bytex64.net>
Date: Thu, 30 May 2013 03:07:39 -0500
Subject: [PATCH] Remove obsolete md5 conversion tool

---
 tools/convert_to_md5_passwords.pl | 23 -----------------------
 1 file changed, 23 deletions(-)
 delete mode 100644 tools/convert_to_md5_passwords.pl

diff --git a/tools/convert_to_md5_passwords.pl b/tools/convert_to_md5_passwords.pl
deleted file mode 100644
index a129715..0000000
--- a/tools/convert_to_md5_passwords.pl
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/usr/bin/perl
-# Yes, we were storing passwords in plain text.
-use Digest::MD5 qw/md5/;
-use strict;
-
-my $datadir = shift;
-
-opendir DATA, $datadir;
-while (my $user = readdir(DATA)) {
-	next if $user =~ /^\./;
-	print "Processing $user\n";
-	open P, "$datadir/$user/password";
-	my $password = <P>;
-	close P;
-	chomp $password;
-
-	my $md5password = md5($user . $password);
-
-	rename "$datadir/$user/password", "$datadir/$user/password.old";
-	open P, ">$datadir/$user/password";
-	print P $md5password;
-	close P;
-}
-- 
2.25.1