#!/usr/local/bin/perl

require './samples-lib.pl';

&main;

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

sub body {
   print "<br>\n";
   print "The image below will begin to animate in 5 seconds.<br>\n";
   print "It will then stop after 10 seconds.<br>\n";
   print "<br>\n";
   &janim("janim", "256", "images/sample1/mscbadge_off.jpg", "images/sample1/mscbadge_on.jpg");
   print "<br>\n";
   print "<hr>\n";
   print "<br>\n";
   print "<a href=\"janim.cgi.txt\">[View Source]</a>\n";
   print "<br><br>\n";
}

sub start_anim {
   sleep 5;
   &janim_start("janim");
}

sub stop_anim {
   sleep 10;
   &janim_stop("janim");
}

