#!/usr/local/bin/perl

require './samples-lib.pl';

&main;

sub main {
    &header( $text{'index_title'}, "", undef, 0, 1 );
    &body();
    &footer( "", $text{'index_title'} );
    &updateimgs();
}

sub body {
   print "<br>\n";
   print "This is an example of a status bar being updated in intervals.<br><br>\n";
   print "The first image will update in 10 seconds, each following image<br>\n";
   print "will update in 4 seconds.<br>";
   print "<br>\n";
   &jimg_preload("images/sample3/progress0.jpg", "images/sample3/progress1.jpg", "images/sample3/progress2.jpg", "images/sample3/progress3.jpg", "images/sample3/progress4.jpg", "images/sample3/progress5.jpg");
   print "<img src=\"images/sample3/progress0.jpg\" name=\"progress\">\n";
   print "<br>\n";
   print "<hr>\n";
   print "<br>\n";
   print "<a href=\"jimg_update.cgi.txt\">[View Source]</a>\n";
   print "<br><br>\n";
}

sub updateimgs {
   sleep 10;
   &jimg_update("progress", "images/sample3/progress1.jpg");
   sleep 4;
   &jimg_update("progress", "images/sample3/progress2.jpg");
   sleep 4;
   &jimg_update("progress", "images/sample3/progress3.jpg");
   sleep 4;
   &jimg_update("progress", "images/sample3/progress4.jpg");
   sleep 4;
   &jimg_update("progress", "images/sample3/progress5.jpg");
}
