| 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",) |
Parent Directory
| 
Revision Log
| 
Revision Graph
