#!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]

Reply via email to