subroutine disconnect
*************************************************************************
* Test sending a end connection or end session message split across
* multiple TCP/IP packets
*************************************************************************
*
* [00] 24Oct97 jr Initial Creation
include wbp w3Include
pattern = ""
call w3GetVal(pattern, "4ce")
call w3Log("disconnect", "Pattern: ":pattern)
call w3HtmlInit("","")
call w3HtmlHeader("","##TITLE##":@VM:"Disconnect test":@AM:"##HEADLINE##":@VM:"Disconnect Test")
call w3Printn("<P>Pattern requested: ")
begin case
case pattern = "010"
call w3Printn("010")
call w3HtmlFooter("","")
w3CommSocketPassNulls = 1
call w3Print( char(0):1:char(0))
w3CommSocketPassNulls = 0
case pattern = "0-10"
call w3Printn("0-10")
call w3HtmlFooter("","")
w3CommSocketPassNulls = 1
call w3print( char(0) )
sleep(2)
call w3Print(1:char(0))
w3CommSocketPassNulls = 0
case pattern = "01-0"
call w3Printn("01-0")
call w3HtmlFooter("","")
w3CommSocketPassNulls = 1
call w3print( char(0):1 )
sleep(2)
call w3Print(char(0))
w3CommSocketPassNulls = 0
case pattern = "0-1-0"
call w3Printn("0-1-0")
call w3HtmlFooter("","")
w3CommSocketPassNulls = 1
call w3print( char(0) )
sleep(2)
call w3Print(1)
sleep(2)
call w3Print(char(0))
w3CommSocketPassNulls = 0
case pattern = "000"
call w3Printn("000")
call w3HtmlFooter("","")
w3CommSocketPassNulls = 1
call w3Print( char(0):0:char(0))
w3CommSocketPassNulls = 0
case pattern = "0-00"
call w3Printn("0-00")
call w3HtmlFooter("","")
w3CommSocketPassNulls = 1
call w3print( char(0) )
sleep(2)
call w3Print(0:char(0))
w3CommSocketPassNulls = 0
case pattern = "00-0"
call w3Printn("00-0")
call w3HtmlFooter("","")
w3CommSocketPassNulls = 1
call w3print( char(0):0 )
sleep(2)
call w3Print(char(0))
w3CommSocketPassNulls = 0
case pattern = "0-0-0"
call w3Printn("0-0-0")
call w3HtmlFooter("","")
w3CommSocketPassNulls = 1
call w3print( char(0) )
sleep(2)
call w3Print(0)
sleep(2)
call w3Print(char(0))
w3CommSocketPassNulls = 0
case 1
call w3Printn("<P>Please set 4ce to any of the following:")
call w3Printn("<UL><LI>000<LI>0-00<LI>00-0<LI>0-0-0")
call w3Printn("<LI>010<LI>0-10<LI>01-0<LI>0-1-0</UL>")
call w3HtmlFooter("","")
end case
return