;---------------------------------------------------------------------------
; Document name: SC_UPDATE_STATUS.PRO
; Created by:    Liyun Wang, NASA/GSFC, May 12, 1997
;
; Last Modified: Sun Dec  3 01:50:44 2000 (GERMEROTT@sumop1.nascom.nasa.gov)
;---------------------------------------------------------------------------
;
FUNCTION sc_update_status, node_name, user=user, site=site
;+
; PROJECT:
;       SOHO - CDS/SUMER
;
; NAME:
;       SC_UPDATE_STATUS()
;
; PURPOSE:
;       Return status of database update status
;
; CATEGORY:
;       Database, planning
;
; SYNTAX:
;       Result = sc_update_status()
;
; INPUTS:
;       Noe required
;
; OPTIONAL INPUTS:
;       NODE_NAME - Node name (applicable only to VMS system)
;
; OUTPUTS:
;       None.
;
; OPTIONAL OUTPUTS:
;       None.
;
; KEYWORDS:
;       USER - Name of current IDL user; Default: sys$login
;       SITE - A named variable containing name of the operations site
;
; COMMON:
;       None.
;
; RESTRICTIONS:
;       None.
;
; SIDE EFFECTS:
;       None.
;
; HISTORY:
;       Version 1, May 12, 1997, Liyun Wang, NASA/GSFC. Written
;
; CONTACT:
;       Liyun Wang, NASA/GSFC (Liyun.Wang.1@gsfc.nasa.gov)
;-
;
   ON_ERROR, 2

   IF N_ELEMENTS(node_name) EQ 0 AND !version.os EQ 'vms' THEN BEGIN
      SPAWN, 'write sys$output f$getsyi("NODENAME")', node_name, $
         /noclisym, /nolognam
      node_name = STRTRIM(node_name(0), 2)
   ENDIF ELSE node_name = STRUPCASE(STRTRIM(node_name,2))

   su = 'RTGMNG'
   IF FIX(GETENV('PLAN_EDIT')) NE 0 THEN su = [su, 'LWANG']

   IF N_ELEMENTS(user) EQ 0 THEN user = get_userid()
   IF (grep(user, su))(0) NE '' THEN RETURN, 1
   site = GETENV('SOHO_OPSITE')
   status = ((node_name EQ 'SUMOP1' AND site EQ 'EOF') OR $
             (node_name EQ 'SIRIUS' AND site EQ 'MEDOC') OR $
             (node_name EQ 'LINSU1' AND site EQ 'LINDAU') OR $
             (node_name EQ 'VMS3' AND site EQ 'LINDAU') )
   RETURN, status
END

;---------------------------------------------------------------------------
; End of 'SC_UPDATE_STATUS.PRO'.
;---------------------------------------------------------------------------