#!/usr/local/bin/perl

require './samples-lib.pl';

&main;

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

sub body {
   &jtalkback();
   print "<br>\n";
   print "A talkback window will automatically open in 10 seconds with an intentional open file error.<br>\n";
   print "<br>\n";
   &jtalkback_link("Debug", "none\@email.com", "400", "300", "Manual Feedback Link Text", 0);
   print "<br><br>\n";
   &jtalkback_link("Debug", "none\@email.com", "400", "300", "Manual Feedback Button Text", 1);
   print "<br>\n";
   print "<hr>\n";
   print "<br>\n";
   print "<a href=\"jtext.cgi.txt\">[View Source]</a>\n";
   print "<br><br>\n";
}

sub do_talkback {
   sleep 10;
   open (file, "nofilehere") or &jerror("Bug Report", \
            "john.smith\@some.email.com", "400", "300", $!, $0, __LINE__);
}
