[- $args = shift @param; # Get all external folders! @folders = grep { ($_ ne &EMU::get_var('inbox')) && $EMU::userdb{"folder:$_:external"} } &EMU::get_folders(); $theme = $args->{theme}; -] [+ $EMU::c{publisher_name} +] - Mailbox Manager [# Open Header #] [- &Execute("$args->{DOCROOT}/header.html", $args) -] [# Close Header #]
 
[# Open Toolbar #] [- &Execute("$args->{DOCROOT}/toolbar.html", $args) -] [# Close Toolbar #]
Mailbox Manager
[$ if (@folders) $] [$ endif $]
[$ if (&EMU::get_status()) $]
[+ &EMU::get_status() +]
 
[$ endif $] [$ if (@folders) $] [- $i = 0 -] [$ foreach $f (@folders) $] [- ($user, $pass, $host) = &EMU::get_folder_credentials($f); $path = $EMU::userdb{"folder:$f:extra_fold"}; $email = $EMU::userdb{"folder:$f:email"}; $proto = uc(&EMU::get_folder_protocol($f)); ($safef = $f) =~ s/'/\\'/g; -] [$ endforeach $]
Mailbox  Name Account Type
[+ $f +] [+ $email +]  [+ $proto +] 
[$ else $]

Your Mailbox list is empty.
 
[$ endif $]
[$ if (@folders) $] [$ endif $]