From a3c8d06997fc1c5726128c4306e6bf3e81273720 Mon Sep 17 00:00:00 2001 From: larshp Date: Mon, 1 Feb 2016 12:41:01 +0000 Subject: [PATCH] move ssl test to wiki, close #147 --- extra/zabapgit_test_ssl.abap | 46 ------------------------------------ 1 file changed, 46 deletions(-) delete mode 100644 extra/zabapgit_test_ssl.abap diff --git a/extra/zabapgit_test_ssl.abap b/extra/zabapgit_test_ssl.abap deleted file mode 100644 index 1192ee1ab..000000000 --- a/extra/zabapgit_test_ssl.abap +++ /dev/null @@ -1,46 +0,0 @@ -REPORT zabapgit_test_ssl. - -* See https://github.com/larshp/abapGit/ - -PARAMETERS: p_url TYPE swc_value DEFAULT 'https://github.com'. - -START-OF-SELECTION. - PERFORM run. - -FORM run. - - DATA: lv_code TYPE i, - lv_url TYPE string, - li_client TYPE REF TO if_http_client. - - - lv_url = p_url. - cl_http_client=>create_by_url( - EXPORTING - url = lv_url - ssl_id = 'ANONYM' - IMPORTING - client = li_client ). - - li_client->send( ). - li_client->receive( - EXCEPTIONS - http_communication_failure = 1 - http_invalid_state = 2 - http_processing_failed = 3 - OTHERS = 4 ). - IF sy-subrc <> 0. - WRITE: / 'Error', sy-subrc. - RETURN. - ENDIF. - - li_client->response->get_status( - IMPORTING - code = lv_code ). - IF lv_code = 200. - WRITE: / 'Success, it works'. - ELSE. - WRITE: / 'Error', lv_code. - ENDIF. - -ENDFORM.