open INPUT, "$ARGV[0]" or die "Cannot open input file $ARGV[0]: $!\n";
$output_string = "<?xml version='1.0'?>\n".
- "<!DOCTYPE platform SYSTEM \"simgrid.dtd\">\n".
+ "<!DOCTYPE platform SYSTEM \"http://simgrid.gforge.inria.fr/simgrid.dtd\">\n".
"<platform version=\"$toversion\">\n";
$AS_opened=1;
}
}
-
+
+ if($line=~/<route /){$line =~ s/\<route/\<route symmetrical=\"NO\"/g;}
$output_string .= "$line\n";
}