projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
637378f
)
better error checking for this thrown-together bootstrapping script
author
ivan
<ivan>
Mon, 19 Jun 2006 12:47:55 +0000
(12:47 +0000)
committer
ivan
<ivan>
Mon, 19 Jun 2006 12:47:55 +0000
(12:47 +0000)
bin/mapsecrets2access_user
patch
|
blob
|
history
diff --git
a/bin/mapsecrets2access_user
b/bin/mapsecrets2access_user
index
b34e032
..
3fcd506
100755
(executable)
--- 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';
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;
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;
}
die $aug_error if $aug_error;
}
+close MAPSECRETS;
# okay to clobber mapsecrets now i guess
cp $mapsecrets, "$mapsecrets.bak$$";
# okay to clobber mapsecrets now i guess
cp $mapsecrets, "$mapsecrets.bak$$";
-open(MAPSECRETS, ">$mapsecrets");
+open(MAPSECRETS, ">$mapsecrets")
or die $!
;
print MAPSECRETS '* secrets'. "\n";
print MAPSECRETS '* secrets'. "\n";
-close MAPSECRETS;
+close MAPSECRETS
or die $!
;