my $mac = $row->{'MAC addr'} or die "no mac addr\n";
$mac =~ m/^[0-9a-f]{2}(?:\:[0-9a-f]{2}){5}$/ or die "bad mac\n";
$mac = $&;
- outfor 'testhosts.m4',
+ outfor 'playbook/hosts/testhosts.m4',
sprintf "T%d(\t%d,\t%s,%s\t%s)\n", $net, $host, $machine,
(length($machine)<=6 ? "\t" : ""), $mac;
};
my ($physport, $ttyrp) = ($1,$2);
$physport eq $ttyrp+1 or die "serial numbering mismatch\n";
setprop 'Serial', "sympathy serial0";
+ outfor '/etc/serialmgr/config',
+ sprintf "serial0:/dev/ttyRP%d:115200:sympathy:root::%s:-B\n",
+ $ttyrp, $machine;
};
reportno 'Serial';
}