--- /dev/null
+#!/usr/bin/perl -w
+use strict;
+use Switch;
+
+my $site="";
+my $cluster="";
+my $toversion=3;
+my $line;
+my $uid="";
+my $i=0;
+my @AS_route = ();
+
+if($#ARGV!=1) {
+ die "Usage: ./generate_g5k_platform.pl g5k_username g5k_password\n";
+}
+
+print "<?xml version='1.0'?>\n";
+print "<!DOCTYPE platform SYSTEM \"http://simgrid.gforge.inria.fr/simgrid.dtd\">\n";
+print "<platform version=\"$toversion\">\n";
+print "\t<AS id=\"AS_grid5000\" routing=\"Floyd\" >\n";
+
+print "\t\t<AS id=\"AS_interne\" routing=\"Floyd\">\n";
+printf "\t\t\t<router id=\"lille\"/>\n";
+printf "\t\t\t<router id=\"paris\"/>\n";
+printf "\t\t\t<router id=\"nancy\"/>\n";
+printf "\t\t\t<router id=\"rennes\"/>\n";
+printf "\t\t\t<router id=\"lyon\"/>\n";
+printf "\t\t\t<router id=\"bordeaux\"/>\n";
+printf "\t\t\t<router id=\"grenoble\"/>\n";
+printf "\t\t\t<router id=\"marseille\"/>\n";
+printf "\t\t\t<router id=\"toulouse\"/>\n";
+printf "\t\t\t<router id=\"sophia\"/>\n";
+#printf "\t\t\t<router id=\"luxembourg\">\n";
+print "\n";
+printf "\t\t\t<link id=\"Lille_Paris\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n";
+printf "\t\t\t<link id=\"Paris_Nancy\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n";
+printf "\t\t\t<link id=\"Paris_Rennes\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n";
+printf "\t\t\t<link id=\"Paris_Lyon\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n";
+printf "\t\t\t<link id=\"Bordeaux_Lyon\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n";
+printf "\t\t\t<link id=\"Lyon_Grenoble\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n";
+printf "\t\t\t<link id=\"Lyon_Marseille\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n";
+printf "\t\t\t<link id=\"Marseille_Sophia\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n";
+printf "\t\t\t<link id=\"Marseille_Toulouse\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n";
+#printf "\t\t<link id=\"Luxemburg_Nancy\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n";
+print "\n";
+
+print "\t\t<route src=\"lille\" dst=\"paris\" ><link_ctn id=\"Lille_Paris\"/></route>\n";
+print "\t\t<route src=\"paris\" dst=\"nancy\" ><link_ctn id=\"Paris_Nancy\"/></route>\n";
+print "\t\t<route src=\"paris\" dst=\"rennes\" ><link_ctn id=\"Paris_Rennes\"/></route>\n";
+print "\t\t<route src=\"paris\" dst=\"lyon\" ><link_ctn id=\"Paris_Lyon\"/></route>\n";
+print "\t\t<route src=\"bordeaux\" dst=\"lyon\" ><link_ctn id=\"Bordeaux_Lyon\"/></route>\n";
+print "\t\t<route src=\"lyon\" dst=\"grenoble\" ><link_ctn id=\"Lyon_Grenoble\"/></route>\n";
+print "\t\t<route src=\"lyon\" dst=\"marseille\" ><link_ctn id=\"Lyon_Marseille\"/></route>\n";
+print "\t\t<route src=\"marseille\" dst=\"sophia\" ><link_ctn id=\"Marseille_Sophia\"/></route>\n";
+print "\t\t<route src=\"marseille\" dst=\"toulouse\" ><link_ctn id=\"Marseille_Toulouse\"/></route>\n";
+#print "\t\t<route src=\"Luxemburg\" dst=\"Nancy\" ><link_ctn id=\"Luxemburg_Nancy\"/></route>\n";
+print "\t\t</AS>\n";
+
+`wget https://api.grid5000.fr/2.0/grid5000/sites --http-user="$ARGV[0]" --http-password="$ARGV[1]" --no-check-certificate --quiet`;
+open SITES_LIGNE, 'sites' or die "Unable to open sites $!\n";
+while(defined($line=<SITES_LIGNE>))
+{
+ if($line =~ /"uid": "(.*)",/){
+ $site = $1;
+ print "\t\t<AS id=\"AS_$site\" routing=\"RuleBased\" >\n";
+
+ `wget https://api.grid5000.fr/2.0/grid5000/sites/$site/clusters --http-user="$ARGV[0]" --http-password="$ARGV[1]" --no-check-certificate --quiet`;
+ open CLUSTERS_LIGNE, 'clusters' or die "Unable to open clusters $!\n";
+ while(defined($line=<CLUSTERS_LIGNE>))
+ {
+ if($line =~ /"uid": "(.*)",/){
+ $cluster = $1;
+ &get_switch($site, $cluster);
+ }
+ }
+
+ close CLUSTERS_LIGNE;
+ `rm clusters`;
+
+ print "\t\t\t<AS id=\"gw_AS_$site\" routing=\"Full\">\n";
+ print "\t\t\t\t<router id=\"gw_$site\"/>\n";
+ print "\t\t\t</AS>\n";
+ print "\t\t\t<link id=\"link_gw_$site\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n";
+ print "\n";
+
+ print "\t\t\t<ASroute src=\"^AS_(.*)\$\" dst=\"^AS_(.*)\$\"\n";
+ print "\t\t\t\tgw_src=\"\$1src-AS_\$1src_router.$site.grid5000.fr\"\n";
+ print "\t\t\t\tgw_dst=\"\$1dst-AS_\$1dst_router.$site.grid5000.fr\"\n";
+ print "\t\t\t\tsymmetrical=\"YES\">\n";
+ print "\t\t\t\t\t<link_ctn id=\"link_\$1src\"/>\n";
+ print "\t\t\t\t\t<link_ctn id=\"link_\$1dst\"/>\n";
+ print "\t\t\t</ASroute>\n\n";
+
+ print "\t\t\t<ASroute src=\"^AS_(.*)\$\" dst=\"^gw_AS_(.*)\$\"\n";
+ print "\t\t\t\tgw_src=\"\$1src-AS_\$1src_router.$site.grid5000.fr\"\n";
+ print "\t\t\t\tgw_dst=\"gw_\$1dst\"\n";
+ print "\t\t\t\tsymmetrical=\"NO\">\n";
+ print "\t\t\t\t\t<link_ctn id=\"link_\$1src\"/>\n";
+ print "\t\t\t</ASroute>\n\n";
+
+ print "\t\t\t<ASroute src=\"^gw_AS_(.*)\$\" dst=\"^AS_(.*)\$\"\n";
+ print "\t\t\t\tgw_src=\"gw_\$1src\"\n";
+ print "\t\t\t\tgw_dst=\"\$1dst-AS_\$1dst_router.$site.grid5000.fr\"\n";
+ print "\t\t\t\tsymmetrical=\"NO\">\n";
+ print "\t\t\t\t\t<link_ctn id=\"link_\$1dst\"/>\n";
+ print "\t\t\t</ASroute>\n\n";
+
+ print "\t\t</AS>\n";
+
+ push @AS_route, $site;
+ }
+}
+close SITES_LIGNE;
+`rm sites`;
+
+printf "\n";
+
+while(@AS_route)
+{
+ $site = pop @AS_route;
+ print "\t\t<ASroute src=\"AS_$site\" dst=\"AS_interne\" gw_src=\"gw_$site\"";
+ if( $site =~ /^orsay$/ )
+ {
+ print " gw_dst=\"paris\"";
+ }
+ else
+ {
+ print " gw_dst=\"$site\"";
+ }
+ print " symmetrical=\"YES\">\n";
+ print "\t\t\t<link_ctn id=\"link_gw_$site\"/>\n";
+ print "\t\t</ASroute>\n";
+}
+
+print "\t</AS>\n";
+print "</platform>\n";
+
+sub get_switch {
+ my $total;
+ my $switch="";
+ my @switch_list=();
+
+ my @host=();
+ my @host_switch=();
+ $site="$_[0]";
+ $cluster="$_[1]";
+ `wget https://api.grid5000.fr/2.0/grid5000/sites/$site/clusters/$cluster/nodes --http-user="$ARGV[0]" --http-password="$ARGV[1]" --no-check-certificate --quiet`;
+ open NODES_LIGNE, 'nodes' or die "Unable to open nodes $!\n";
+ while(defined($line=<NODES_LIGNE>))
+ {
+ if($line =~ /"uid": "(.*)",/)
+ {
+ $uid = $1;
+ push(@host, $1);
+ }
+ if($line =~ /"total": (.*),/){
+ $total = $1;
+ }
+ if($line =~ /"switch": "(.*)",/ && !$switch)
+ {
+ $switch = "$1";
+ push(@host_switch, $1);
+ }
+ if( $uid && $switch )
+ {
+ push(@switch_list, $switch);
+ $uid="";
+ $switch="";
+ }
+ }
+ close NODES_LIGNE;
+ `rm nodes`;
+
+ my %count;
+ my @uniq_array = grep { ++$count{$_} < 2 } @switch_list;
+ @uniq_array = sort (@uniq_array);
+ if(@switch_list && @uniq_array != 1){
+
+ if(@switch_list != @host){
+ printf "Take care \@host != of \@switch_list\n";
+ }
+
+ print "\t\t\t<AS id=\"AS_$cluster\" routing=\"RuleBased\" >\n";
+
+ my @num=();
+ my $radical;
+ foreach(@uniq_array){
+ $switch = $_;
+ $i=0;
+ @num=();
+ foreach(@host_switch){
+ if($_ =~ $switch){
+ if($host[$i] =~ /$cluster-(.*)/){
+ push(@num, $1);
+ }
+ }
+ $i++;
+ }
+
+ my $deb;
+ my $fin;
+ @num=sort {$a <=> $b} (@num);
+ $radical = "";
+
+ $i=0;
+ foreach(@num){
+ if($i == 0){
+ $deb = $num[$i];
+ $fin = $num[$i];
+ }
+ else{
+ if($num[$i] == ($num[$i-1]+1) )
+ {
+ $fin = $num[$i];
+ if(@num == ($i+1)){
+ if($deb != $fin)
+ {
+ if(!($radical =~ /^$/))
+ {
+ $radical = $radical.";";
+ }
+ $radical = $radical.$deb."-".$fin;
+ $deb = $num[$i];
+ $fin = $num[$i];
+ }
+ else
+ {
+ $radical=$radical.";".$num[$i];
+ }
+ }
+ }
+ else
+ {
+ if($deb != $fin)
+ {
+ if(!($radical =~ /^$/))
+ {
+ $radical = $radical.";";
+ }
+ $radical = $radical.$deb."-".$fin;
+ $deb = $num[$i];
+ $fin = $num[$i];
+ }
+ else
+ {
+ $radical=$radical.";".$num[$i];
+ }
+
+ }
+ }
+ $i++;
+ }
+ print "\t\t\t\t<cluster id=\"AS_$switch\" prefix=\"$cluster-\" suffix=\".$site.grid5000.fr\"\n";
+ print "\t\t\t\t\tradical=\"$radical\" power=\"";
+ &get_gflops($cluster);
+ print "\" bw=\"1.25E8\" lat=\"1.0E-4\""."\n";
+ print "\t\t\t\t\tbb_bw=\"1.25E9\" bb_lat=\"1.0E-4\"></cluster>\n";
+ }
+
+ print "\n\t\t\t\t<AS id=\"gw_AS_$cluster\" routing=\"Full\">\n";
+ print "\t\t\t\t\t<router id=\"".$cluster."-AS_".$cluster."_router.".$site.".grid5000.fr\"/>\n";
+ print "\t\t\t\t</AS>\n";
+
+ print "\t\t\t\t<link id=\"switch-$cluster\" bandwidth=\"1250000000\" latency=\"5E-4\"/>\n\n";
+
+ print "\t\t\t\t<ASroute src=\"^AS_(.*)\$\" dst=\"^AS_(.*)\$\"\n";
+ print "\t\t\t\t gw_src=\"$cluster-AS_\$1src_router.$site.grid5000.fr\"\n";
+ print "\t\t\t\t gw_dst=\"$cluster-AS_\$1dst_router.$site.grid5000.fr\">\n";
+ print "\t\t\t\t\t<link_ctn id=\"switch-$cluster\"/>\n";
+ print "\t\t\t\t</ASroute>\n";
+
+ print "\t\t\t\t<ASroute src=\"^AS_(.*)\$\" dst=\"^gw_AS_(.*)\$\"\n";
+ print "\t\t\t\t gw_src=\"$cluster-AS_\$1src_router.$site.grid5000.fr\"\n";
+ print "\t\t\t\t gw_dst=\"".$cluster."-AS_".$cluster."_router.".$site.".grid5000.fr\">\n";
+ print "\t\t\t\t\t<link_ctn id=\"switch-$cluster\"/>\n";
+ print "\t\t\t\t</ASroute>\n";
+
+ print "\t\t\t\t<ASroute src=\"^gw_AS_(.*)\$\" dst=\"^AS_(.*)\$\"\n";
+ print "\t\t\t\t gw_src=\"".$cluster."-AS_".$cluster."_router.".$site.".grid5000.fr\"\n";
+ print "\t\t\t\t gw_dst=\"$cluster-AS_\$1dst_router.$site.grid5000.fr\">\n";
+ print "\t\t\t\t\t<link_ctn id=\"switch-$cluster\"/>\n";
+ print "\t\t\t\t</ASroute>\n";
+
+
+ print "\t\t\t</AS>\n";
+
+
+ }
+ else{
+ print "\t\t\t<cluster id=\"AS_$cluster\" prefix=\"$cluster-\" suffix=\".$site.grid5000.fr\"\n";
+ print "\t\t\t\tradical=\"1-$total\" power=\"";
+ &get_gflops($cluster);
+ print "\" bw=\"1.25E8\" lat=\"1.0E-4\""."\n";
+ print "\t\t\t\tbb_bw=\"1.25E9\" bb_lat=\"1.0E-4\"></cluster>\n";
+ }
+ print "\t\t\t<link id=\"link_$cluster\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n\n";
+}
+
+
+sub get_gflops {
+ switch ($_[0]) {
+ case "bordeplage" { print "5.2297E9" }
+ case "bordereau" { print "8.8925E9" }
+ case "borderline" { print "13.357E9" }
+
+ case "chicon" { print "8.9618E9" }
+ case "chimint" { print "23.531E9" }
+ case "chinqchint" { print "22.270E9" }
+ case "chirloute" { print "24.473E9" }
+
+ case "adonis" { print "23.681E9" }
+ case "edel" { print "23.492E9" }
+ case "genepi" { print "21.175E9" }
+
+ case "capricorne" { print "4.7233E9" }
+ case "sagittaire" { print "5.6693E9" }
+
+ case "graphene" { print "16.673E9" }
+ case "griffon" { print "20.678E9" }
+
+ case "gdx" { print "4.7153E9" }
+ case "netgdx" { print "4.7144E9" }
+
+ case "paradent" { print "21.496E9" }
+ case "paramount" { print "12.910E9" }
+ case "parapide" { print "30.130E9" }
+ case "parapluie" { print "27.391E9" }
+
+ case "helios" { print "7.7318E9" }
+ case "sol" { print "8.9388E9" }
+ case "suno" { print "23.530E9" }
+
+ case "pastel" { print "9.5674E9" }
+ case "violette" { print "5.1143E9" }
+
+ case "default" { print "3.542E9" }
+ else { print "xxxxxxx" }
+ }
+}