1
0
mirror of synced 2026-04-15 15:49:48 +00:00

2006-06-23 19:08:45 by steve

Fixed so that shadow copying works.
This commit is contained in:
steve
2006-06-23 19:08:46 +00:00
parent 31d8958b96
commit f1b46466d4
4 changed files with 8 additions and 20 deletions

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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