@@ -58,7 +58,7 @@ import Data.Certificate.X509 (X509)
5858
5959main :: IO ()
6060main = do
61− [pathToCert, pathToKey] <- getArgs
61+ [subscriptionId, pathToCert, pathToKey] <- getArgs
6262 cert <- fileReadCertificate pathToCert
6363 key <- fileReadPrivateKey pathToKey
6464 sessionState <- newIORef undefined
@@ -67,7 +67,7 @@ main = do
6767 runTLS (getDefaultParams sessionState [(cert, Just key)]) hostname port $ \ctx -> do
6868 handshake ctx
6969 sendData ctx $ BSLC.pack $ concat
70− [ "GET /aea2f42e-eb22-495a-9e4f-6d07326523f2/services/hostedservices HTTP/1.1\r\n"
70+ [ "GET /" ++ subscriptionId ++ "/services/hostedservices HTTP/1.1\r\n"
7171 , "host: " ++ hostname ++ "\r\n"
7272 , "content-type: application/xml\r\n"
7373 , "x-ms-version: 2010-10-28\r\n"