nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

REST Morning wake up

andrewj_ca

REST Morning wake up

I've read alot of posts regarding slow operation or errors accessing a rest service first thing in the morning or the first operation of the day. I thought I'd attach a little application I use to prevent this. It also has email notification for when a service stops and starts. I figure it works for us and may work for you. After using this app, please feel free to send me your comments or issues. I've included two services in the list for an example. Cheers.

Service List (xml)

Web Service Monitor Executable (exe)

Encuentra más publicaciones etiquetadas con

Accepted answers

All comments

RobertScheitlin__GISP

mcnaughty79,

Can you also provide the source for the web service monitor app?

andrewj_ca

Unfortunately I won't be able to legally share the source code but I am willing to help with any questions you may have. Cheers

RobertScheitlin__GISP

mcnaughty79,

Shame... I just can't run an executable from an unknown party when I can not verify the code is doing only what it claims to do.

andrewj_ca

Would a snippet of the code suffice or do you require the complete source? I guarantee there is nothing malicious in the executable.

CaseyBentz

Robert,

I have an application that runs as a scheduled task that basically parses my /ArcGIS/rest/services directory and opens each service. I wrote it a while ago, with no documentation, so take it as it is.

I have attached a zip file, which I have had no luck with attaching, so I have also include the source code that you could copy into a console appliction.

Imports System.Threading
Imports System.Net

Module agsServicesWakeUp
    Sub Main()
        readHTML()
    End Sub
    Private Sub readHTML()
        Try
            Dim objWebClient As New WebClient
            objWebClient.UseDefaultCredentials = True
            Dim aRequestHTML() As Byte = objWebClient.DownloadData("http://yourservername/ArcGIS/rest/services") 'Change to your server
            Dim counter As Integer = 0
            Dim html As String = ""

            Do While counter < aRequestHTML.Length
                html += Chr(aRequestHTML.GetValue(counter))
                counter = counter + 1
            Loop

            Dim serviceFolderArray() As Object = {}
            Dim i As Integer = 0
            Dim j As Integer = 1
            Dim count As Integer = 0
            Do While i < html.Length
                i = InStr(j, html, "/ArcGIS/rest/services/")
                If i > 0 Then
                    j = InStr(i, html, ">") - 1
                    Dim serviceFolder() As String = {html.Substring(i - 1, j - i)}
                    Array.Resize(serviceFolderArray, count + 1)
                    Array.ConstrainedCopy(serviceFolder, 0, serviceFolderArray, count, 1)
                    count = count + 1
                    i = j
                Else
                    i = 0
                    j = 1
                    count = 0
                    Exit Do
                End If
            Loop

            Dim k As Integer = 0
            Dim servicesArray() As Object = {}

            Do While k < serviceFolderArray.Length
                objWebClient.UseDefaultCredentials = True
                Dim serviceRequestHTML() As Byte = objWebClient.DownloadData("http://yourservername" + serviceFolderArray(k).ToString) 'Change to your server name
                counter = 0
                html = ""

                Do While counter < serviceRequestHTML.Length
                    html += Chr(serviceRequestHTML.GetValue(counter))
                    counter = counter + 1
                Loop

                Do While i < html.Length
                    i = InStr(j, html, serviceFolderArray(k).ToString + "/")

                    If i > 0 Then
                        j = InStr(i, html, ">") - 1
                        Dim service() As String = {html.Substring(i - 1, j - i)}
                        Array.Resize(servicesArray, count + 1)
                        Array.ConstrainedCopy(service, 0, servicesArray, count, 1)
                        count = count + 1
                        i = j
                    Else
                        i = 0
                        j = 1
                        Exit Do
                    End If
                Loop
                k += 1
            Loop

            callURL(servicesArray)
            callURL(servicesArray)

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub
    Private Sub callURL(ByVal servicesArray As Object, Optional ByVal sleep As Integer = 100)
        Dim i As Integer = 0
        Dim webApp
        webApp = CreateObject("InternetExplorer.Application")
        webApp.Visible = False

        Do While i < servicesArray.Length
            Console.WriteLine("http://yourservername" + servicesArray(i).ToString) 'Change to your server name
            webApp.Navigate("http://yourservername" + servicesArray(i).ToString) 'Change to your server name
            Thread.Sleep(sleep)
            i += 1
        Loop

        webApp.quit()
        webApp = Nothing
    End Sub
End Module

wakeUpServices.zip

andrewj_ca

Quick snippet:

    Public Function PingWebService(ByVal serviceURL As String, ByVal sType As String) As Boolean
        Try
            Dim httpreq As Net.HttpWebRequest = Net.WebRequest.Create(serviceURL)
            Dim httpres As Net.HttpWebResponse = httpreq.GetResponse()
            Dim httpr As Boolean = False
            If httpreq.HaveResponse = True AndAlso Not (httpres Is Nothing) Then
                Dim r As New IO.StreamReader(httpres.GetResponseStream())
                Dim str As String = r.ReadToEnd
                Select Case sType
                    Case "REST"
                        If Not str.IndexOf("<div class=" & Chr(34) & "restErrors" & Chr(34) & ">", 0) > -1 Then
                            httpr = True
                        End If
                    Case "WMS"

                End Select
            End If
            Return httpr
        Catch ex As Exception
            Return False
        End Try
    End Function

Use:

PingWebService("http://server.arcgisonline.com/ArcGIS/rest/services/World_Imagery/MapServer","REST")

Return true or false

RobertScheitlin__GISP

Andrew and Casey,

Thanks for the code. I believe that this is a mute point with ArcGIS Server 10 though. In 10 the ArcGIS SOC Monitor (that didn't do anything in 9.3) handles keeping the service awake.

andrewj_ca

No problem Robert, but lets be honest. No topic is ever mute when it comes to ArcGIS.

RobertScheitlin__GISP

Andrew,

Good point. Yours and Casey's code will help all of those that will not be upgrading to 10 right away.

DonCavinessGeo

Robert, is the anything special you have to do with ArcGIS SOC Monitor in 10 to keep the services awake? I have noticed this issue with my 10 setup as well as our 9.3.1 setup.

RobertScheitlin__GISP

Don,

In ArcGIS Server Manager there is a new option see attached.

keepawake.jpg

DonCavinessGeo

Thank you Robert, I missed that option in the service properties.

DrewDowling

I've found the script discussed in this blog extremely useful in keeping services awake and notifying me if the go down. Can query images and locators as well as distinguishing between REST and SOAP.

Únete a la Conversación

Los miembros registrados pueden publicar, seguir actualizaciones y más. ¿Nuevo aquí? Regístrate gratis.

Enlaces Rápidos

Community Help
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.