#!/usr/bin/perl
-# $Id: sync-accounts,v 1.9 1999-01-03 01:56:57 ian Exp $
+# $Id: sync-accounts,v 1.10 1999-01-03 02:16:49 ian Exp $
# usage: sync-accounts [-n] [-C<config-file>] [<host> ...]
# options:
# -n do not really do anything
close NF or die $!;
system "diff -U0 /etc/$file $newfile"; $?==256 or die $?;
if (!$no_act) {
- if ($file eq 'shadow') {
- system "chown root.shadow $newfile"; $? and die $?;
- chmod 0640, $newfile or die $!;
- } else {
- chown 0,0, $newfile or die $!;
- chmod 0644, $newfile or die $!;
- }
+ (@stats= stat $file) or die "$file: $!";
+ chown $stats[4],$stats[5], $newfile or die $!;
+ chmod $stats[2] & 07777, $newfile or die $!;
rename $newfile, "/etc/$file" or die $!;
}
}