X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/ab9642a5bc0ad4cc31993e6ee9754bf94f269dcb..d46966003b763d0c43b497db1fe6cb2006833fec:/examples/platforms/syscoord/generate_peer_platform.pl

diff --git a/examples/platforms/syscoord/generate_peer_platform.pl b/examples/platforms/syscoord/generate_peer_platform.pl
index 91f8ca5004..7b530e3ab2 100755
--- a/examples/platforms/syscoord/generate_peer_platform.pl
+++ b/examples/platforms/syscoord/generate_peer_platform.pl
@@ -1,5 +1,13 @@
-#!/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];
@@ -27,9 +35,8 @@ while(defined($line=<SITES_LIGNE>))
 		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";