[Info-vax] VMS-based InfoServer

[Cluster-Karl]

On 4 Aug., 09:39, hel... at astro.multiCLOTHESvax.de (Phillip Helbig---
undress to reply) wrote:
> Is anyone using the VMS-based InfoServer?  How difficult is it to set
> up?

I use it a little (to access documentation mainly). Setup is easy:
- on the server, you define the services e.g.
$ Infoserver := $ESS$INFOSERVER
$ Call Doit AXPDOCSEP061 $1$LDA117:
$ Exit
$ Doit: Subroutine
$ Loop1:
$ If (F$Getdvi("''P2'","EXISTS"))
$ Then
$       If (F$Getdvi("''P2'","AVL"))
$       Then
$               If (F$Getdvi("''P2'","MNT"))
$               Then
$                       INFOSERVER Create Service 'P1' 'P2'  -
                                /Class=ODS_2/Readers=1000/NoWriters -
                                /Readahead/NoReadbehind -
                                /Rating=Dynamic
$                       Exit
$               Endif
$       Endif
$ Endif
$ Write Sys$Output "...waiting for ''P2' to become available..."
$ Wait 00:00:10
$ Goto Loop1
$!
$ Exit
$ EndSubroutine

- on the client, you bind to it, e.g. (small excerpt from a general
procedure)
$!__try to bind to the specified service
$   Ladcp       Bind /System 'Ladsrv'
$   Laddev      = F$Trnlnm("Dad$''Ladsrv'")
$   If (Laddev.eqs."") .or. (.not.F$Getdvi("''Laddev'","EXISTS"))
$   Then
$       Ws  "?MOUDSK-E-, unable to bind to ''LADSRV'."
$       Goto Lad_1
$   Endif
$ mount ...

regards Kalle