e-smith-email/sme10/e-smith-email-5.6.0-bz3802-create-local-pseudo.patch

diff -Nur e-smith-email-5.6.0.old/root/etc/e-smith/web/functions/pseudonyms e-smith-email-5.6.0/root/etc/e-smith/web/functions/pseudonyms
--- e-smith-email-5.6.0.old/root/etc/e-smith/web/functions/pseudonyms   2008-10-07 13:35:33.000000000 -0400
+++ e-smith-email-5.6.0/root/etc/e-smith/web/functions/pseudonyms       2020-06-27 23:44:11.487000000 -0400
@@ -129,6 +129,14 @@
             <label>SELECT_ACCOUNT</label>
         </field>
 
+        <field
+            id="internal" 
+            type="select"
+            options="YES => 'yes', NO => 'no'" 
+            value="no">
+            <label>SELECT_INTERNAL</label>
+        </field>
+
         <subroutine src="print_button('ADD')"/>
     </page>
 
diff -Nur e-smith-email-5.6.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm e-smith-email-5.6.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm
--- e-smith-email-5.6.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm      2013-02-06 16:56:01.000000000 -0500
+++ e-smith-email-5.6.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm  2020-06-27 23:43:44.315000000 -0400
@@ -165,12 +165,20 @@
     my $q = $fm->{'cgi'};
     my $account = $q->param ('account');
     my $pseudonym = uri_unescape($q->param('pseudonym')); 
+    my $internal = $q->param ('internal') || 'NO';
     my $msg = "OK";
 
     $accounts->new_record($pseudonym, { type => 'pseudonym', 
                                      Account => $account} )
         or $msg = "Error occurred while creating pseudonym in database.";
 
+    if ($internal eq "YES") { 
+       my %props = ('Account' =>  $pseudonym);
+       $props{'Visible'} = 'internal'; 
+       $props{'internal'} = $internal;
+       $accounts->get($pseudonym)->merge_props(%props)
+               or $msg = "Error occurred while modifying pseudonym in database.";
+       }
     # Untaint $pseudonym before use in system()
     ($pseudonym) = ($pseudonym =~ /(.+)/);
     system( "/sbin/e-smith/signal-event", "pseudonym-create", "$pseudonym",) 
1	jpp	1.1	diff -Nur e-smith-email-5.6.0.old/root/etc/e-smith/web/functions/pseudonyms e-smith-email-5.6.0/root/etc/e-smith/web/functions/pseudonyms
2			--- e-smith-email-5.6.0.old/root/etc/e-smith/web/functions/pseudonyms 2008-10-07 13:35:33.000000000 -0400
3			+++ e-smith-email-5.6.0/root/etc/e-smith/web/functions/pseudonyms 2020-06-27 23:44:11.487000000 -0400
4			@@ -129,6 +129,14 @@
5			<label>SELECT_ACCOUNT</label>
6			</field>
7
8			+ <field
9			+ id="internal"
10			+ type="select"
11			+ options="YES => 'yes', NO => 'no'"
12			+ value="no">
13			+ <label>SELECT_INTERNAL</label>
14			+ </field>
15			+
16			<subroutine src="print_button('ADD')"/>
17			</page>
18
19			diff -Nur e-smith-email-5.6.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm e-smith-email-5.6.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm
20			--- e-smith-email-5.6.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm 2013-02-06 16:56:01.000000000 -0500
21			+++ e-smith-email-5.6.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm 2020-06-27 23:43:44.315000000 -0400
22			@@ -165,12 +165,20 @@
23			my $q = $fm->{'cgi'};
24			my $account = $q->param ('account');
25			my $pseudonym = uri_unescape($q->param('pseudonym'));
26			+ my $internal = $q->param ('internal') \|\| 'NO';
27			my $msg = "OK";
28
29			$accounts->new_record($pseudonym, { type => 'pseudonym',
30			Account => $account} )
31			or $msg = "Error occurred while creating pseudonym in database.";
32
33			+ if ($internal eq "YES") {
34			+ my %props = ('Account' => $pseudonym);
35			+ $props{'Visible'} = 'internal';
36			+ $props{'internal'} = $internal;
37			+ $accounts->get($pseudonym)->merge_props(%props)
38			+ or $msg = "Error occurred while modifying pseudonym in database.";
39			+ }
40			# Untaint $pseudonym before use in system()
41			($pseudonym) = ($pseudonym =~ /(.+)/);
42			system( "/sbin/e-smith/signal-event", "pseudonym-create", "$pseudonym",)