[0001]
[0002]
[0003]
[0004]
[0005]
[0006]
[0007]
[0008]
[0009]
[0010]
[0011]
[0012]
[0013]
[0014]
[0015]
[0016]
[0017]
[0018]
[0019]
[0020]
[0021]
[0022]
[0023]
[0024]
[0025]
[0026]
[0027]
[0028]
[0029]
[0030]
[0031]
[0032]
[0033]
[0034]
[0035]
[0036]
[0037]
[0038]
[0039]
[0040]
[0041]
[0042]
[0043]
[0044]
[0045]
[0046]
[0047]
[0048]
[0049]
[0050]
[0051]
[0052]
[0053]
[0054]
[0055]
[0056]
[0057]
[0058]
[0059]
[0060]
[0061]
[0062]
[0063]
[0064]
[0065]
[0066]
[0067]
[0068]
[0069]
[0070]
[0071]
[0072]
[0073]
[0074]
[0075]
[0076]
[0077]
[0078]
[0079]
[0080]
[0081]
[0082]
[0083]
[0084]
[0085]
[0086]
[0087]
[0088]
[0089]
[0090]
$! 'f$verify(0)'
$! See bottom of file for comments.
$!----------------------------------------------------------------------------
$ VMSHelpGate == "$" + f$parse("VMSHELPGATE.EXE;",f$environment("PROCEDURE"))
$ write net_link "<DNETPATH>"
$ read net_link htbin_path
$ www_path_info = f$edit(p2 - htbin_path,"UPCASE") ! close enough
$ path_info_length = f$length(www_path_info)
$!-------------------------------------------------
$! Change this to an acronym appropriate for your site.
$!
$ WWW_HOST_ACRONYM = "KCGL1"
$!
$! Set these to "TRUE" or "FALSE" as desired (case significant).
$ WWW_CREATE_REAL_LINKS = "TRUE" ! Create real links to links listed in HELP?
$ WWW_CREATE_HELP_LINKS = "TRUE" ! Create links to other HELP topics referenced?
$!
$! Set up the copyrights for foreign software, and default to DEC copyright.
$!
$ IF f$locate("@GCGHELP", WWW_PATH_INFO) .lt. path_info_length
$ Then
$ WWW_COPYRIGHT_STRING = -
"Copyright 1993, <b>Genetics Computer Group, Inc.</b> All rights reserved."
$!
$ Else IF f$locate("@MULTINET", WWW_PATH_INFO) .lt. path_info_length
$ Then
$ WWW_COPYRIGHT_STRING = "Copyright <b>TGV, Inc.</b> All rights reserved."
$!
$ Else IF f$locate("@CSWING", WWW_PATH_INFO) .lt. path_info_length
$ Then
$ WWW_COPYRIGHT_STRING = -
"Copyright <b>Harry Flowers and Foteos Macrides</b> <A " + -
"HREF=""gopher://sci.wfeb.edu/11%5b_FileServ._CSwing%5d"" " + -
"TITLE=""C Swing"">FreeWare</A>."
$!
$ ELSE ! Default
$ WWW_COPYRIGHT_STRING = -
"Copyright <b>Digital Equipment Corp.</b> All rights reserved."
$!
$ EndIF ! GCG
$ EndIF ! MultiNet
$ EndIF ! C Swing
$!
$ VMSHelpGate "''p1'" "''p2'" "''P3'"
$exit
$!----------------------------------------------------------------------------
$! HelpGate.COM
$!
$! 01-May-1994 F.Macrides (macrides@sci.wfeb.edu)
$! Example htbin script interface to the VMS
$! help library gateway (VMSHelpGate.c).
$! For use with CERN v216-1betavms httpd.
$! Should be placed where your htbin scripts
$! have been mapped.
$! 13-Nov-1996 Jim Winkle (jwinkle@doit.wisc.edu)
$! Added WWW_CREATE_REAL_LINKS and WWW_CREATE_HELP_LINKS
$! symbols.
$!
$! VMSHelpGate.c is my modification of Jean-Francois Groff's (CERN, 1992)
$! v1 WWWLib gateway. I have upgraded it to HTTP/1.0 and for use via
$! a CGI interface, with parameters passed via symbols. Read its header
$! for more information about its history and characteristics, and how
$! to set up your httpd configuration file for this service.
$!
$! If properly configured, it is evoked via URL's of the following form:
$!
$! http://<host>[:port]/HELP[/@library][/topic[/subtopic...]]
$!
$! or anchors in your httpd's HTML files as in the following example:
$!
$! <A href="/HELP">VMS HELP</A>
$! <A href="/HELP/@MULTINET:MULTINET">MultiNet HELP</A>
$!
$! The symbol WWW_PATH_INFO, with the partial URL for the requested
$! library and module, will have been set up by the httpd. This
$! script sets up the symbols:
$!
$! WWW_HOST_ACRONYM (optional) A brief acronym for your site, to use
$! as a prefix in HTML titles.
$! WWW_COPYRIGHT_STRING (optional) A copyright notice for the libraries
$! of copyrighted software.
$! WWW_CREATE_REAL_LINKS (optional) Determines if we create real links
$! from links simply listed in HELP text.
$! WWW_CREATE_HELP_LINKS (optional) Determines if we create links to other
$! HELP topics that are referenced.
$!
$!
$! Set up the foreign command definition for VMSHelpGate, below,
$! or define it in the HTTP Server's SpawnInit.com.
$!