From f1b46466d4f0fa06eaf34ad890c79d6d5e5144f9 Mon Sep 17 00:00:00 2001
From: steve <none@none>
Date: Fri, 23 Jun 2006 19:08:46 +0000
Subject: [PATCH] 2006-06-23 19:08:45 by steve   Fixed so that shadow copying
 works.

---
 hooks/centos4/35-setup-users | 7 ++-----
 hooks/debian/35-setup-users  | 7 ++-----
 hooks/gentoo/35-setup-users  | 7 ++-----
 hooks/ubuntu/35-setup-users  | 7 ++-----
 4 files changed, 8 insertions(+), 20 deletions(-)

diff --git a/hooks/centos4/35-setup-users b/hooks/centos4/35-setup-users
index 76973f4..1df253c 100755
--- a/hooks/centos4/35-setup-users
+++ b/hooks/centos4/35-setup-users
@@ -27,7 +27,6 @@ die "Prefix must be a directory" unless ( -d $prefix );
 #
 exit unless ( $ENV{'accounts'} );
 
-
 #
 #  Make sure we have $prefix/etc
 #
@@ -119,8 +118,6 @@ sub addAccount
             open( OUTY, ">>", $prefix . "/etc/passwd" );
             print OUTY $line . "\n";
             close( OUTY );
-
-            print "addexd\n";
         }
     }
     close( PASSWD );
@@ -129,11 +126,11 @@ sub addAccount
     #
     #  shadow file.
     #
-    open( SHADOW, "<", "/etc/shadow" ) or return;
+    open( SHADOW, "<", "/etc/shadow" ) or die "Failed to open : $!";
     foreach my $line ( <SHADOW> )
     {
         chomp( $line );
-        if ( $line =~ /\Q^$user:^E/ )
+        if ( $line =~ /^\Q$user\E:/ )
         {
             #
             #  Add the line
diff --git a/hooks/debian/35-setup-users b/hooks/debian/35-setup-users
index 76973f4..1df253c 100755
--- a/hooks/debian/35-setup-users
+++ b/hooks/debian/35-setup-users
@@ -27,7 +27,6 @@ die "Prefix must be a directory" unless ( -d $prefix );
 #
 exit unless ( $ENV{'accounts'} );
 
-
 #
 #  Make sure we have $prefix/etc
 #
@@ -119,8 +118,6 @@ sub addAccount
             open( OUTY, ">>", $prefix . "/etc/passwd" );
             print OUTY $line . "\n";
             close( OUTY );
-
-            print "addexd\n";
         }
     }
     close( PASSWD );
@@ -129,11 +126,11 @@ sub addAccount
     #
     #  shadow file.
     #
-    open( SHADOW, "<", "/etc/shadow" ) or return;
+    open( SHADOW, "<", "/etc/shadow" ) or die "Failed to open : $!";
     foreach my $line ( <SHADOW> )
     {
         chomp( $line );
-        if ( $line =~ /\Q^$user:^E/ )
+        if ( $line =~ /^\Q$user\E:/ )
         {
             #
             #  Add the line
diff --git a/hooks/gentoo/35-setup-users b/hooks/gentoo/35-setup-users
index 76973f4..1df253c 100755
--- a/hooks/gentoo/35-setup-users
+++ b/hooks/gentoo/35-setup-users
@@ -27,7 +27,6 @@ die "Prefix must be a directory" unless ( -d $prefix );
 #
 exit unless ( $ENV{'accounts'} );
 
-
 #
 #  Make sure we have $prefix/etc
 #
@@ -119,8 +118,6 @@ sub addAccount
             open( OUTY, ">>", $prefix . "/etc/passwd" );
             print OUTY $line . "\n";
             close( OUTY );
-
-            print "addexd\n";
         }
     }
     close( PASSWD );
@@ -129,11 +126,11 @@ sub addAccount
     #
     #  shadow file.
     #
-    open( SHADOW, "<", "/etc/shadow" ) or return;
+    open( SHADOW, "<", "/etc/shadow" ) or die "Failed to open : $!";
     foreach my $line ( <SHADOW> )
     {
         chomp( $line );
-        if ( $line =~ /\Q^$user:^E/ )
+        if ( $line =~ /^\Q$user\E:/ )
         {
             #
             #  Add the line
diff --git a/hooks/ubuntu/35-setup-users b/hooks/ubuntu/35-setup-users
index 76973f4..1df253c 100755
--- a/hooks/ubuntu/35-setup-users
+++ b/hooks/ubuntu/35-setup-users
@@ -27,7 +27,6 @@ die "Prefix must be a directory" unless ( -d $prefix );
 #
 exit unless ( $ENV{'accounts'} );
 
-
 #
 #  Make sure we have $prefix/etc
 #
@@ -119,8 +118,6 @@ sub addAccount
             open( OUTY, ">>", $prefix . "/etc/passwd" );
             print OUTY $line . "\n";
             close( OUTY );
-
-            print "addexd\n";
         }
     }
     close( PASSWD );
@@ -129,11 +126,11 @@ sub addAccount
     #
     #  shadow file.
     #
-    open( SHADOW, "<", "/etc/shadow" ) or return;
+    open( SHADOW, "<", "/etc/shadow" ) or die "Failed to open : $!";
     foreach my $line ( <SHADOW> )
     {
         chomp( $line );
-        if ( $line =~ /\Q^$user:^E/ )
+        if ( $line =~ /^\Q$user\E:/ )
         {
             #
             #  Add the line