RE: DDAR CCF generator - FAO Kieran

["UKHA" <ukha@xxxxxxx>]

Kieran,

with my limited (VERY) understanding of perl I think I've established that
your script is actually waiting for some data to be returned:


sub httpGet {
        my ($host, $port, $file) =
($_[0] =~ m/http\:\/\/([^\:^\/]*)(?:\:(\d+))?(\/.*)/);
        $port = 80 unless($port);
        print "$host $port
$file\n*";
        my $proto =
getprotobyname('tcp');
        socket(SOCK, PF_INET,
SOCK_STREAM, $proto);
        my $sin = sockaddr_in($port,
inet_aton($host));
        connect(SOCK, $sin)  die
"Connect failed: $!\n";
        print "*";
        my $old_fh = select(SOCK);
        $=1; 
        select($old_fh);
        print SOCK "GET $file
HTTP/1.0\nAccept: */*\nUser-Agent: Rio Pronto Script\n\n"; 
        print "sent request\n";
        my $header = <SOCK>; #
Wait for first line of reply
        print "after waiting for first
line\n";
        print "$header";
        do {print
"$header$_[0]\n";return"";} unless($header=~m/200OK/);
        while(<SOCK>) {
           
    print "*";
      <....the rest of the code goes
here...>


results in:

Getting album list...
192.168.72.202 12078 /query?source=
**sent request

so since it never gets to 

      print "after waiting for first
line\n";

something is wrong, If I use (http) 192.168.72.202 12078 /query?source=
in a browser i get the list returned....

any ideas?

Andy





*********** REPLY SEPARATOR  ***********

On 09/01/03 at 12:01 Broadfoot, Kieran J wrote:

>Unfortunately the file is not created until all the output from the
server
>has been collected as it needs to do some funky stuff with all the
data.
>What youll see once the script has collected the data is output on
STDOUT
>which specifies the number of panels per letter and the albums in
each
>panel.  Ill look at adding a progress meter sometime before next
week as Im
>unfortunately busy for the next couple of days.
>
>Ben: It seems your mileage may vary ;-)
>
>thanks
>kieran
>


--- Tag-it! v2.0 (c) Andy Powell 1998

** UNREGISTERED LINGERIE - PLEASE SUPPORT THE UNDERWARE CONCEPT **




http://www.automatedhome.co.uk
Post message: ukha_d@xxxxxxx 
Subscribe:  ukha_d-subscribe@xxxxxxx 
Unsubscribe:  ukha_d-unsubscribe@xxxxxxx 
List owner:  ukha_d-owner@xxxxxxx
List of UKHA Groups here - http://groups.yahoo.com/group/UKHA_Grouplists/

Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.