initial commit of file from CVS for e-smith-manager on Mon 7 Aug 11:32:16 BST 2023

root/etc/e-smith/web/functions/bugreport

@@ -0,0 +1,59 @@
+#!/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>