Merge branch 'fix-append' of tildeverse/uucp into master

Fixed concatenation issues with the config files
This commit is contained in:
praetor 2019-03-24 21:10:51 -04:00 committed by Gitea
commit 6c20385bf8
1 changed files with 4 additions and 4 deletions

View File

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