diff --git a/utils/bootstrap.pl b/utils/bootstrap.pl index ec81bd7..ddbd3ab 100755 --- a/utils/bootstrap.pl +++ b/utils/bootstrap.pl @@ -46,7 +46,7 @@ sub generatePort { }; my $portFile = "port"; - open(FH, '>>', $portFile); + open(FH, '>', $portFile); print FH $template; } @@ -74,7 +74,7 @@ sub generateSys { my $sysFile = "sys"; - open(FH, '>>', $sysFile); + open(FH, '>', $sysFile); print FH $template; } @@ -105,7 +105,7 @@ sub generateCall{ my $callHash = md5_hex($password); my $callPasswd = $nodeName."\t"."U".$myNode."\t".$callHash."\n"; - open(FH, '>>', $callFile); + open(FH, '>', $callFile); print FH $callPasswd; } @@ -118,7 +118,7 @@ sub generatePasswd { my $passwdHash = md5_hex($password); my $authPasswd = "U".$nodeName."\t".$passwdHash."\n"; - open(FH, '>>', $passwdFile); + open(FH, '>', $passwdFile); print FH $authPasswd; }