From: ivan <ivan>
Date: Mon, 19 Jun 2006 12:47:55 +0000 (+0000)
Subject: better error checking for this thrown-together bootstrapping script
X-Git-Tag: BEFORE_FINAL_MASONIZE~106
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=3489c3e13d952972c06b82d1eb2bbd0315ed5a7c

better error checking for this thrown-together bootstrapping script
---

diff --git a/bin/mapsecrets2access_user b/bin/mapsecrets2access_user
index b34e0321a..3fcd5069b 100755
--- a/bin/mapsecrets2access_user
+++ b/bin/mapsecrets2access_user
@@ -46,7 +46,7 @@ unless ( $supergroup ) {
 my $supergroupnum = $supergroup->groupnum;
 
 my $mapsecrets = '/usr/local/etc/freeside/mapsecrets';
-open(MAPSECRETS, "<$mapsecrets");
+open(MAPSECRETS, "<$mapsecrets") or die $!;
 while (<MAPSECRETS>) {
   /([\w]+)\s+secrets\s*$/ or die "unparsable line in mapsecrets: $_";
   my $username = $1;
@@ -70,9 +70,10 @@ while (<MAPSECRETS>) {
   die $aug_error if $aug_error;
 
 }
+close MAPSECRETS;
 
 # okay to clobber mapsecrets now i guess
 cp $mapsecrets, "$mapsecrets.bak$$";
-open(MAPSECRETS, ">$mapsecrets");
+open(MAPSECRETS, ">$mapsecrets") or die $!;
 print MAPSECRETS '* secrets'. "\n";
-close MAPSECRETS;
+close MAPSECRETS or die $!;