|
|
|
@ -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; |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|