Allow non-standard API endpoint for push

src/Paket.Core/PublicAPI.fs

@@ -256,10 +256,11 @@ type Dependencies(dependenciesFileName: string) =
         PackageProcess.Pack(dependenciesFile, outputPath, buildConfig, version, releaseNotes)
 
     // Push a nupkg file.
-    member this.Push(packageFileName, ?url, ?apiKey, ?maxTrials) =
+    member this.Push(packageFileName, ?url, ?apiKey, ?endPoint, ?maxTrials) =
+        let endPoint = defaultArg endPoint "/api/v2/package"
         let apiKey = defaultArg apiKey (Environment.GetEnvironmentVariable("nugetkey"))
         if String.IsNullOrEmpty apiKey then
             failwithf "Could not push package %s. Please specify an NuGet API key via environment variable \"nugetkey\"." packageFileName
         let url = defaultArg url "https://nuget.org"
         let maxTrials = defaultArg maxTrials 5
-        RemoteUpload.Push maxTrials url apiKey packageFileName
+        RemoteUpload.Push maxTrials (url + endPoint) apiKey packageFileName

src/Paket.Core/RemoteUpload.fs

@@ -30,7 +30,6 @@ let Push maxTrials url apiKey packageFileName =
     let rec push trial =
         tracefn "Pushing package %s to %s - trial %d" packageFileName url trial
         try
-            let url = if url.Contains("nuget.org") then url + "/api/v2/package" else url
             let client = Utils.createWebClient(url, None)
             client.Headers.Add("X-NuGet-ApiKey", apiKey)
             client.UploadFileAsMultipart (new Uri(url)) packageFileName

src/Paket/Commands.fs

@@ -209,13 +209,15 @@ type PushArgs =
     | [<CustomCommandLine("url")>][<Mandatory>] Url of string
     | [<CustomCommandLine("file")>][<Mandatory>] FileName of string
     | [<CustomCommandLine("apikey")>] ApiKey of string
+    | [<CustomCommandLine("endpoint")>] EndPoint of string
 with
     interface IArgParserTemplate with
         member this.Usage =
             match this with
             | Url(_) -> "Url of the Nuget feed."
             | FileName(_) -> "Path to the package."
             | ApiKey(_) -> "Optionally specify your API key on the command line. Otherwise uses the value of the `nugetkey` environment variable."
+            | EndPoint(_) -> "Optionally specify a custom api endpoint to push to. Defaults to `/api/v2/package`"
 
 let cmdLineSyntax (parser:UnionArgParser<_>) commandName = 
     "$ paket " + commandName + " " + parser.PrintCommandLineSyntax()

src/Paket/Program.fs

@@ -168,6 +168,7 @@ let push (results : ArgParseResults<_>) =
     let fileName = results.GetResult <@ PushArgs.FileName @>
     Dependencies.Locate()
                 .Push(fileName, ?url = results.TryGetResult <@ PushArgs.Url @>, 
+                      ?endPoint = results.TryGetResult <@ PushArgs.EndPoint @>,
                       ?apiKey = results.TryGetResult <@ PushArgs.ApiKey @>)
 
 try