forked from tildeverse/uucp
fixed config file bug
This commit is contained in:
parent
89ce28e5d4
commit
53ed8e0e5b
|
@ -73,19 +73,15 @@ sub generateSys {
|
|||
|
||||
open(FH, '>>', $sysFile);
|
||||
print FH $template;
|
||||
};
|
||||
|
||||
sub generatePasswd {
|
||||
|
||||
}
|
||||
|
||||
|
||||
sub generateConfig {
|
||||
my $nodeName = shift;
|
||||
|
||||
my $confFile = "config";
|
||||
open(FH, '>',$confFile);
|
||||
|
||||
my $nodeConfig = "nodename\t\t".$myNode;
|
||||
my $nodeConfig = "nodename\t\t".$nodeName;
|
||||
|
||||
print FH $nodeConfig;
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue