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 @@
+
+
+
+
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",)