#!/usr/bin/perl
-# $Id: sync-accounts,v 1.10 1999-01-03 02:16:49 ian Exp $
+# $Id: sync-accounts,v 1.11 1999-01-03 02:19:27 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) {
- (@stats= stat $file) or die "$file: $!";
+ (@stats= stat "/etc/$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 $!;