Changeset 225

Show
Ignore:
Timestamp:
03/22/07 16:53:01 (2 years ago)
Author:
ludo
Message:

backup etc/ether before updating (from r4144)

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/server/admin/perl/check_add_host

    r140 r225  
    2020# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA. 
    2121 
     22use File::Copy; 
    2223 
    2324my $base; 
    …… 
    219220 my $newline=shift; 
    220221 
    221  open FILE,">".$file or die; 
     222 copy($file, $file.".old") or die("Cannot copy etc/ether. $!\n"); 
     223 open FILE,">".$file or die("Cannot write etc/ether. $!"); 
    222224 print FILE "#Automatically generated, do not edit\n\n"; 
    223225 foreach my $i (keys %$old)