jeffallen
/
uucp
forked from tildeverse/uucp
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix bug with bootstrap results

This commit is contained in:
Ben Harris 2019-03-24 21:08:49 -04:00
parent ccc95a3aac
commit 15c5046c82
Signed by untrusted user: ben
GPG Key ID: 4E0AF802FFF7960C
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
utils/bootstrap.pl
View File

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