+++ /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" }
- }
-}
