60 lines
1.4 KiB
Perl
60 lines
1.4 KiB
Perl
#!/usr/bin/perl -wT
|
|
|
|
#----------------------------------------------------------------------
|
|
# heading : Miscellaneous
|
|
# description : Report a bug
|
|
# navigation : 7000 7300
|
|
#
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 2 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
#----------------------------------------------------------------------
|
|
|
|
use strict;
|
|
use warnings;
|
|
use esmith::TestUtils;
|
|
use esmith::FormMagick::Panel::bugreport;
|
|
|
|
my $f = esmith::FormMagick::Panel::bugreport->new();
|
|
$f->display() if $f;
|
|
|
|
=pod
|
|
|
|
=head1 NAME
|
|
|
|
bugreport -- report a bug
|
|
|
|
=head2 DESCRIPTION
|
|
|
|
This screen helps the administrator to submit helpful bug reports
|
|
|
|
=begin testing
|
|
|
|
=end testing
|
|
|
|
=cut
|
|
|
|
__DATA__
|
|
<form
|
|
title="FORM_TITLE"
|
|
header="/etc/e-smith/web/common/head.tmpl"
|
|
footer="/etc/e-smith/web/common/foot.tmpl">
|
|
|
|
<page name="First" pre-event="print_status_message()"
|
|
post-event="create_configuration_report">
|
|
|
|
<subroutine src="display_page()"/>
|
|
|
|
<subroutine src="print_button('CREATE_REPORT')" />
|
|
|
|
<subroutine src="display_donation()"/>
|
|
</page>
|
|
|
|
<page name="ConfigReportPage" >
|
|
<subroutine src="show_config_report()" />
|
|
|
|
</page>
|
|
</form>
|