forked from tildeverse/uucp
fix bug with bootstrap results
This commit is contained in:
parent
ccc95a3aac
commit
15c5046c82
|
@ -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;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user