From 89c07802de0cce49757ab8fb62191c14ac6393a3 Mon Sep 17 00:00:00 2001
From: nekral-guest <nekral-guest@5a98b0ae-9ef6-0310-add3-de5d479b70d7>
Date: Sat, 12 Jan 2008 15:47:10 +0000
Subject: [PATCH] Add common utility to compare the password and group files
 (with support of variable data (password salt, date, etc.))

---
 tests/common/compare_file.pl | 46 ++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100755 tests/common/compare_file.pl

diff --git a/tests/common/compare_file.pl b/tests/common/compare_file.pl
new file mode 100755
index 00000000..349f9457
--- /dev/null
+++ b/tests/common/compare_file.pl
@@ -0,0 +1,46 @@
+#!/usr/bin/perl
+
+open (TEMPLATE, $ARGV[0]) or die "Cannot open '".$ARGV[0]."': $!";
+my $template = join "", <TEMPLATE>;
+open (FILE, $ARGV[1]) or die "Cannot open '".$ARGV[1]."': $!";
+my $file = join "", <FILE>;
+
+my $today = int(time()/(24*3600));
+$template =~ s/\@TODAY\@/$today/g;
+
+if ($template =~ m/(.*):\@PASS_DES (.*)\@:/m) {
+	my $user = $1;
+	my $pass = $2;
+	$file =~ s/^$user:([^:]*):(.*)$/$user:\@PASS_DES $pass\@:$2/m;
+	my $cryptpass = $1;
+	# Check the password
+	my $checkpass = qx|/usr/bin/openssl passwd -crypt -salt $cryptpass $pass|;
+	chomp $checkpass;
+
+	die "Wrong password: '$cryptpass'. Expected password: '$checkpass'\n"
+		if ($checkpass ne $cryptpass);
+}
+
+if ($template =~ m/(.*):\@PASS_MD5 (.*)\@:/m) {
+	my $user = $1;
+	my $pass = $2;
+	$file =~ s/^$user:([^:]*):(.*)$/$user:\@PASS_MD5 $pass\@:$2/m;
+	my $cryptpass = $1;
+	# Check the password
+	my $salt = $cryptpass;
+	$salt =~ s/^\$1\$//;
+	my $checkpass = qx|/usr/bin/openssl passwd -1 -salt '$salt' '$pass'|;
+	chomp $checkpass;
+
+	die "Wrong password: '$cryptpass'. Expected password: '$checkpass'\n"
+		if ($checkpass ne $cryptpass);
+}
+
+
+exit 0 if ($file =~ m/^\Q$template\E$/s);
+
+print "Files differ.\n";
+
+system "diff", "-au", $ARGV[0], $ARGV[1];
+
+exit 1