Using TCPObject

%obj = new TCPObject(TCPObj);	
%obj.connect("www.yoursite.com:80");

function TCPObj::onConnected(%this)
{	
	// When connected to the server send large amount of data
	// Read in large amount of text data

	%filename= %largeTextFile;
   %file = new FileObject();
   if(%file.openForRead(%filename))
   {
   	%text = %file.readLine();
      while(!%file.isEOF())
      {
        %data = %data @ "{=||=}" @ %file.readLine(); // {=||=} is used to represent a CR and/or LF 
        															  // and should be parsed on the server side to 
        															  // such for an exact duplicate of the original 
        															  // data to be created
      }
   }
   %file.delete();
   
   // Replace SPC and + with HTML encoded alternative
   %data=strreplace(%data," ","%20");
	%data=strreplace(%data,"+","%2B");
   
	//Create HTML variable to hold data
	%data="data=" @ %data;
	
	//Create HTML 1.0 POST line.  Must do STRLEN of %data for Content-length HTML header
	%htmlpost="POST /path/to/serverscript.php HTTP/1.0\nHost: www.yoursite.com:80\nUser-Agent: Torque/1.0 \nAccept: */*\nContent-length: " @ strlen(%data) @ "\nContent-type: application/x-www-form-urlencoded\n\n" @ %data;
	
	//Send POST line to the webserver
	%this.send(%htmlpost @ " \r\n");
}

function httpPage::onConnected(%this)
{
   warn("Connected ...");
   if(!isfile(%this.filename)){
      %query = "GET " @ %this.page @ " HTTP/1.0\nHost: " @ %this.Address @ "\n\n";
      %this.send(%query);
   }
   else{
         %file = new FileObject();
         if(%file.openForRead(%this.filename))
         {
   	      %text = %file.readLine();
            while(!%file.isEOF())
            {
               %text = %text @ "\r\n" @ %file.readLine();
            }
         }
         %file.delete(); 
   
         %text=URLEncode(%text);
         %boundary="---------------------------29772313742745";
	      %data="--"@%boundary@"\r\nContent-Disposition: form-data; name=\"SampleFile\";filename=\"" @ filename(%this.filename) @ "\"; Content-Type:text/plain\r\n\r\n" @ %text @"\r\n\r\n--" @%boundary ;
	      
	     // %data= %data@ "\r\nContent-Disposition: form-data; name="userName"

	      %httpCmd="POST "@%this.page @ " HTTP/1.1\nHost: "@ %this.Address @"\nUser-Agent: Mozilla/5.0\nAccept: */*"@"\nContent-Length:"@ strlen(%data)@"\nContent-Type: multipart/form-data; charset=UTF-8; boundary="@%boundary@"\r\n\r\n"
	       @ %data  @ "\r\n";

	     // echo(%httpCmd);
	      
	      %this.send(%httpCmd);
   
   }
   
}