changes to fix issue microsoft#90

Use HTTPS when communicating with Storage API
algattik · Jul 25, 2017 · 07d35d2 · 07d35d2
1 parent 27d2cb7
commit 07d35d2
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/R/AzureBlob.R b/R/AzureBlob.R
@@ -34,7 +34,7 @@ azureListStorageBlobs <- function(azureActiveContext, storageAccount, storageKey
 
   verbosity <- set_verbosity(verbose)
 
-  URL <- paste0("http://", storageAccount, ".blob.core.windows.net/", container, "?restype=container&comp=list")
+  URL <- paste0("https://", storageAccount, ".blob.core.windows.net/", container, "?restype=container&comp=list")
   if (!missing(maxresults)  && !is.null(maxresults)) URL <- paste0(URL, "&maxresults=", maxresults)
   if (!missing(prefix)      && !is.null(prefix))     URL <- paste0(URL, "&prefix=", prefix)
   if (!missing(delimiter)   && !is.null(delimiter))  URL <- paste0(URL, "&delimiter=", delimiter)
@@ -237,7 +237,7 @@ azureGetBlob <- function(azureActiveContext, blob, directory, type = "text",
   blob <- gsub("^/", "", blob)
   blob <- gsub("^\\./", "", blob)
 
-  URL <- paste0("http://", storageAccount, ".blob.core.windows.net/", container, "/", blob)
+  URL <- paste0("https://", storageAccount, ".blob.core.windows.net/", container, "/", blob)
   r <- callAzureStorageApi(URL, 
     storageKey = storageKey, storageAccount = storageAccount, container = container,
     CMD = paste0("/", blob)
@@ -319,7 +319,7 @@ azurePutBlob <- function(azureActiveContext, blob, contents = "", file = "",
     storageKey <- refreshStorageKey(azureActiveContext, storageAccount, resourceGroup)
   }
 
-  URL <- paste0("http://", storageAccount, ".blob.core.windows.net/", container, "/", blob)
+  URL <- paste0("https://", storageAccount, ".blob.core.windows.net/", container, "/", blob)
 
   r <- callAzureStorageApi(URL, verb = "PUT",
     headers = "x-ms-blob-type:Blockblob",
@@ -515,7 +515,7 @@ azureDeleteBlob <- function(azureActiveContext, blob, directory,
   blob <- gsub("^/", "", blob)
   blob <- gsub("^\\./", "", blob)
 
-  URL <- paste0("http://", storageAccount, ".blob.core.windows.net/", container, "/", blob)
+  URL <- paste0("https://", storageAccount, ".blob.core.windows.net/", container, "/", blob)
 
   xdate <- x_ms_date()
   SIG <- getSig(azureActiveContext, url = URL, verb = "DELETE", key = storageKey,

diff --git a/R/AzureContainer.R b/R/AzureContainer.R
@@ -27,7 +27,7 @@ azureListStorageContainers <- function(azureActiveContext, storageAccount, stora
 
   verbosity <- set_verbosity(verbose)
 
-  URL <- paste0("http://", storageAccount, ".blob.core.windows.net/?comp=list")
+  URL <- paste0("https://", storageAccount, ".blob.core.windows.net/?comp=list")
   xdate <- x_ms_date()
   SIG <- getSig(azureActiveContext, url = URL, verb = "GET", key = storageKey, storageAccount = storageAccount,
                 CMD = "\ncomp:list", date = xdate)
@@ -110,7 +110,7 @@ azureCreateStorageContainer <- function(azureActiveContext, container, storageAc
   azureActiveContext$storageAccount <- storageAccount
   azureActiveContext$resourceGroup <- resourceGroup
 
-  URL <- paste0("http://", storageAccount, ".blob.core.windows.net/", container, "?restype=container")
+  URL <- paste0("https://", storageAccount, ".blob.core.windows.net/", container, "?restype=container")
   xdate <- x_ms_date()
   SIG <- getSig(azureActiveContext, url = URL, verb = "PUT", key = storageKey,
                 storageAccount = storageAccount, container = container,
@@ -172,7 +172,7 @@ azureDeleteStorageContainer <- function(azureActiveContext, container, storageAc
   }
 
 
-  URL <- paste0("http://", storageAccount, ".blob.core.windows.net/", container, "?restype=container")
+  URL <- paste0("https://", storageAccount, ".blob.core.windows.net/", container, "?restype=container")
   xdate <- x_ms_date()
   SIG <- getSig(azureActiveContext, url = URL, verb = "DELETE", key = storageKey,
                 storageAccount = storageAccount,