// September 2015
// Levee Patroller / Dijk Patrouille
// This source file is (c) by Deltares. This source file is open source but only available to select users. Do not redistribute without written permission of Stichting Deltares, Delft, The Netherlands.
// This header has been automatically generated.



Class BYBrowser_HTTPLink Extends BufferedTCPLink;

var PlayerController PC; //reference to our player controller

Var String ServerAddress;
Var String ServerPath;
Var Int ServerPort;
//Var BYBrowser_Page BYBP;
Var Array<String> LinesA;
Var Array<String> TotalRequestLines;
var string TotalText;

// hash_ui
var string id;

var string sessionid;
var string username;

Function RetrieveServers()
{
    LinesA.Length = 0;
    ResetBuffer();
    Resolve(ServerAddress);
}

Function Resolved(IpAddr Addr)
{
    Addr.Port = 80;

    If (BindPort() == 0)
        Return;

    Open(Addr);
}

Event Opened()
{
    Local String SendString;
	local string requesttext;

	TotalRequestLines.Length = 0;
    ///SendString = "GET " $ ServerPath $ " HTTP/1.0" $ CRLF $ "Host: " $ ServerAddress   $ CRLF $ CRLF;


	requesttext = "u=" $ username $ "&sid=" $sessionid $ "&id=" $ id ;

	SendString = "POST "$ServerPath$" HTTP/1.0"$chr(13)$chr(10);
	SendString = SendString $ ("Host: "$ServerAddress$chr(13)$chr(10));
	SendString = SendString $ ("User-Agent: HTTPTool/1.0"$Chr(13)$Chr(10));
	SendString = SendString $ ("Content-Type: application/x-www-form-urlencoded"$chr(13)$chr(10));

	//we use the length of our requesttext to tell the server
	//how long our content is
	SendString = SendString $ ("Content-Length: "$len(requesttext)$Chr(13)$Chr(10));
	SendString = SendString $ (chr(13)$chr(10));
	SendString = SendString $ (requesttext);
	SendString = SendString $ (chr(13)$chr(10));
	SendString = SendString $ ("Connection: Close");
	SendString = SendString $ (chr(13)$chr(10)$chr(13)$chr(10));

	//Log(SendString);

    SendBufferedData(SendString);
}

Function Tick (Float TimeDelta)
{
    DoBufferQueueIO();
}

event ReceivedText(string Text)
{
	TotalText = TotalText $ Text;
/*
    Local int I;

    SplitIntoLines(Text);

    For (i=0;i<linesa.length;i++)
	{
	/// Add to list of all lines.
		TotalRequestLines.Length = TotalRequestLines.Length + 1;
		TotalRequestLines[TotalRequestLines.Length-1] = linesa[i];
		Log("req: " @ linesa[i]);
	}


	Log("==============");
  //  BYBP.RefreshFinished();

    LinesA.Length = 0;*/
}

event Closed()
{
local int i;
    // In this case the remote client should have automatically closed
    // the connection, because we requested it in the HTTP request.
    Log("[BYBrowser_HTTPLink] event closed:scenario");
 

    SplitIntoLines(TotalText);

    For (i=0;i<linesa.length;i++)
	{
	/// Add to list of all lines.
		TotalRequestLines.Length = TotalRequestLines.Length + 1;
		TotalRequestLines[TotalRequestLines.Length-1] = linesa[i];
	//	Log("req: " @ linesa[i]);
	}


	//Log("==============");
  //  BYBP.RefreshFinished();

    LinesA.Length = 0;

 	GeoPlayerController(PC).ReceiveArrayClosed("scenarios", TotalRequestLines);

    // After the connection was closed we could establish a new
    // connection using the same TcpLink instance.
}


Function SplitIntoLines(String Text)
{
    Local int i;
    Local String Temp;

    Text = Mid(Text, InStr(Text, CRLF) + 1); //Split off the headers
//Log("xxxx: " @ Text);
    Do  {
        Temp = "";
        Temp = Left(Text, InStr(Text, Chr(10)));

//Log("zzzz: " @ Text);
        If ((Temp != "") && (Temp != Chr(10)) && (Temp != Chr(13)))
            {
            LinesA.Length = LinesA.Length + 1;
            LinesA[LinesA.Length -1] = Temp;
            }
        Text = Mid(Text, InStr(Text, Chr(10)) + 1);
		

        i++;
        } Until ((InStr(Text, Chr(10)) == -1) || (i > 100)); //put in to stop a massive loop which might happen
}

DefaultProperties
{
    ServerAddress="leveepatroller.deltares.nl"
    ServerPath="/index.php/leveecontrol/process_scenarios"
    ServerPort=80
}