[- $args = shift @param; %contacts = %{ &EMU::get_var('contacts') }; @to = @{ &EMU::get_var('to') }; @cc = @{ &EMU::get_var('cc') }; @bcc = @{ &EMU::get_var('bcc') }; @groups = grep(/^addressgroup\./, keys %EMU::userdb); -] EMU Webmail - Add Recepients
Select the addresses you would like to send your message to, then click "Select".
 
AddressBook
[$ if (%contacts) $] [$ foreach $c (sort {lc($a) cmp lc($b)} keys %contacts) $] [- $tochecked = $ccchecked = $bccchecked = ""; if ($contacts{$c}{to}) { $tochecked = 'checked'; } elsif ($contacts{$c}{cc}) { $ccchecked = 'checked'; } elsif ($contacts{$c}{bcc}) { $bccchecked = 'checked'; } $contacts{$c}{email} =~ s/<(.*?@.*?)>/$1/g; -] [$ endforeach $] [$ else $] [$ endif $]
To: CC: BCC: Name: Email:
[+ $c +]  [+ $contacts{$c}{email} +] 

Your Addressbook is Empty.
 
Groups
[$ if (@groups) $] [$ foreach $ent (@groups) $] [- $ent =~s/^addressgroup\.// -] [- $maile=$EMU::userdb{"addressgroup.$ent"}; $maile =~ s/<(.*?@.*?)>/$1/g; $maile=~s/('.*?'\|\|)//gs; $maile=~s/:/, /gs; -] [$ endforeach $] [$ else $] [$ endif $]
To: CC: BCC: Name: Email:
[+ $ent +]  [+ $maile +] 
 
You have no Groups