[Info-vax] OSU server and scripts

[Paul Sture]

In article <l3btfg$a1b$1 at online.de>,
 helbig at astro.multiCLOTHESvax.de (Phillip Helbig---undress to reply) 
 wrote:

> In article <l39e52$2oa$1 at online.de>, helbig at astro.multiCLOTHESvax.de
> (Phillip Helbig---undress to reply) writes: 
> 
> > In article <l39c3m$vai$1 at online.de>, helbig at astro.multiCLOTHESvax.de
> > (Phillip Helbig---undress to reply) writes: 
> > 
> > > If so, what do I need to get things working? 
> > 
> > I had VAX executables in the [BIN] directory.  Things work now.
> 
> Well, almost.
> 
> I have a test script which generates some output as expected.  It starts 
> off with 
> 
>    $ crlf = f$fao("!/")
> 
> If I change this to 
> 
>    $ crlf = ""
> 
> then the output is identical, except that the first few lines of output 
> are missing.  (When looking at the source, as expected the first 
> generates extra blank lines between the output lines, but as these are 
> ignored in HTML the HTML output looks the same.)
> 
> One of the lines which disappears is just
> 
>    $ write net_link "test",crlf
> 
> If I copy this line to further down in the script, then it IS output.
> 
> Can anyone reproduce this with the OSU server and 3.11a on ALPHA?
> 
> $ crlf = f$fao("!/")
> $! crlf = ""
> $ write net_link "<DNETRECMODE2>"
> $ cgi_symbols
> $ write net_link "content-type: text/html",crlf
> $!warum siehe ich hier nichts?

I think there's supposed to be a blank line at this point.

See Hoff's article on the subject here:

<http://labs.hoffmanlabs.com/node/277>

> $ write net_link "test",crlf
> $ long = "1234567890"
> $ long = long + long + long + long + long + long 	! 60
> $ long = long + long + long + long			! 240
> $ long = long + long + long + long			! 960
> $ sublong = "1234567890"
> $ write/symbol net_link "x1 BB: ", long,long,crlf
> $ write net_link ""
> $ write/symbol net_link "x1 CC: ", long,long,crlf
> $ write net_link "one line", crlf
> $ write net_link "<BR>", crlf
> $ write net_link "test",crlf
> $ write net_link "<BR>", crlf
> $ write net_link "''f$trnlnm("sys$sysdevice")'", crlf
> $ write net_link "<BR>", crlf
> $ write net_link "<B>TEST</B>"
> $ write net_link "<BR>", crlf
> $ write net_link "x1: dd DD",crlf
> $ write net_link "<BR>", crlf
> $ define/user sys$output disk$user:[http_server]xx.xx
> $ sh logical
> $!goto weiter
> $ create disk$user:[http_server]xx.xx
> jfweijwep
> $ define xxxxx yyyyy
> $ aa := bb
> $ write net_link "<BR>", crlf
> $ write net_link "''f$trnlnm("xxxxx")'", crlf
> $ write net_link "<BR>", crlf
> $ write net_link "aa", crlf
> $ write net_link aa, crlf
> $ write net_link "<BR>", crlf
> $ copy sys$input net_link
> <I>TEST</I>
> <BR>
> some text
> </HTML>
> $weiter:
> $ exit

-- 
Paul Sture

IBM's Thomas J. Watson predicted a "world market for maybe five computers".
Given the way this whole Cloud thing is going, he might have been extremely
prescient.