use big script, send script in relay on start

src/AirScripts/GetAll.elm

@@ -96,9 +96,12 @@ air peerId relayId peers =
 
         askRelay =
             \innerAir ->
-                par
-                    askRelaySchema
-                    innerAir
+                seq
+                    (callBI "relayId" ( "op", "identity" ) [] Nothing)
+                    (par
+                        askRelaySchema
+                        innerAir
+                    )
 
         askPeers =
             \innerAir ->

src/Route.elm

@@ -56,14 +56,12 @@ routeView model route =
 getAllCmd : String -> String -> List String -> Cmd msg
 getAllCmd peerId relayId knownPeers =
     Cmd.batch
-        [ sendAir (GetAll.askRelayScript peerId relayId)
-        , sendAir (GetAll.askPeersScript peerId relayId knownPeers)
-        , sendAir (GetAll.findAndAskNeighboursScript peerId relayId)
+        [ sendAir (GetAll.air peerId relayId knownPeers)
         ]
 
 
 routeCommand : Model -> Route -> Cmd msg
-routeCommand m r =
+routeCommand m _ =
     if m.isInitialized then
         Cmd.none
 

src/Utils/Utils.elm

@@ -15,6 +15,7 @@ instancesText num =
     else
         Html.text (strNum ++ " instances")
 
+
 servicesText : Int -> Html msg
 servicesText num =
     let
@@ -25,4 +26,4 @@ servicesText num =
         Html.text (strNum ++ " service")
 
     else
-        Html.text (strNum ++ " services")
+        Html.text (strNum ++ " services")