Ajax/Javascript in Web dynpro ABAP

Question

Hi,
I need your help in figuring out what artefacts of web dynpro ABAP could help me resolve a problem.
In a Web dynpro abap application, we have a button that redirects a user to an external site. Some of our users can go to this site from their computer and some others can't because they are not allowed. I would like to be able to show the button only to the users that have the right to execute this navigation.
In order to do that, I need to embed some script in my web dynpro application that will test if the URL of this application sends back an HTTP/200.
With the latest versions of Web Dynpro ABAP, is it possible to embed javascript of ajax? How can it be done?
If not, what could I use to base the visibility of my button on a validation that has to run on the users's browser?
Thank you very much for your help!
Renaud

Answer 1

Another way it could be done creating a custom ztransaction (abap report) performing a PING to the ip server , reading log txt,  saving if the user is authorized or not , and redirecting to the Abap Web Dynpro.
Then On wddoinit select zztable for authorization.
But i don't know if this solution will work for you (ping specific port 80? or other requirements)
DATA: workdir TYPE string,
      path_log TYPE string,
      parameter TYPE string.
TYPES: BEGIN OF tylog,
     line(1000),
  END OF tylog.
DATA: t_log TYPE TABLE OF tylog,
      v_log LIKE LINE OF t_log.
  DATA:  appl_name TYPE string,
            abs_url TYPE string.
START-OF-SELECTION.
  CALL METHOD cl_gui_frontend_services=>get_sapgui_workdir
    CHANGING
      sapworkdir = workdir.
  CONCATENATE '/C ping google.it >' workdir
  INTO parameter SEPARATED BY space. "example google
  CONCATENATE parameter '\pinglog.txt' INTO parameter.
  CALL METHOD cl_gui_frontend_services=>execute
     EXPORTING
*    document               =
       application            = 'CMD'
       parameter              = parameter
       synchronous            = 'X'.
  CONCATENATE workdir  '\pinglog.txt' INTO path_log.
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                      = path_log
      filetype                      = 'ASC'
    TABLES
      data_tab                      = t_log.
  LOOP AT t_log INTO v_log WHERE LINE CS 'Lost = 0'.
    EXIT.
  ENDLOOP.
if sy-subrc = 0. "ping ok
zzping-uname = sy-uname.
   zzping-authorized = 'X'.
else.
  zzping-uname = sy-uname.
  zzping-authorized = ' '.
  endif.
   INSERT ZZPING.
**construct web dynpro url and call browser
  cl_wd_utilities=>construct_wd_url( EXPORTING application_name = appl_name
                                                             IMPORTING out_absolute_url = abs_url ).
CALL FUNCTION 'CALL_BROWSER'
  EXPORTING
    URL                          = abs_url.
Edited by: alessandro spadoni on Mar 24, 2011 10:09 PM
Edited by: alessandro spadoni on Mar 24, 2011 10:31 PM