[Pkg-shadow-commits] r1714 - debian/trunk/tests/common

[nekral-guest at alioth.debian.org]

Author: nekral-guest
Date: 2008-01-12 15:47:10 +0000 (Sat, 12 Jan 2008)
New Revision: 1714

Added:
   debian/trunk/tests/common/compare_file.pl
Log:
Add common utility to compare the password and group files (with support
of variable data (password salt, date, etc.))


Added: debian/trunk/tests/common/compare_file.pl
===================================================================
--- debian/trunk/tests/common/compare_file.pl	                        (rev 0)
+++ debian/trunk/tests/common/compare_file.pl	2008-01-12 15:47:10 UTC (rev 1714)
@@ -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


Property changes on: debian/trunk/tests/common/compare_file.pl
___________________________________________________________________
Name: svn:executable
   + *