CA-367765: remove reference to obsolete default URL and test script

ocaml/xapi/xapi_host.ml

@@ -119,6 +119,8 @@ let pool_size_is_restricted ~__context =
   not (Pool_features.is_enabled ~__context Features.Pool_size)
 
 let bugreport_upload ~__context ~host:_ ~url ~options =
+  if url = "" then
+    raise Api_errors.(Server_error (invalid_value, ["url"; ""])) ;
   let proxy =
     if List.mem_assoc "http_proxy" options then
       List.assoc "http_proxy" options

ocaml/xapi/xapi_host_crashdump.ml

@@ -149,5 +149,6 @@ let destroy ~__context ~self =
 
 let upload ~__context ~self ~url ~options =
   let filename = Db.Host_crashdump.get_filename ~__context ~self in
-  let url = if url = "" then upload_url filename else url in
+  if url = "" then
+    raise Api_errors.(Server_error (invalid_value, ["url"; ""])) ;
   do_upload "host-crash-upload" (crash_dir ^ "/" ^ filename) url options

ocaml/xapi/xapi_support.ml

@@ -14,14 +14,6 @@
 module D = Debug.Make (struct let name = "xapi_support" end)
 
 open D
-
-let support_url = "ftp://support.xensource.com/uploads/"
-
-(* URL to which the crashdump/whatever will be uploaded *)
-let upload_url name =
-  let uuid = Xapi_inventory.lookup Xapi_inventory._installation_uuid in
-  Printf.sprintf "%s%s-%s" support_url uuid name
-
 open Forkhelpers
 
 let do_upload label file url options =

scripts/host-bugreport-upload

@@ -4,8 +4,6 @@
 #
 # Upload a bugreport to the support website
 
-DEFAULT_BASE_URL="ftp://support.xensource.com/uploads/"
-
 # If the user supplies a bare filename without a URI scheme,
 # we ignore it -- if they _really_ want to upload named files
 # to our support server, they can specify the URI scheme.
@@ -19,7 +17,7 @@ if [ -z "$FILENAME" ]; then
   . @INVENTORY@
   FILENAME=${INSTALLATION_UUID}-${now}
 fi
-[ ! -z "${BASE_URL}" ] || BASE_URL="${DEFAULT_BASE_URL}"
+[ -n "${BASE_URL}" ] || exit 1
 
 URL="${BASE_URL}${FILENAME}"