From af0442dd5b943836104df69afc9ee29aa793ebc7 Mon Sep 17 00:00:00 2001 From: Navarrop Date: Thu, 7 Apr 2011 18:32:03 +0200 Subject: [PATCH 1/1] Generate g5k.xml with perl. --- buildtools/Cmake/generate_g5k_platform.pl | 159 ++++++++ buildtools/Cmake/test_g5k.xml | 441 ++++++++++++++++++++++ 2 files changed, 600 insertions(+) create mode 100755 buildtools/Cmake/generate_g5k_platform.pl create mode 100644 buildtools/Cmake/test_g5k.xml diff --git a/buildtools/Cmake/generate_g5k_platform.pl b/buildtools/Cmake/generate_g5k_platform.pl new file mode 100755 index 0000000000..f815c21803 --- /dev/null +++ b/buildtools/Cmake/generate_g5k_platform.pl @@ -0,0 +1,159 @@ +#!/usr/bin/perl -w +use strict; +my $toversion=3; + +if($#ARGV!=1) { + die "Usage: ./generate_g5k_platform.pl g5k_username g5k_password\n"; +} + +print "\n"; +print "\n"; +print "\n"; +print "\t\n"; + +`rm -rf temp_g5k`; +`mkdir -p temp_g5k`; +chdir("./temp_g5k"); +`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"; +my $line = ""; +my $site = ""; +my $cluster = ""; +my $nodes = ""; +my @AS_route = (); + +print "\t\t\n"; +printf "\t\t\t\n"; +printf "\t\t\t\n"; +printf "\t\t\t\n"; +printf "\t\t\t\n"; +printf "\t\t\t\n"; +printf "\t\t\t\n"; +printf "\t\t\t\n"; +printf "\t\t\t\n"; +printf "\t\t\t\n"; +printf "\t\t\t\n"; +#printf "\t\t\t\n"; +print "\n"; +printf "\t\t\t\n"; +printf "\t\t\t\n"; +printf "\t\t\t\n"; +printf "\t\t\t\n"; +printf "\t\t\t\n"; +printf "\t\t\t\n"; +printf "\t\t\t\n"; +printf "\t\t\t\n"; +printf "\t\t\t\n"; +#printf "\t\t\n"; +print "\n"; + +print "\t\t\n"; +print "\t\t\n"; +print "\t\t\n"; +print "\t\t\n"; +print "\t\t\n"; +print "\t\t\n"; +print "\t\t\n"; +print "\t\t\n"; +print "\t\t\n"; +#print "\t\t\n"; +print "\t\t\n"; + +while(defined($line=)) +{ + if($line =~ /"uid": "(.*)",/){ + $site = $1; + print "\t\t\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=)) + { + if($line =~ /"uid": "(.*)",/){ + $cluster = $1; + print "\t\t\t)) + { + if($line =~ /"total": (.*),/){ + print "\t\t\t\tradical=\"1-$1\" power=\"3.542E9\" bw=\"1.25E8\" lat=\"1.0E-4\""."\n"; + print "\t\t\t\tbb_bw=\"1.25E9\" bb_lat=\"1.0E-4\">\n"; + } + } + print "\t\t\t\n\n"; + close NODES_LIGNE; + `rm nodes`; + } + } + close CLUSTERS_LIGNE; + `rm clusters`; + + print "\t\t\t\n"; + print "\t\t\t\t\n"; + print "\t\t\t\n"; + print "\t\t\t\n"; + print "\n"; + + print "\t\t\t\n"; + print "\t\t\t\t\t\n"; + print "\t\t\t\t\t\n"; + print "\t\t\t\n\n"; + + print "\t\t\t\n"; + print "\t\t\t\t\t\n"; + print "\t\t\t\n\n"; + + print "\t\t\t\n"; + print "\t\t\t\t\t\n"; + print "\t\t\t\n\n"; + + print "\t\t\n"; + + push @AS_route, $site; + } +} + +while(@AS_route) +{ + $site = pop @AS_route; + print "\t\t\n"; + print "\t\t\t\n"; + print "\t\t\n"; + +# print "\t\t\n"; +# print "\t\t\t\n"; +# print "\t\t\n"; +} + +print "\t\n"; +print "\n"; +`rm sites`; +close SITES_LIGNE; \ No newline at end of file diff --git a/buildtools/Cmake/test_g5k.xml b/buildtools/Cmake/test_g5k.xml new file mode 100644 index 0000000000..0acda0575f --- /dev/null +++ b/buildtools/Cmake/test_g5k.xml @@ -0,0 +1,441 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + -- 2.20.1