[MacPerl] Problems with server push (cont'd)

[pr1@club-internet.fr (Philippe de Rochambeau)]

I am trying to implement server push on a MacHTTP 2.2 server, using the Feb
96 MacHTTP CGI glue, but keep getting error number -1407 when the script is
run. Can anybody help me? Is my code wrong? I refer to it as the SRC of an
image in my Default html page.

#!usr/local/bin/perl

# From page 388 of Serving the Web, by Robert Jon Mudry,
# Coriolis Group Books, 1995

require "flush.pl";

print "HTTP/1.0 200\n";
print "Content-type: multipart/x-mixed-replace;boundary=ARandomString\n\n";

print "--ARandomString\n";

while (1) {
        print "Content-type: image/gif\n\n";
#       open(IMAGE, "</home/http/icons/a_up.gif");
# ma version
        open(IMAGE, "<pictures/icons/a_up.gif");
        while (read(IMAGE, $buf, 1024)) {
                print $buf;
        }
        close(IMAGE);
        print "\n--ARandomString\n";
        &flush(STDOUT);
# nŽcessaire sur le mac, pas sur PC
        $_ = <STDIN>;
#####
        sleep(1);

        print "Content-type: image/gif\n\n";
#       open(IMAGE, "</home/http/icons/a_right.gif");
        open(IMAGE, "<pictures/icons/a_right.gif");
        while (read(IMAGE, $buf, 1024)) {
                print $buf;
        }
        close(IMAGE);
        print "\n--ARandomString\n";
        &flush(STDOUT);
        $_ = <STDIN>;
        sleep(1);

        print "Content-type: image/gif\n\n";
#       open(IMAGE, "</home/http/icons/a_down.gif");
        open(IMAGE, "<pictures/icons/a_down.gif");
        while (read(IMAGE, $buf, 1024)) {
                print $buf;
        }
        close(IMAGE);
        print "\n--ARandomString\n";
        &flush(STDOUT);
        $_ = <STDIN>;
        sleep(1);

        print "Content-type: image/gif\n\n";
#       open(IMAGE, "</home/http/icons/a_left.gif");
        open(IMAGE, "<pictures/icons/a_left.gif");
        while (read(IMAGE, $buf, 1024)) {
                print $buf;
        }
        close(IMAGE);
        print "\n--ARandomString\n";
        &flush(STDOUT);
        $_ = <STDIN>;
        sleep(1);
}

Philippe de Rochambeau


============================================================================
Philippe de Rochambeau                                  pr1@club-internet.fr