process_rep_configget

in src/zgoog_cl_content_repo_gcs.clas.abap [0:0]

• 41 lines of code
• 5 McCabe index (conditional complexity)

  METHOD process_rep_configget.

    DATA: lo_contrep TYPE REF TO data.

    DATA: lv_pversion TYPE string ##NEEDED,
          lv_security TYPE string,
          lv_docprot  TYPE string.

    DATA: ls_crep_http TYPE crep_http.

    FIELD-SYMBOLS <lv_contentrep> TYPE c.

    get_parameter_c( EXPORTING iv_name      = 'contRep '
                               iv_mandatory = 's'
                     IMPORTING er_value     = lo_contrep ).

    ASSIGN lo_contrep->* TO <lv_contentrep>.

    lv_pversion = get_parameter( iv_name      = 'pVersion'
                                 iv_mandatory = 'X' ).
    IF gs_error IS NOT INITIAL.
      RETURN.
    ENDIF.

    check_authority( iv_read = 1 ).
    IF gs_error IS NOT INITIAL.
      RETURN.
    ENDIF.

    check_parameter_consistence( ).
    IF gs_error IS NOT INITIAL.
      RETURN.
    ENDIF.

    PERFORM crep_select IN PROGRAM saplscms_url USING    gv_mandt
                                                         <lv_contentrep>
                                                CHANGING ls_crep_http.

    IF ls_crep_http-http_nosig = 'X'.
      lv_security = '0'.
    ELSE.
      lv_security = '1'.
    ENDIF.

    lv_docprot = gv_docprot.

    go_server->response->set_header_field( name  = 'Content-Type'
                                           value = 'text/plain' ) ##NO_TEXT.

    body_put_field( iv_name  = 'Security'
                    iv_value = lv_security ) ##NO_TEXT.
    body_put_field( iv_name  = 'DefaultDocProt'
                    iv_value = lv_docprot ).

    go_server->response->set_status( code   = 200
                                     reason = 'OK' ).