smeserver-qmHandle/contribs10/smeserver-qmHandle-1.4-bz12147-textarea-preview.patch

diff -urN smeserver-qmHandle-1.4.old/root/etc/e-smith/web/functions/qmh smeserver-qmHandle-1.4/root/etc/e-smith/web/functions/qmh
--- smeserver-qmHandle-1.4.old/root/etc/e-smith/web/functions/qmh       2022-09-13 21:29:10.895912128 +0300
+++ smeserver-qmHandle-1.4/root/etc/e-smith/web/functions/qmh   2022-09-14 23:12:09.342698624 +0300
@@ -509,7 +509,7 @@
     print $q->hr;
     print $q->p($fm->localise('DELETE_MESSAGE')),"\n";
     my $Message = `/usr/bin/qmHandle -m$msgid|head -100`;
-    print $q->p ($q->pre ("$Message"));
+    print $q->textarea (-name => 'message', -override => 1, -default => "$Message", -rows => 30, -cols => 80);
 
     print $q->start_multipart_form(-method => 'POST', -action => $q->url (-absolute => 1));
     print $q->table ({border => 0, cellspacing => 0, cellpadding => 4},
@@ -543,7 +543,7 @@
     print $q->hr;
     print $q->p($fm->localise('DELETE_MESSAGE')),"\n";
     my $Message = `/usr/bin/qmHandle -X -m$msgid|head -100`;
-    print $q->p ($q->pre ("$Message"));
+    print $q->textarea (-name => 'message', -override => 1, -default => "$Message", -rows => 30, -cols => 80);
 
     print $q->start_multipart_form(-method => 'POST', -action => $q->url (-absolute => 1));
     print $q->table ({border => 0, cellspacing => 0, cellpadding => 4},
1	trevorb	1.1	diff -urN smeserver-qmHandle-1.4.old/root/etc/e-smith/web/functions/qmh smeserver-qmHandle-1.4/root/etc/e-smith/web/functions/qmh
2			--- smeserver-qmHandle-1.4.old/root/etc/e-smith/web/functions/qmh 2022-09-13 21:29:10.895912128 +0300
3			+++ smeserver-qmHandle-1.4/root/etc/e-smith/web/functions/qmh 2022-09-14 23:12:09.342698624 +0300
4			@@ -509,7 +509,7 @@
5			print $q->hr;
6			print $q->p($fm->localise('DELETE_MESSAGE')),"\n";
7			my $Message = `/usr/bin/qmHandle -m$msgid\|head -100`;
8			- print $q->p ($q->pre ("$Message"));
9			+ print $q->textarea (-name => 'message', -override => 1, -default => "$Message", -rows => 30, -cols => 80);
10
11			print $q->start_multipart_form(-method => 'POST', -action => $q->url (-absolute => 1));
12			print $q->table ({border => 0, cellspacing => 0, cellpadding => 4},
13			@@ -543,7 +543,7 @@
14			print $q->hr;
15			print $q->p($fm->localise('DELETE_MESSAGE')),"\n";
16			my $Message = `/usr/bin/qmHandle -X -m$msgid\|head -100`;
17			- print $q->p ($q->pre ("$Message"));
18			+ print $q->textarea (-name => 'message', -override => 1, -default => "$Message", -rows => 30, -cols => 80);
19
20			print $q->start_multipart_form(-method => 'POST', -action => $q->url (-absolute => 1));
21			print $q->table ({border => 0, cellspacing => 0, cellpadding => 4},