6 die "Usage: ./generate_g5k_platform.pl g5k_username g5k_password\n";
9 print "<?xml version='1.0'?>\n";
10 print "<!DOCTYPE platform SYSTEM \"http://simgrid.gforge.inria.fr/simgrid.dtd\">\n";
11 print "<platform version=\"$toversion\">\n";
12 print "\t<AS id=\"AS_grid5000\" routing=\"Floyd\" >\n";
17 `wget https://api.grid5000.fr/2.0/grid5000/sites --http-user="$ARGV[0]" --http-password="$ARGV[1]" --no-check-certificate --quiet`;
19 open SITES_LIGNE, 'sites' or die "Unable to open sites $!\n";
26 print "\t\t<AS id=\"AS_interne\" routing=\"Floyd\">\n";
27 printf "\t\t\t<router id=\"lille\"/>\n";
28 printf "\t\t\t<router id=\"paris\"/>\n";
29 printf "\t\t\t<router id=\"nancy\"/>\n";
30 printf "\t\t\t<router id=\"rennes\"/>\n";
31 printf "\t\t\t<router id=\"lyon\"/>\n";
32 printf "\t\t\t<router id=\"bordeaux\"/>\n";
33 printf "\t\t\t<router id=\"grenoble\"/>\n";
34 printf "\t\t\t<router id=\"marseille\"/>\n";
35 printf "\t\t\t<router id=\"toulouse\"/>\n";
36 printf "\t\t\t<router id=\"sophia\"/>\n";
37 #printf "\t\t\t<router id=\"luxembourg\">\n";
39 printf "\t\t\t<link id=\"Lille_Paris\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n";
40 printf "\t\t\t<link id=\"Paris_Nancy\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n";
41 printf "\t\t\t<link id=\"Paris_Rennes\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n";
42 printf "\t\t\t<link id=\"Paris_Lyon\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n";
43 printf "\t\t\t<link id=\"Bordeaux_Lyon\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n";
44 printf "\t\t\t<link id=\"Lyon_Grenoble\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n";
45 printf "\t\t\t<link id=\"Lyon_Marseille\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n";
46 printf "\t\t\t<link id=\"Marseille_Sophia\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n";
47 printf "\t\t\t<link id=\"Marseille_Toulouse\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n";
48 #printf "\t\t<link id=\"Luxemburg_Nancy\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n";
51 print "\t\t<route src=\"lille\" dst=\"paris\" ><link_ctn id=\"Lille_Paris\"/></route>\n";
52 print "\t\t<route src=\"paris\" dst=\"nancy\" ><link_ctn id=\"Paris_Nancy\"/></route>\n";
53 print "\t\t<route src=\"paris\" dst=\"rennes\" ><link_ctn id=\"Paris_Rennes\"/></route>\n";
54 print "\t\t<route src=\"paris\" dst=\"lyon\" ><link_ctn id=\"Paris_Lyon\"/></route>\n";
55 print "\t\t<route src=\"bordeaux\" dst=\"lyon\" ><link_ctn id=\"Bordeaux_Lyon\"/></route>\n";
56 print "\t\t<route src=\"lyon\" dst=\"grenoble\" ><link_ctn id=\"Lyon_Grenoble\"/></route>\n";
57 print "\t\t<route src=\"lyon\" dst=\"marseille\" ><link_ctn id=\"Lyon_Marseille\"/></route>\n";
58 print "\t\t<route src=\"marseille\" dst=\"sophia\" ><link_ctn id=\"Marseille_Sophia\"/></route>\n";
59 print "\t\t<route src=\"marseille\" dst=\"toulouse\" ><link_ctn id=\"Marseille_Toulouse\"/></route>\n";
60 #print "\t\t<route src=\"Luxemburg\" dst=\"Nancy\" ><link_ctn id=\"Luxemburg_Nancy\"/></route>\n";
63 while(defined($line=<SITES_LIGNE>))
65 if($line =~ /"uid": "(.*)",/){
67 print "\t\t<AS id=\"AS_$site\" routing=\"RuleBased\" >\n";
68 `wget https://api.grid5000.fr/2.0/grid5000/sites/$site/clusters --http-user="$ARGV[0]" --http-password="$ARGV[1]" --no-check-certificate --quiet`;
69 open CLUSTERS_LIGNE, 'clusters' or die "Unable to open clusters $!\n";
70 while(defined($line=<CLUSTERS_LIGNE>))
72 if($line =~ /"uid": "(.*)",/){
74 print "\t\t\t<cluster id=\"AS_$cluster\" prefix=\"$cluster-\" suffix=\".$cluster.grid5000.fr\"\n";
75 `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`;
76 open NODES_LIGNE, 'nodes' or die "Unable to open nodes $!\n";
77 while(defined($line=<NODES_LIGNE>))
79 if($line =~ /"total": (.*),/){
80 print "\t\t\t\tradical=\"1-$1\" power=\"3.542E9\" bw=\"1.25E8\" lat=\"1.0E-4\""."\n";
81 print "\t\t\t\tbb_bw=\"1.25E9\" bb_lat=\"1.0E-4\"></cluster>\n";
84 print "\t\t\t<link id=\"link_$cluster\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n\n";
92 print "\t\t\t<AS id=\"gw_AS_$site\" routing=\"Full\">\n";
93 print "\t\t\t\t<router id=\"gw_$site\"/>\n";
94 print "\t\t\t</AS>\n";
95 print "\t\t\t<link id=\"link_gw_$site\" bandwidth=\"1.25E9\" latency=\"1.0E-4\"/>\n";
98 print "\t\t\t<ASroute src=\"^AS_(.*)\$\" dst=\"^AS_(.*)\$\"\n";
99 print "\t\t\t\tgw_src=\"\$1src-AS_\$1src_router.\$1src.grid5000.fr\"\n";
100 print "\t\t\t\tgw_dst=\"\$1dst-AS_\$1dst_router.\$1dst.grid5000.fr\"\n";
101 print "\t\t\t\tsymmetrical=\"YES\">\n";
102 print "\t\t\t\t\t<link_ctn id=\"link_\$1src\"/>\n";
103 print "\t\t\t\t\t<link_ctn id=\"link_\$1dst\"/>\n";
104 print "\t\t\t</ASroute>\n\n";
106 print "\t\t\t<ASroute src=\"^AS_(.*)\$\" dst=\"^gw_AS_(.*)\$\"\n";
107 print "\t\t\t\tgw_src=\"\$1src-AS_\$1src_router.\$1src.grid5000.fr\"\n";
108 print "\t\t\t\tgw_dst=\"gw_\$1dst\"\n";
109 print "\t\t\t\tsymmetrical=\"NO\">\n";
110 print "\t\t\t\t\t<link_ctn id=\"link_\$1src\"/>\n";
111 print "\t\t\t</ASroute>\n\n";
113 print "\t\t\t<ASroute src=\"^gw_AS_(.*)\$\" dst=\"^AS_(.*)\$\"\n";
114 print "\t\t\t\tgw_src=\"gw_\$1src\"\n";
115 print "\t\t\t\tgw_dst=\"\$1dst-AS_\$1dst_router.\$1dst.grid5000.fr\"\n";
116 print "\t\t\t\tsymmetrical=\"NO\">\n";
117 print "\t\t\t\t\t<link_ctn id=\"link_\$1dst\"/>\n";
118 print "\t\t\t</ASroute>\n\n";
122 push @AS_route, $site;
128 $site = pop @AS_route;
129 print "\t\t<ASroute src=\"AS_$site\" dst=\"AS_interne\" gw_src=\"gw_$site\"";
130 if( $site =~ /^orsay$/ )
132 print " gw_dst=\"paris\"";
136 print " gw_dst=\"$site\"";
138 print " symmetrical=\"YES\">\n";
139 print "\t\t\t<link_ctn id=\"link_gw_$site\"/>\n";
140 print "\t\t</ASroute>\n";
142 # print "\t\t<ASroute src=\"AS_interne\" dst=\"AS_$site\" gw_dst=\"gw_$site\"";
143 # if( $site =~ /^orsay$/ )
145 # print " gw_src=\"paris\"";
149 # print " gw_src=\"$site\"";
151 # print " symmetrical=\"NO\">\n";
152 # print "\t\t\t<link_ctn id=\"link_gw_$site\"/>\n";
153 # print "\t\t</ASroute>\n";
157 print "</platform>\n";