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);
|
open(FH, '>>', $sysFile);
|
||||||
print FH $template;
|
print FH $template;
|
||||||
};
|
|
||||||
|
|
||||||
sub generatePasswd {
|
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
sub generateConfig {
|
sub generateConfig {
|
||||||
my $nodeName = shift;
|
my $nodeName = shift;
|
||||||
|
|
||||||
my $confFile = "config";
|
my $confFile = "config";
|
||||||
open(FH, '>',$confFile);
|
open(FH, '>',$confFile);
|
||||||
|
|
||||||
my $nodeConfig = "nodename\t\t".$myNode;
|
my $nodeConfig = "nodename\t\t".$nodeName;
|
||||||
|
|
||||||
print FH $nodeConfig;
|
print FH $nodeConfig;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue