-#!/usr/bin/perl -w
+#!/usr/bin/env perl
+
+# Copyright (c) 2011, 2014. The SimGrid Team.
+# All rights reserved.
+
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of the license (GNU LGPL) which comes with this package.
+
use strict;
+use warnings;
my $toversion=3;
my $nb_peer = $ARGV[0];
print "\t\tbw_in=\"13380000\" bw_out=\"1024000\" lat=\"5E-4\" />\n\n";
}
}
-print "\t\t<ASroute src=\"(.*)\"\n\t\t\tdst=\"(.*)\"\n\t\t\tgw_src=\"router_\$1src\"\n\t\t\tgw_dst=\"router_\$1dst\">\n\t\t</ASroute>\n";
print "\t</AS>\n";
print "</platform>";
-print " \n";
\ No newline at end of file
+print " \n";