Testing... Netscape 1.1 and better server push animation

Still image	Animated image

  

You should see:

    -  16 images of a rotating lego man doing a full turn
    -  repeating 2 times

    -- testing --  within 10 days I should have this tested, validated, enhanced,
                and replaced with animations of my own creation ( well I missed that deadline )

         please let me know you don't see the animation appear as described.

         If you are NOT using Mozilla 1.1 or better this script does _NOT_ attempt
         to display the animation ( Netscape 1.1 or better should be fine ).

         Netscape 1.1 users:  may appear formated badly.
   

Images created by Ben Jackson at the Lego link below.

-------- web page animation resources --------------------------
Great Lego animation (Ben's)
Netscape docs
server push; perl
animation; matt's scripts
cgi & perl; fimb.com
scripts; erict's cgi & animation

           (  the URL's of the above links  )

http://www.ben.com/~bjackson/LEGO/			// lego animation Great example
http://home.netscape.com/assist/net_sites/pushpull.html	// netscape push  graphics docs
http://www.romantasy.com/test/server_push.html		// pearl push example
http://worldwidemart.com/scripts/animation.shtml	// matt's script archive
http://www.fimb.com/pearls.htm				// cgi bin information
http://kragar.eff.org/~erict/Scripts/			// cgi ( MAJOR site) incl. animation

Thank's to the good people at Frontier Corp for including Paul Erkkila for allowing and installing these scripts.

  

#!/usr/bin/perl
# Animation Perl Script			// nph-an3.pl   // as installed 3/17/96
# Written by Matt Wright		// ani3insl.txt  (install instructions )
# Scripts Archive at:	http://www.worldwidemart.com/scripts/     # Version 1.2
############### Variables #############

   $times = "3";
   $basefile ="/home2/imaging/Web/Ani/Movi_1/";

@files = ("im_00.gif","im_01.gif","im_02.gif","im_03.gif",
          "im_04.gif","im_05.gif","im_06.gif","im_07.gif");

#####  Code   ##### Unbuffer the output so it's faster and better ####

select (STDOUT);
$| = 1;

print "HTTP/1.0 200 Okay\n";
print "Content-Type: multipart/x-mixed-replace;boundary=myboundary\n\n";
print "--myboundary\n";

#   loop through and display each image, repeat $times

for ($num=1;$num<=$times;$num++) {
   foreach $file (@files) {
      print "Content-Type: image/gif\n\n";
      open(PIC,"$basefile$file") || die "Could not open file : $!\n";
      print ;
      close(PIC);
      print "\n--myboundary\n";
   }
}