- #278 7.2 -9.4 h 2.3
- if($line =~ /^(.*) (.*) (.*) h (.*)$/)
- {
- print "\t\t<peer id=\"peer-$1\" coordinates=\"$2 $3 $4\" power=\"730000000.0\"\n";
- print "\t\tbw_in=\"13380000\" bw_out=\"1024000\" lat=\"5E-4\" />\n\n";
- }
-}
-
+ next if ($line =~ /^#/);
+ # 278 7.2 -9.4 h 2.3
+ if($line =~ /^(.*) (.*) (.*) h (.*)$/) {
+ print "\t\t<peer id=\"peer-$1\" coordinates=\"$2 $3 $4\" speed=\"730Mf\" bw_in=\"13.38MBps\" bw_out=\"1.024MBps\" lat=\"500us\"/>\n";
+ next;
+ }
+ die "Parse error: $line\n";
+}