Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XOBWU

XOBWU.m

Go to the documentation of this file.
  1. XOBWU ;ALB/MJK - HWSC :: Web Server Manager ; 09/13/10 4:00pm
  1. ;;1.0;HwscWebServiceClient;;September 13, 2010;Build 31
  1. ;
  1. QUIT
  1. ;
  1. EN ; -- main entry point for XOBW WEB SERVER
  1. NEW VALMBCK
  1. KILL ^TMP("XOB WEBSERVERS",$JOB)
  1. SET VALMBCK=""
  1. DO EN^VALM("XOBW WEB SERVER")
  1. QUIT
  1. ;
  1. HDR ; -- header code
  1. NEW Y
  1. SET X=" HWSC Web Server Manager"
  1. SET VALMHDR(1)=X
  1. SET X=" Version: "_$PIECE($TEXT(XOBWU+1),";",3)_" Build: "_$$VERSION^XOBWENV()
  1. SET VALMHDR(2)=X
  1. QUIT
  1. ;
  1. INIT ; -- init variables and list array
  1. DO CLEAR
  1. DO MSG
  1. QUIT
  1. ;
  1. MSG ; -- set default message
  1. SET VALMSG="Legend: *Enabled"
  1. QUIT
  1. ;
  1. BUILD ; -- build list
  1. NEW I,XOBI,XOB0,X,XOBDATA,XOBROOT,XOBSITEI,Y
  1. DO KILL
  1. ;
  1. SET VALMCNT=0
  1. SET XOBROOT=$NAME(XOBDATA("DILIST","ID"))
  1. DO LIST^DIC(18.12,"",".01;.03;.04;.06;3.01;3.03","I","","","","","","",$NAME(XOBDATA))
  1. SET XOBI=0
  1. FOR SET XOBI=$ORDER(@XOBROOT@(XOBI)) QUIT:'XOBI DO
  1. . SET VALMCNT=VALMCNT+1
  1. . SET X=""
  1. . SET X=$$SETFLD^VALM1(VALMCNT,X,"ID")
  1. . SET X=$$SETFLD^VALM1($GET(@XOBROOT@(XOBI,.01)),X,"NAME")
  1. . SET X=$$SETFLD^VALM1($GET(@XOBROOT@(XOBI,.04))_":"_$$GETPORT(.XOBROOT,XOBI),X,"IP")
  1. . SET X=$$SETFLD^VALM1($SELECT(+$GET(@XOBROOT@(XOBI,.06)):"*",1:""),X,"ENABLED")
  1. . DO SET^VALM10(VALMCNT,X,VALMCNT)
  1. . SET ^TMP("XOB WEBSERVERS","IDX",$JOB,VALMCNT,VALMCNT)=+$GET(XOBDATA("DILIST",2,XOBI))
  1. ;
  1. QUIT
  1. ;
  1. GETPORT(XOBROOT,XOBI) ; -- return reg or SSL port
  1. IF +$GET(@XOBROOT@(XOBI,3.01)) QUIT $GET(@XOBROOT@(XOBI,3.03))_" (SSL)"
  1. QUIT $GET(@XOBROOT@(XOBI,.03))
  1. ;
  1. CLEAR ; -- clean up entries
  1. DO REFRESH
  1. QUIT
  1. ;
  1. REFRESH ; -- refresh display
  1. DO BUILD
  1. SET VALMBCK="R"
  1. QUIT
  1. ;
  1. KILL ; -- kill off list location
  1. KILL ^TMP("XOB WEBSERVERS",$JOB)
  1. KILL ^TMP("XOB WEBSERVERS","IDX",$JOB)
  1. QUIT
  1. ;
  1. HELP ; -- help code
  1. SET X="?" DO DISP^XQORM1 WRITE !!
  1. QUIT
  1. ;
  1. EXIT ; -- exit code
  1. QUIT
  1. ;
  1. ADD ; -- add an web server entry
  1. ; -- Protocol: XOBW WEB SERVER ADD
  1. DO ACTION("ADD",0)
  1. QUIT
  1. ;
  1. EDIT ; -- edit web server entry
  1. ; -- Protocol: XOBW WEB SERVER EDIT
  1. DO ACTION("EDIT",0)
  1. QUIT
  1. ;
  1. DEL ; -- delete web server entry
  1. ; -- Protocol: XOBW WEB SERVER DELETE
  1. DO ACTION("DEL",0)
  1. QUIT
  1. ;
  1. EXPAND ; -- expand web server entry
  1. DO ACTION("EXPAND",1)
  1. QUIT
  1. ;
  1. AVAIL ; -- test web services availability
  1. ; -- Protocol: XOBW WEB SERVER TEST WS AVAILABILITY
  1. DO ACTION("AVAIL",0)
  1. QUIT
  1. ;
  1. WST ; -- web server tester
  1. ; -- Protocol: XOBW WEB SERVER TESTER
  1. DO EN1^XOBTWU
  1. DO REFRESH
  1. DO MSG
  1. QUIT
  1. ;
  1. WSM ; -- web service manager
  1. ; -- Protocol: XOBW WEB SERVICE MANAGER
  1. DO EN^XOBWUS
  1. DO REFRESH
  1. DO MSG
  1. QUIT
  1. ;
  1. LKM ; -- lookup key manager
  1. ; -- Protocol: XOBW WEB SERVER LOOKUP KEY MANAGER
  1. DO EN^XOBWUA
  1. DO REFRESH
  1. DO MSG
  1. QUIT
  1. ;
  1. ACTION(TYPE,XOBPAUSE) ; -- execute action
  1. DO FULL^VALM1
  1. NEW X,Y
  1. SET X="DO "_TYPE_"^XOBWU1"
  1. XECUTE X
  1. IF XOBPAUSE DO PAUSE^VALM1
  1. DO REFRESH
  1. DO MSG
  1. QUIT
  1. ;