/*********************************************************************
* Copyright (C) 2000 by Progress Software Corporation ("PSC"), *
* 14 Oak Park, Bedford, MA 01730, and other contributors as listed *
* below. All Rights Reserved. *
* *
* The Initial Developer of the Original Code is PSC. The Original *
* Code is Progress IDE code released to open source December 1, 2000.*
* *
* The contents of this file are subject to the Possenet Public *
* License Version 1.0 (the "License"); you may not use this file *
* except in compliance with the License. A copy of the License is *
* available as of the date of this notice at *
* http://www.possenet.org/license.html *
* *
* Software distributed under the License is distributed on an "AS IS"*
* basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You*
* should refer to the License for the specific language governing *
* rights and limitations under the License. *
* *
* Contributors: *
* *
*********************************************************************/
/* status.p - display brief and useful status information */
{src/web/method/cgidefs.i}
RUN show-status.
/* -------------------------------------------------------------------
Procedure: show-status
Purpose: Displays various status information
--------------------------------------------------------------------*/
PROCEDURE show-status :
DEFINE VARIABLE verbose-mode AS CHARACTER NO-UNDO.
DEFINE VARIABLE default-directory AS CHARACTER NO-UNDO.
DEFINE VARIABLE gmt-date AS CHARACTER NO-UNDO.
/* Get the current or default directory and save */
ASSIGN
FILE-INFO:FILE-NAME = ".":U /* do a stat() on the current directory */
default-directory = FILE-INFO:FULL-PATHNAME. /* get full path */
RUN OutputContentType IN web-utilities-hdl ("text/html":U).
{&OUT}
'~n':U
'':U 'WebSpeed Status' '~n':U
'~n':U
'':U 'WebSpeed Status' '
~n':U
{&END}
{&OUT}
'
~n':U
'~n':U /* start list */
'- ':U 'Web browser: '
'':U HTTP_USER_AGENT '~n':U
'
- ':U 'Web server: '
'':U SERVER_SOFTWARE '~n':U
'
- ':U 'Host and port part of URL: '
'':U HostURL '~n':U
'
- ':U 'Server relative URL of this Web object: '
'':U SelfURL '~n':U
'
- ':U 'Server relative URL for this application: '
'':U AppURL '~n':U
'
- ':U 'Web object path (PROPATH): '
'':U REPLACE(PROPATH, ",":U, ", ":U) '~n':U
'
- ':U 'Default directory for this application: '
'':U default-directory '~n':U.
/* Determine the WebSpeed installation directory. Currently, this only
works if an environment variable is used rather than a progress.ini in
Windows NT. */
IF OPSYS = "unix":U THEN
{&OUT}
'
- ' 'WebSpeed installation directory: '
'':U OS-GETENV("DLC":U) '~n':U.
{&OUT}
'
- ' 'WebSpeed operating system (OPSYS): '
'':U OPSYS '~n':U
'
~n':U.
/* Check for argument/field "verbose" */
RUN GetField IN web-utilities-hdl ("verbose":U, OUTPUT verbose-mode).
/* Verobse mode? */
IF verbose-mode = "yes":U THEN DO:
/* Output a link to ourself */
{&OUT}
'':U 'Brief' ' ':U 'mode' '
~n':U.
/* Run the debugging Web object without turning on debugging. */
RUN web/support/printval.p ("all":U).
END.
/* No, just output a link */
ELSE DO:
/* Output a link to ourself with an optional argument */
{&OUT}
'':U 'Verbose' ' ':U
'mode' '
~n':U.
END.
RUN CookieDate IN web-utilities-hdl (TODAY, TIME, OUTPUT gmt-date).
{&OUT}
'
~n':U
'':U "Generated on " gmt-date '~n':U
'~n':U
'~n':U
{&END}
END PROCEDURE. /* show-status */
/* status.p - end of file */