Commit 6f029ec0 authored by Mac Newbold's avatar Mac Newbold
Browse files

Fixed regexp on line 141 to not require a space and a list of links at the...

Fixed regexp on line 141 to not require a space and a list of links at the end, since often its not there.
parent 54f289a4
......@@ -138,7 +138,9 @@ $sth->finish;
exit(1);
};
foreach (split("\n",&ir_get("/topology/lans"))) {
($lan,$nodesraw,$linksraw) = /^([^ ]+) "([^\"]+)" [^ ]+ [^ ]+ [^ ]+ (.+)$/;
printdb("$_\n");
($lan,$nodesraw,$linksraw) = /^([^ ]+) "([^\"]+)" [^ ]+ [^ ]+ [^ ]+(?: )?(.*)$/;
printdb("lan='$lan' nodes='$nodesraw' links='$linksraw'\n");
my(@nodes) = split(" ",$nodesraw);
$lans{$lan} = [$lan,\@nodes];
# Check for sharkshelf
......
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