+ push @routes_router, "\t\t<route src=\"router$src\" dst=\"router$dst\">\n";
+ }
+ push @routes_router, "\t\t\t<link_ctn id=\"link$num_link\"/>\n";
+ push @routes_router, "\t\t</route>\n";
+ }
+
+ #Create the route between cluster and cluster
+ elsif(!$is_router[$src] && !$is_router[$dst])
+ {
+ if(@list_of_name){
+ push @routes_cluster, "\t\t<ASroute src=\"$list_of_name[$src]\" dst=\"$list_of_name[$dst]\"\n";
+ push @routes_cluster, "\t\t gw_src=\"$list_of_name[$src]-router\" gw_dst=\"$list_of_name[$dst]-router\">\n";
+ }
+ else{
+ push @routes_cluster, "\t\t<ASroute src=\"cluster$src\" dst=\"cluster$dst\"\n";
+ push @routes_cluster, "\t\t gw_src=\"cluster$src-router\" dst=\"cluster$dst-router\">\n";
+ }
+ push @routes_cluster, "\t\t\t<link_ctn id=\"link$num_link\"/>\n";
+ push @routes_cluster, "\t\t</ASroute>\n";
+ }
+ else
+ {
+ push @routes, "\t<ASroute ";
+ if(@list_of_name){
+ if($is_router[$src]) #router
+ {push @routes, "src=\"AS_intern\" gw_src=\"$list_of_name[$src]\"\n";}
+ else #cluster
+ {push @routes, "src=\"$list_of_name[$src]\" gw_src=\"$list_of_name[$src]-router\"\n";}
+
+
+ if($is_router[$dst]) #router
+ {push @routes, "\t\tdst=\"AS_intern\" gw_dst=\"$list_of_name[$dst]\">\n";}
+ else #cluster
+ {push @routes, "\t\tdst=\"$list_of_name[$dst]\" gw_dst=\"$list_of_name[$dst]-router\">\n";}
+ }
+ else{
+ if($is_router[$src]) #router
+ {push @routes, "src=\"AS_intern\" gw_src=\"router$src\"\n";}
+ else #cluster
+ {push @routes, "src=\"cluster$src\" gw_src=\"cluster$src-router\"\n";}
+
+
+ if($is_router[$dst]) #router
+ {push @routes, "\t\tdst=\"AS_intern\" gw_dst=\"router$dst\">\n";}
+ else #cluster
+ {push @routes, "\t\tdst=\"cluster$dst\" gw_dst=\"cluster$dst-router\">\n";}