`Include file for all network related functions. (( CORE ENGINE FILE ))

`Mandatory additional source files.

`Optional additional source files.

`===============================================================================================
`= DO DO SECTION ===============================================================================
`===============================================================================================

`===============================================================================================
`===============================================================================================
`Insanity Engine function to initialise the network subsystem.
`===============================================================================================
Function Network_Initialise()
   
   #constant Network_IDLE 0
   #constant Network_FILEUPLOAD 1
   #constant Network_FAIL -1
   #constant Network_SUCCESS 1

   Global Network_Progress# = 0.0
   Global Network_Type = Network_IDLE
   Global Network_Response = Network_IDLE
   Global Network_Message$ = ""

   Global Network_ConnectionID = Network_IDLE
EndFunction
`===============================================================================================
`===============================================================================================
`Insanity Engine function which updates all networking routines.
`===============================================================================================
Function Network_Update()
   Network_Response = Network_IDLE


   If Network_ConnectionID <> Network_IDLE

      If GetHTTPResponseReady( Network_ConnectionID ) = 1

         Network_Message$ = GetHTTPResponse( Network_ConnectionID )
         If Lower( Network_Message$ ) = "success" Then Network_Response = Network_SUCCESS
         If Lower( Network_Message$ ) = "fail" Then Network_Response = Network_FAIL

         CloseHTTPConnection( Network_ConnectionID )
         DeleteHTTPConnection( Network_ConnectionID )

         Network_ConnectionID = Network_IDLE
         Network_Progress# = 100.0
      Else
         Network_Progress# = GetHTTPFileProgress( Network_ConnectionID )
         Network_Message$ = Str( Network_Progress#, 2 ) + "%"
      EndIf

   EndIf

EndFunction
`===============================================================================================
`===============================================================================================
`Insanity Engine function which uploads FileName$ to URL$, calling ServerFile$ passing in PostData$.
`===============================================================================================
Function Network_UploadFileToServer( FileName$, URL$, ServerFile$, PostData$ )
`   If Not GetInternetState()
`      If Engine.DebugModeEnabled = True Then UI_ShowMessage( "No network connection" )
`      ExitFunction False
`   EndIf
   Network_Type = Network_FILEUPLOAD
   Network_Message$ = ""
   Network_ConnectionID = CreateHTTPConnection()

   SetHTTPHost( Network_ConnectionID, URL$ , 0 )
   SendHTTPFile( Network_ConnectionID , ServerFile$, PostData$, FileName$ )
   Network_Progress# = 0.0
EndFunction
`===============================================================================================
`===============================================================================================
`===============================================================================================