[- $args = shift @param; $message = &EMU::get_var('data') || $EMU::query->param('message'); @headers = qw/cc bcc from replyto priority org attach/; @headers = grep (&EMU::get_var("$_.show"), @headers); $base_URI = $ENV{REQUEST_URI}; $base_URI = substr($base_URI, 0, index($base_URI,"?")) if (index($base_URI,"?")); @data = &EMU::get_priority_data(); @parray = @{ $data[0] }; %phash = %{ $data[1] }; $priority = &EMU::get_var('priority') || $parray[2]; @drafts = &EMU::get_postponed_msgs(); $attachments = &EMU::get_var('here_atts'); $theme = $args->{theme}; $load_editor = ($EMU::c{'reditor'} ne '0' && ($ENV{HTTP_USER_AGENT} =~ /MSIE/i || $ENV{HTTP_USER_AGENT} =~ /Gecko/i)); -] [+ $EMU::c{publisher_name} +] - Compose Message [$ if ($load_editor && $EMU::userdb{"options.richeditor"}) $] [$ else $] [$ endif $] [# Open Header #] [- &Execute("$args->{DOCROOT}/header.html", $args) -] [# Close Header #]
 
[# Open Toolbar #] [- &Execute("$args->{DOCROOT}/toolbar.html", $args) -] [# Close Toolbar #]
[# For Compose Headers #]
[$ if ($message) $]Current Folder: [+ $EMU::folder +] | [$ endif $]Compose Message
[$ if (@drafts) $] [$ endif $]
[$ if (&EMU::get_status()) $]
[+ &EMU::get_status() +]
 
[$ endif $] [$ if (&EMU::get_var('from.show')) $] [$ endif $] [$ if (&EMU::get_var('cc.show')) $] [$ else $] [$ endif $] [$ if (&EMU::get_var('bcc.show')) $] [$ else $] [$ endif $] [$ if (&EMU::get_var('replyto.show')) $] [$ endif $] [$ if (&EMU::get_var('priority.show')) $] [$ endif $] [$ if (&EMU::get_var('org.show')) $] [$ endif $]
    
Save a copy of this message in my "Sent" folder
Request a delivery receipt for this message [ ? ]
Request a read receipt for this message [ ? ]
From: 
To: 
Cc: 
Bcc: 
Reply-To: 
Priority: 
Organization: 
Subject: 
[$ if ($load_editor) $] [- $message =~ s/\n/
/g if ($load_editor && $EMU::userdb{"options.richeditor"}) -]
Rich-Text Editor


[$ else $]
[$ endif $]  
[$ if (@drafts) $] [$ endif $]