#!c:/perl/bin/perl.exe while('[EMAIL PROTECTED]'){ if('Internet_Explorer_6' != 'server push'){ $question_r = 'how to push animated images in that browser?'; } elsif { $question_r = 'why my script didn't work?'; } else { undef('[EMAIL PROTECTED]'); die "why you are here in the first place"; } print "i got a simple question for you, $question_r"; die "thanks in advance";
#!c:/perl/bin/perl.exe $| = 1; $webmaster = "shishir\@bu\.edu"; $boundary_string = "\n" . "--End" . "\n"; $end_of_data = "\n" . "--End--" . "\n"; $delay_time = 1; @image_list = ( "image_1.png", "image_2.png", "image_3.png", "image_4.png", "image_5.png" ); $browser = $ENV{'HTTP_USER_AGENT'}; print "Content-type: multipart/x-mixed-replace;boundary=End", "\n"; for ($loop=0; $loop < scalar (@image_list); $loop++) { &open_and_display_png ($image_list[$loop]); print $boundary_string; sleep ($delay_time); } print $end_of_data; exit(0); sub open_and_display_png { local ($file) = @_; local ($content_length); if ( (open (FILE, "<" . $file)) ) { $content_length = (stat (FILE))[7]; print "Content-type: image/png", "\n"; print "Content-length: ", $content_length, "\n\n"; binmode FILE; print <FILE>; close (FILE); } else { #&return_error (500, "File Access Error", print "Cannot open graphic file $file!"; } } -- Hytham Shehab btw, i know, there is more perlish way to write this. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]