Commit 89a70320 authored by Robert Ricci's avatar Robert Ricci

Can now handle PCs that look like 'tbpc' or 'pc'

parent 2f9b1264
......@@ -17,7 +17,7 @@ while (<>) {
if ( /^\|node_id/) {next;}
/^\|([a-zA-Z0-9]*).*\|/;
$node=$1;
if ($node =~/^(tbpc|sh)/) {
if ($node =~/^((tb){0,1}pc|sh)/) {
print STDERR "Got '$node' \t" if $d && !defined ($nodes{$node});
$nodes{$node} = 1;
}
......@@ -57,7 +57,7 @@ print "node cisco switch\n";
# Give the nodes:
foreach $node (sort keys %nodes) {
if ($node =~ /tbpc/) {
if ($node =~ /pc/) {
print "node $node pc:1 delay:2\n";
print "link $node-0 $node:$links{$node.'-0'} cisco 100 1\n";
print "link $node-1 $node:$links{$node.'-1'} cisco 100 1\n";
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment