The problem i'm having and what I do not understand is that sometimes it bails completely, and sometimes it creates the TCP server as expected. As far as I can tell commenting out the select/endselect code resolves this.
Is the select/endselect statement bugged in the Macintosh demo under OSX 10.4.4 or is something else awry?
Thank you.
Code: Select all
;Becky Rose's attempt at making a file sharing program operate as a web server.
Structure client
activeTask.l
EndStructure
NewList user.client()
Procedure initTCP()
;Initialise TCP/IP Stack
tcpipStack=InitNetwork()
If tcpipStack
Else
userClick = MessageRequester("TCP/IP","E1: No Networking stack available for program execution",#PB_MessageRequester_Ok)
End
EndIf
EndProcedure
Procedure startServer()
;Create server (HTTP on port 80)
server = CreateNetworkServer(8000)
If server
Else
userClick = MessageRequester("TCP/IP","E2: Port 80 in use. Cannot initialise web server",#PB_MessageRequester_Ok)
End
EndIf
EndProcedure
Procedure activeServer()
Repeat
serverEvent=NetworkServerEvent()
Select serverEvent
Case 1
AddElement(user())
user()\activeTask=1
Case 2
Case 3
Default
EndSelect
Until quit
EndProcedure
initTCP()
startServer()
activeServer()