serial Default %Library.TMFormClass %TMLabel %TMLabel %TMLabel %TMEdit %TMEdit starttijd stoptijd %Library.TMForm %TMGroupBox %Library.String -1 %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMShape %TMShape %TMShape %TMShape %Library.String 1 %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMCheckBox %TMCheckBox %TMCheckBox %TMCheckBox %TMCheckBox %TMCheckBox %TMCheckBox %TMCheckBox %TMGroupBox %TMGroupBox %TMImageList %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMListView %TMPopupMenu %TMPanel %TMShape %TMTimer %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit initvalue:%String cache 0 %Status document literal ID:%String cache 0 %Library.Boolean document literal cache 0 document literal ; Ctl3D = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; HideSelection = False ; HotTrackStyles = [] ; ReadOnly = True ; RowSelect = True ; ParentFont = False ; SmallImages = ilPages ; TabOrder = 0 ; ViewStyle = vsReport ; OnSelectItem = lvPagesSelectItem ; end ; object pnlURLDetail: CPanel ; Left = 18 ; Top = 198 ; Width = 396 ; Height = 362 ; Anchors = [akLeft, akRight] ; BevelInner = bvLowered ; TabOrder = 1 ; object lblServer: CLabel ; Left = 11 ; Top = 11 ; Width = 44 ; Height = 13 ; Caption = 'Server:' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; end ; object lblLocation: CLabel ; Left = 11 ; Top = 48 ; Width = 52 ; Height = 13 ; Caption = 'Location:' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; end ; object Label3: CLabel ; Left = 11 ; Top = 168 ; Width = 127 ; Height = 13 ; Caption = 'On error mail subject:' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; end ; object Label4: CLabel ; Left = 11 ; Top = 91 ; Width = 113 ; Height = 13 ; Caption = 'On error mail from:' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; end ; object Label5: CLabel ; Left = 11 ; Top = 128 ; Width = 97 ; Height = 13 ; Caption = 'On error mail to:' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; end ; object Shape2: CShape ; Left = 189 ; Top = 332 ; Width = 194 ; Height = 21 ; Anchors = [akRight, akBottom] ; Brush.Color = clBlack ; Pen.Color = clGray ; end ; object btnDeletePageInfo: CSpeedButton ; Left = 318 ; Top = 333 ; Width = 63 ; Height = 18 ; Anchors = [akLeft, akBottom] ; Caption = 'Delete' ; Font.Charset = ANSI_CHARSET ; Font.Color = clRed ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [fsBold] ; ParentFont = False ; OnClick = btnDeletePageInfoClick ; end ; object btnSavePageInfo: CSpeedButton ; Left = 254 ; Top = 333 ; Width = 63 ; Height = 18 ; Anchors = [akLeft, akBottom] ; Caption = 'Save' ; OnClick = btnSavePageInfoClick ; end ; object btnNewPageInfo: CSpeedButton ; Left = 190 ; Top = 333 ; Width = 63 ; Height = 18 ; Anchors = [akLeft, akBottom] ; Caption = 'New' ; Font.Charset = ANSI_CHARSET ; Font.Color = clGreen ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [fsBold] ; ParentFont = False ; OnClick = btnNewPageInfoClick ; end ; object lblAllowedStatusCodes: CLabel ; Left = 195 ; Top = 92 ; Width = 124 ; Height = 13 ; Caption = 'Allowed status codes:' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; end ; object shStatusCodes: CShape ; Left = 352 ; Top = 107 ; Width = 20 ; Height = 19 ; end ; object btnStatusCodes: CSpeedButton ; Left = 353 ; Top = 108 ; Width = 18 ; Height = 17 ; DropdownArrow = False ; DropdownMenu = pmStatusCodes ; Caption = '...' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Arial Black' ; Font.Style = [] ; ParentFont = False ; end ; object Shape4: CShape ; Left = 317 ; Top = 276 ; Width = 66 ; Height = 48 ; Brush.Color = clBlack ; Pen.Color = 16730698 ; end ; object btnSurfTo: CSpeedButton ; Left = 318 ; Top = 300 ; Width = 63 ; Height = 22 ; Color = 16773847 ; Caption = 'Go to' ; Font.Charset = ANSI_CHARSET ; Font.Color = clBlue ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [fsBold] ; ParentFont = False ; OnClick = btnSurfToClick ; end ; object btnTestURL: CSpeedButton ; Left = 318 ; Top = 277 ; Width = 63 ; Height = 22 ; Color = 16773847 ; Caption = 'Test' ; Font.Charset = ANSI_CHARSET ; Font.Color = clBlue ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [fsBold] ; ParentFont = False ; OnClick = btnTestURLClick ; end ; object lblPort: CLabel ; Left = 315 ; Top = 11 ; Width = 28 ; Height = 13 ; Caption = 'Port:' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; end ; object Label8: CLabel ; Left = 195 ; Top = 248 ; Width = 51 ; Height = 13 ; Caption = 'Timeout:' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; end ; object Label9: CLabel ; Left = 243 ; Top = 267 ; Width = 19 ; Height = 13 ; Caption = 'sec' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; end ; object Shape5: CShape ; Left = 10 ; Top = 332 ; Width = 122 ; Height = 21 ; Anchors = [akLeft, akBottom] ; Brush.Color = clBlack ; Pen.Color = clGray ; end ; object btnResetErrorCount: CSpeedButton ; Left = 11 ; Top = 333 ; Width = 119 ; Height = 18 ; Anchors = [akLeft, akBottom] ; Caption = 'Reset errorcount' ; OnClick = btnResetErrorCountClick ; end ; object Label10: CLabel ; Left = 195 ; Top = 128 ; Width = 98 ; Height = 13 ; Caption = 'On error SMS to:' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; end ; object Label11: CLabel ; Left = 195 ; Top = 168 ; Width = 128 ; Height = 13 ; Caption = 'On error SMS subject:' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; end ; object Label12: CLabel ; Left = 11 ; Top = 208 ; Width = 159 ; Height = 13 ; Caption = 'Back-on-track mail subject:' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; end ; object lblGroup: CLabel ; Left = 195 ; Top = 208 ; Width = 40 ; Height = 13 ; Caption = 'Group:' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; end ; object Label13: CLabel ; Left = 11 ; Top = 248 ; Width = 83 ; Height = 13 ; Caption = 'Retry interval:' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; end ; object Label14: CLabel ; Left = 59 ; Top = 267 ; Width = 19 ; Height = 13 ; Caption = 'sec' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; end ; object Label15: CLabel ; Left = 107 ; Top = 248 ; Width = 71 ; Height = 13 ; Caption = 'Retry count:' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; end ; object txtServer: CEdit ; Left = 11 ; Top = 27 ; Width = 297 ; Height = 19 ; Color = 14155775 ; Ctl3D = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentCtl3D = False ; ParentFont = False ; TabOrder = 0 ; end ; object txtLocation: CEdit ; Left = 11 ; Top = 63 ; Width = 361 ; Height = 19 ; Color = 14155775 ; Ctl3D = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentCtl3D = False ; ParentFont = False ; TabOrder = 2 ; end ; object chkURLEnabled: CCheckBox ; Left = 11 ; Top = 301 ; Width = 65 ; Height = 17 ; Caption = 'Enabled' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; TabOrder = 9 ; end ; object chkIsWarned: CCheckBox ; Left = 91 ; Top = 301 ; Width = 81 ; Height = 17 ; Caption = 'Is warned' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; TabOrder = 11 ; end ; object txtMailSubject: CEdit ; Left = 11 ; Top = 183 ; Width = 177 ; Height = 19 ; Color = 10210815 ; Ctl3D = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentCtl3D = False ; ParentFont = False ; TabOrder = 5 ; OnExit = txtMailSubjectExit ; end ; object txtMailFrom: CEdit ; Left = 11 ; Top = 107 ; Width = 177 ; Height = 19 ; Color = 10210815 ; Ctl3D = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentCtl3D = False ; ParentFont = False ; TabOrder = 3 ; end ; object txtMailTo: CEdit ; Left = 11 ; Top = 143 ; Width = 177 ; Height = 19 ; Color = 10210815 ; Ctl3D = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentCtl3D = False ; ParentFont = False ; TabOrder = 4 ; end ; object txtAllowedStatusCodes: CEdit ; Left = 195 ; Top = 107 ; Width = 158 ; Height = 19 ; Color = 13750761 ; Ctl3D = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentCtl3D = False ; ParentFont = False ; ParentShowHint = False ; ReadOnly = True ; ShowHint = True ; TabOrder = 6 ; OnChange = txtAllowedStatusCodesChange ; end ; object chkFollowRedirect: CCheckBox ; Left = 179 ; Top = 301 ; Width = 113 ; Height = 17 ; Caption = 'Follow redirect' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; TabOrder = 10 ; end ; object txtPort: CEdit ; Left = 315 ; Top = 27 ; Width = 57 ; Height = 19 ; Color = 14155775 ; Ctl3D = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentCtl3D = False ; ParentFont = False ; TabOrder = 1 ; end ; object txtTimeOut: CEdit ; Left = 195 ; Top = 263 ; Width = 41 ; Height = 19 ; Color = 11448063 ; Ctl3D = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentCtl3D = False ; ParentFont = False ; TabOrder = 12 ; end ; object txtSMSTo: CEdit ; Left = 195 ; Top = 143 ; Width = 177 ; Height = 19 ; Color = 13296895 ; Ctl3D = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentCtl3D = False ; ParentFont = False ; TabOrder = 7 ; end ; object txtSMSSubject: CEdit ; Left = 195 ; Top = 183 ; Width = 177 ; Height = 19 ; Color = 13296895 ; Ctl3D = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentCtl3D = False ; ParentFont = False ; TabOrder = 8 ; end ; object txtBackOnTrackSubject: CEdit ; Left = 11 ; Top = 223 ; Width = 177 ; Height = 19 ; Color = 10210815 ; Ctl3D = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentCtl3D = False ; ParentFont = False ; TabOrder = 13 ; OnExit = txtMailSubjectExit ; end ; object chkIsGroupDef: CCheckBox ; Left = 297 ; Top = 223 ; Width = 89 ; Height = 17 ; Caption = 'Is definition' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; TabOrder = 14 ; OnClick = chkIsGroupDefClick ; end ; object txtGroupID: CEdit ; Left = 195 ; Top = 223 ; Width = 97 ; Height = 19 ; Color = 14674910 ; Ctl3D = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentCtl3D = False ; ParentFont = False ; TabOrder = 15 ; end ; object txtRetryInterval: CEdit ; Left = 11 ; Top = 263 ; Width = 41 ; Height = 19 ; Color = 11448063 ; Ctl3D = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentCtl3D = False ; ParentFont = False ; TabOrder = 16 ; end ; object txtRetryCount: CEdit ; Left = 107 ; Top = 263 ; Width = 41 ; Height = 19 ; Color = 11448063 ; Ctl3D = False ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentCtl3D = False ; ParentFont = False ; TabOrder = 17 ; end ; end ; end ; object chkStartWithCache: CCheckBox ; Left = 11 ; Top = 741 ; Width = 129 ; Height = 17 ; Anchors = [akLeft, akBottom] ; Caption = 'Start with Caché' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; TabOrder = 4 ; OnClick = chkStartWithCacheClick ; end ; object GroupBox1: CGroupBox ; Left = 9 ; Top = 676 ; Width = 435 ; Height = 45 ; Caption = ' Check period ' ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentFont = False ; TabOrder = 5 ; object lblCPStart: CLabel ; Left = 177 ; Top = 19 ; Width = 33 ; Height = 13 ; Caption = 'Start:' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; end ; object lblCPStop: CLabel ; Left = 283 ; Top = 19 ; Width = 31 ; Height = 13 ; Caption = 'Stop:' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; end ; object txtCPStart: CEdit ; Left = 215 ; Top = 15 ; Width = 57 ; Height = 21 ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; TabOrder = 0 ; Text = '07:50' ; OnExit = txtCPStartExit ; end ; object txtCPStop: CEdit ; Left = 319 ; Top = 15 ; Width = 57 ; Height = 21 ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Verdana' ; Font.Style = [] ; ParentFont = False ; TabOrder = 1 ; Text = '18:00' ; OnExit = txtCPStopExit ; end ; object chkCPIsActive: CCheckBox ; Left = 19 ; Top = 19 ; Width = 81 ; Height = 17 ; Caption = 'Active' ; Checked = True ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; ParentFont = False ; State = cbChecked ; TabOrder = 2 ; OnClick = chkCPIsActiveClick ; end ; end ; object tmrRefresh: CTimer ; Enabled = False ; OnTimer = tmrRefreshTimer ; Left = 300 ; Top = 24 ; end ; object ilPages: CImageList ; Left = 36 ; Top = 150 ; Bitmap = 'Ding.bmp,RedBell.bmp' ; end ; object pmStatusCodes: CPopupMenu ; OnPopup = pmStatusCodesPopup ; Left = 389 ; Top = 235 ; end ;end ]]> Args:%String cache 0 document literal cache 0 document literal initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 %Library.Status document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal 0:1,1:0) Do PageObj.%Close() Set Sender.Caption="Ok" Do MApplication.ProcessMessages() Hang 0.2 Set Sender.Caption="Save" ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal STOP Else If $LI(IsRunningStatus)=1 Do . New StopStatus . Set StopStatus=##class(BL.WEB.PageAlive.Main).STOP() . If $LI(StopStatus)'=1 Do ;ERROR/INFO .. Do MApplication.MessageBox($LI(StopStatus,2),..Form.Caption,$$$MBICONEXCLAMATION) Else If ($LI(IsRunningStatus)=0) || ($LI(IsRunningStatus)=2) Do . New StartStatus . Set StartStatus=##class(BL.WEB.PageAlive.Main).START() . If $LI(StartStatus)=1 Do .. Do MApplication.MessageBox($LI(StartStatus,2),..Form.Caption,$$$MBICONINFORMATION) . Else Do ;ERROR/INFO .. Do MApplication.MessageBox($LI(StartStatus,2),..Form.Caption,$$$MBICONEXCLAMATION) Do ..dCOMPWRITEgbStatus() Do ..dCOMPWRITElvPages() ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal cache 0 document literal cache 0 document literal cache 0 document literal cache 0 document literal wordt standaard al toegelaten! Set ..aStatusCode(201)="OK: following a POST command." Set ..aStatusCode(202)="OK: accepted for processing, but processing is not completed." Set ..aStatusCode(203)="OK: partial information, the returned information is only partial." Set ..aStatusCode(204)="OK: no response, request received but no information exists to send back." Set ..aStatusCode(301)="Moved, the data requested has a new location and the change is permanent." Set ..aStatusCode(302)="Found, the data requested has a different URL temporarily." Set ..aStatusCode(303)="Method, under discussion, a suggestion for the client to try another location." Set ..aStatusCode(304)="Not Modified, the document has not been modified as expected." Set ..aStatusCode(400)="Bad request, syntax problem in the request or it could not be satisfied." Set ..aStatusCode(401)="Unauthorized, the client is not authorized to access data." Set ..aStatusCode(402)="Payment required, indicates a charging scheme is in effect." Set ..aStatusCode(403)="Forbidden, access not required even with authorization." Set ..aStatusCode(404)="Not found, server could not find the given resource." Set ..aStatusCode(500)="Internal Error, the server could not fulfill the request because of an unexpected condition." Set ..aStatusCode(501)="Not implemented, the sever does not support the facility requested." Set ..aStatusCode(502)="Server overloaded, high load (or servicing) in progress." Set ..aStatusCode(503)="Gateway timeout, server waited for another service that did not complete in time." Quit ]]> ID:%String cache 0 %Library.TMListItem document literal Value:%Boolean="True" cache 0 document literal txtTime:%Library.TMEdit,TimeType:%Library.String cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal cache 0 document literal cache 0 document literal cache 0 document literal 0), gele klok . Set tmpItem.ImageIndex=$S('RS.Get("Enabled"):-1,RS.Get("ErrorCount")>0:1,1:0) . ;Set tmpItem.Checked=$$BoolToStr^vhLib() . Set tmpItem.Data=RS.Get("ID") Do RS.%Close() Do ..lvPages.Items.EndUpdate() Set MApplication.ScreenCursor=$$$crDefault Quit ]]> cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal 15 Do . Set Sender.Caption=$E(Sender.Caption,1,12)_"..." ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal %Library.CacheSerialState "%Library.TMFormClass" Address Form GroupBox1 Label1 Label2 Label3 Label4 Label5 Label6 Label7 Label8 Label9 SpeedButton1 SpeedButton2 lblCheckcount lblDot lblIsRunning lblJob lblPre1 lblPre2 lblPre3 lblPre4 lblStartTime btnRefresh btnStartStop gbStatus chkEnabled btnAfsluiten chkAutoRefresh tmrRefresh btnSingle Shape1 ListView1 lvPages Edit1 Edit2 pnlURLDetail chkURLEnabled txtLocation txtServer CheckBox1 chkIsWarned gbPageInfo Edit3 txtMailFrom txtMailSubject txtMailTo Shape2 SpeedButton3 SpeedButton4 btnResetErrorCount ID btnDeletePageInfo btnNewPageInfo btnSavePageInfo ilPages txtAllowedStatusCodes Shape3 pmStatusCodes btnStatusCodes Shape4 btnSurfTo btnTestURL chkFollowRedirect txtPort txtTimeOut Shape5 chkStartWithCache chkCPIsActive lblCPStart lblCPStop txtCPStart txtCPStop Label10 txtSMSTo Label11 txtSMSSubject Label12 txtBackOnTrackSubject Label13 chkIsGroupDef txtGroupID lblLocation lblPort lblServer lblAllowedStatusCodes shStatusCodes lblGroup Label14 Label15 txtRetryCount txtRetryInterval