From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
	INVALID_MSGID autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,297123c81a4f80e1
X-Google-Attributes: gid103376,public
From: joshhighley@hotmail.com (Josh Highley)
Subject: Re: Socket buffer filling up
Date: 1999/11/18
Message-ID: <383404ee.0@silver.truman.edu>#1/1
X-Deja-AN: 550247254
References: <383403bd.0@silver.truman.edu>
X-Trace: news.more.net 942955267 150.243.160.9 (Thu, 18 Nov 1999 14:01:07 CST)
Organization: Truman State University
User-Agent: Xnews/2.09.30
NNTP-Posting-Date: Thu, 18 Nov 1999 14:01:07 CST
Newsgroups: comp.lang.ada
Date: 1999-11-18T00:00:00+00:00
List-Id: <comp.lang.ada>

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