From afb86cc2664a69e4599c60da0312c709d1c87a14 Mon Sep 17 00:00:00 2001
From: Lars Hvam <larshp@hotmail.com>
Date: Sun, 7 Dec 2014 07:32:30 +0100
Subject: [PATCH] switching to anonymous ssl profile, update STRUST

this seems to work better for eg. bitbucket.org
---
 zabapgit.abap | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/zabapgit.abap b/zabapgit.abap
index 5b577a6c6..631b9f023 100644
--- a/zabapgit.abap
+++ b/zabapgit.abap
@@ -3,7 +3,7 @@ REPORT zabapgit.
 * See https://github.com/larshp/abapGit/
 
 CONSTANTS: gc_xml_version  TYPE string VALUE 'v0.2-alpha',  "#EC NOTEXT
-           gc_abap_version TYPE string VALUE 'v0.6'.        "#EC NOTEXT
+           gc_abap_version TYPE string VALUE 'v0.7'.        "#EC NOTEXT
 
 ********************************************************************************
 * The MIT License (MIT)
@@ -5893,9 +5893,16 @@ CLASS lcl_transport IMPLEMENTATION.
     ii_client->response->get_status(
       IMPORTING
         code   = lv_code ).
-    IF lv_code <> 200.
-      _raise 'HTTP error code'.
-    ENDIF.
+    CASE lv_code.
+      WHEN 200.
+        RETURN.
+      WHEN 302.
+        _raise 'HTTP redirect, check URL'.
+      WHEN 404.
+        _raise 'HTTP 404, not found'.
+      WHEN OTHERS.
+        _raise 'HTTP error code'.
+    ENDCASE.
 
   ENDMETHOD.                    "http_200
 
@@ -5913,6 +5920,7 @@ CLASS lcl_transport IMPLEMENTATION.
     cl_http_client=>create_by_url(
       EXPORTING
         url    = lcl_url=>host( is_repo-url )
+        ssl_id = 'ANONYM'
       IMPORTING
         client = ei_client ).
 
@@ -5941,6 +5949,7 @@ CLASS lcl_transport IMPLEMENTATION.
     IF sy-subrc <> 0.
       CASE sy-subrc.
         WHEN 1.
+* make sure SSL is setup properly in STRUST
           lv_text = 'HTTP Communication Failure'.           "#EC NOTEXT
         WHEN 2.
           lv_text = 'HTTP Invalid State'.                   "#EC NOTEXT