Re: Socket buffer filling up

[joshhighley@hotmail.com (Josh Highley)]

joshhighley@hotmail.com (Josh Highley) wrote in 
<383403bd.0@silver.truman.edu>:

oops, my code wasn't correct, I forgot to specify the beginning of the 
loop.  Here's the correct code, hopefully:

WITH Sockets;
USE  Sockets;
-- other wits and uses

PROCEDURE my_sockets IS 

   Connection1 : Socket_Fd;
   Connection2 : Socket_Fd;
   Http_Port   : CONSTANT Positive  := 80;  
   Web_Server1 : CONSTANT String    := "www.server-one.com";
   Web_Server2 : CONSTANT String    := "www.server-two.com";  

BEGIN  -- main program
   LOOP 
      Connection1 := Socket (Af_Inet, Sock_Stream);
      Put_Line("Connecting. . .");
      Connect (Connection1, Web_Server1, Http_Port);
         -- put stuff on socket
      -- get stuff from socket
      Shutdown(Connection1);

         -- parse the data received

      Connection2 := Socket (Af_Inet, Sock_Stream);
      Connect(Connection2, Web_Server2, Http_Port);

      -- put stuff on socket
      -- get stuff from socket until certain information is found, then...
      Put_Line("Closing Connection.");
      Shutdown(Connection2);
      DELAY Seconds_Wait;  -- I've been delaying 3 minutes
   END LOOP;

END my_sockets;


Thanks,

Josh Highley
joshhighley@hotmail.com