Page Menu
Home
Phorge
Search
Configure Global Search
Log In
Files
F4682935
show.inc
No One
Temporary
Actions
Download File
Edit File
Delete File
View Transforms
Subscribe
Flag For Later
Award Token
Size
8 KB
Referenced Files
None
Subscribers
None
show.inc
View Options
<
?
php
/*
+-----------------------------------------------------------------------+
| program/steps/mail/show.inc |
| |
| This file is part of the Roundcube Webmail client |
| Copyright (C) 2005-2009, Roundcube Dev. - Switzerland |
| Licensed under the GNU GPL |
| |
| PURPOSE: |
| Display a mail message similar as a usual mail application does |
| |
+-----------------------------------------------------------------------+
| Author: Thomas Bruederli <roundcube@gmail.com> |
+-----------------------------------------------------------------------+
$Id$
*/
$
PRINT_MODE
=
$
RCMAIL
-
>
action
==
'
print
'
?
TRUE
:
FALSE
;
// similar code as in program/steps/mail/get.inc
if
(
$
uid
=
get_input_value
(
'
_uid
'
,
RCUBE_INPUT_GET
))
{
$
MESSAGE
=
new
rcube_message
(
$
uid
);
// if message not found (wrong UID)...
if
(
empty
(
$
MESSAGE
-
>
headers
))
{
rcmail_message_error
(
$
uid
);
}
send_nocacheing_headers
();
$
mbox_name
=
$
IMAP
-
>
get_mailbox_name
();
// show images?
rcmail_check_safe
(
$
MESSAGE
);
// set message charset as default
if
(
!
empty
(
$
MESSAGE
-
>
headers
-
>
charset
))
$
IMAP
-
>
set_charset
(
$
MESSAGE
-
>
headers
-
>
charset
);
$
OUTPUT
-
>
set_pagetitle
(
abbreviate_string
(
$
MESSAGE
-
>
subject
,
128
,
'...'
,
true
));
// give message uid to the client
$
OUTPUT
-
>
set_env
(
'
uid
'
,
$
MESSAGE
-
>
uid
);
// set environement
$
OUTPUT
-
>
set_env
(
'
safemode
'
,
$
MESSAGE
-
>
is_safe
);
$
OUTPUT
-
>
set_env
(
'
sender
'
,
$
MESSAGE
-
>
sender
[
'
string
'
]);
$
OUTPUT
-
>
set_env
(
'
permaurl
'
,
rcmail_url
(
'
show
'
,
array
(
'
_uid
'
=
>
$
MESSAGE
-
>
uid
,
'
_mbox
'
=
>
$
mbox_name
)));
$
OUTPUT
-
>
set_env
(
'
mailbox
'
,
$
mbox_name
);
if
(
$
CONFIG
[
'
trash_mbox
'
])
$
OUTPUT
-
>
set_env
(
'
trash_mailbox
'
,
$
CONFIG
[
'
trash_mbox
'
]);
if
(
$
CONFIG
[
'
flag_for_deletion
'
])
$
OUTPUT
-
>
set_env
(
'
flag_for_deletion
'
,
true
);
if
(
$
CONFIG
[
'
read_when_deleted
'
])
$
OUTPUT
-
>
set_env
(
'
read_when_deleted
'
,
true
);
if
(
$
CONFIG
[
'
skip_deleted
'
])
$
OUTPUT
-
>
set_env
(
'
skip_deleted
'
,
true
);
if
(
$
CONFIG
[
'
display_next
'
])
$
OUTPUT
-
>
set_env
(
'
display_next
'
,
true
);
if
(
$
MESSAGE
-
>
headers
-
>
others
[
'
list
-
post
'
])
$
OUTPUT
-
>
set_env
(
'
list_post
'
,
true
);
if
(
!$
OUTPUT
-
>
ajax_call
)
$
OUTPUT
-
>
add_label
(
'
checkingmail
'
,
'
deletemessage
'
,
'
movemessagetotrash
'
,
'
movingmessage
'
);
// check for unset disposition notification
if
(
$
MESSAGE
-
>
headers
-
>
mdn_to
&&
!$
MESSAGE
-
>
headers
-
>
mdn_sent
&&
!$
MESSAGE
-
>
headers
-
>
seen
&&
(
$
IMAP
-
>
check_permflag
(
'
MDNSENT
'
)
||
$
IMAP
-
>
check_permflag
(
'
*
'
))
&&
$
mbox_name
!
=
$
CONFIG
[
'
drafts_mbox
'
]
&&
$
mbox_name
!
=
$
CONFIG
[
'
sent_mbox
'
])
{
$
mdn_cfg
=
intval
(
$
CONFIG
[
'
mdn_requests
'
]);
if
(
$
mdn_cfg
==
1
||
((
$
mdn_cfg
==
3
||
$
mdn_cfg
==
4
)
&&
rcmail_contact_exists
(
$
MESSAGE
-
>
sender
[
'
mailto
'
])))
{
// Send MDN
if
(
rcmail_send_mdn
(
$
MESSAGE
,
$
smtp_error
))
$
OUTPUT
-
>
show_message
(
'
receiptsent
'
,
'
confirmation
'
);
else
if
(
$
smtp_error
)
$
OUTPUT
-
>
show_message
(
$
smtp_error
[
'
label
'
],
'
error
'
,
$
smtp_error
[
'
vars
'
]);
else
$
OUTPUT
-
>
show_message
(
'
errorsendingreceipt
'
,
'
error
'
);
}
else
if
(
$
mdn_cfg
!
=
2
&&
$
mdn_cfg
!
=
4
)
{
// Ask user
$
OUTPUT
-
>
add_label
(
'
mdnrequest
'
);
$
OUTPUT
-
>
set_env
(
'
mdn_request
'
,
true
);
}
}
// get previous, first, next and last message UID
if
(
$
RCMAIL
-
>
action
!
=
'
preview
'
&&
$
RCMAIL
-
>
action
!
=
'
print
'
)
{
$
next
=
$
prev
=
$
first
=
$
last
=
-
1
;
if
(
$
_SESSION
[
'
sort_col
'
]
==
'
date
'
&&
$
_SESSION
[
'
sort_order
'
]
!
=
'
DESC
'
&&
empty
(
$
_REQUEST
[
'
_search
'
])
&&
!$
CONFIG
[
'
skip_deleted
'
]
&&
!$
IMAP
-
>
threading
)
{
// this assumes that we are sorted by date_DESC
$
cnt
=
$
IMAP
-
>
messagecount
();
$
seq
=
$
IMAP
-
>
get_id
(
$
MESSAGE
-
>
uid
);
$
MESSAGE
-
>
index
=
$
cnt
-
$
seq
;
$
prev
=
$
IMAP
-
>
get_uid
(
$
seq
+
1
);
$
first
=
$
IMAP
-
>
get_uid
(
$
cnt
);
$
next
=
$
IMAP
-
>
get_uid
(
$
seq
-
1
);
$
last
=
$
IMAP
-
>
get_uid
(
1
);
}
else
{
// Only if we use custom sorting
$
a_msg_index
=
$
IMAP
-
>
message_index
(
NULL
,
$
_SESSION
[
'
sort_col
'
],
$
_SESSION
[
'
sort_order
'
]);
$
MESSAGE
-
>
index
=
array_search
(
$
IMAP
-
>
get_id
(
$
MESSAGE
-
>
uid
),
$
a_msg_index
);
$
count
=
count
(
$
a_msg_index
);
$
prev
=
isset
(
$
a_msg_index
[
$
MESSAGE
-
>
index
-
1
])
?
$
IMAP
-
>
get_uid
(
$
a_msg_index
[
$
MESSAGE
-
>
index
-
1
])
:
-
1
;
$
first
=
$
count
>
1
?
$
IMAP
-
>
get_uid
(
$
a_msg_index
[
0
])
:
-
1
;
$
next
=
isset
(
$
a_msg_index
[
$
MESSAGE
-
>
index
+
1
])
?
$
IMAP
-
>
get_uid
(
$
a_msg_index
[
$
MESSAGE
-
>
index
+
1
])
:
-
1
;
$
last
=
$
count
>
1
?
$
IMAP
-
>
get_uid
(
$
a_msg_index
[
$
count
-
1
])
:
-
1
;
}
if
(
$
prev
>
0
)
$
OUTPUT
-
>
set_env
(
'
prev_uid
'
,
$
prev
);
if
(
$
first
>
0
)
$
OUTPUT
-
>
set_env
(
'
first_uid
'
,
$
first
);
if
(
$
next
>
0
)
$
OUTPUT
-
>
set_env
(
'
next_uid
'
,
$
next
);
if
(
$
last
>
0
)
$
OUTPUT
-
>
set_env
(
'
last_uid
'
,
$
last
);
// Don't need a real messages count value
$
OUTPUT
-
>
set_env
(
'
messagecount
'
,
1
);
}
if
(
!$
MESSAGE
-
>
headers
-
>
seen
&&
(
$
RCMAIL
-
>
action
==
'
show
'
||
(
$
RCMAIL
-
>
action
==
'
preview
'
&&
intval
(
$
CONFIG
[
'
preview_pane_mark_read
'
])
==
0
)))
$
RCMAIL
-
>
plugins
-
>
exec_hook
(
'
message_read
'
,
array
(
'
uid
'
=
>
$
MESSAGE
-
>
uid
,
'
mailbox
'
=
>
$
mbox_name
,
'
message
'
=
>
$
MESSAGE
));
}
function
rcmail_message_attachments
(
$
attrib
)
{
global
$
PRINT_MODE
,
$
MESSAGE
;
$
out
=
$
ol
=
''
;
if
(
sizeof
(
$
MESSAGE
-
>
attachments
))
{
foreach
(
$
MESSAGE
-
>
attachments
as
$
attach_prop
)
{
if
(
$
PRINT_MODE
)
{
$
ol
.
=
html
::
tag
(
'
li
'
,
null
,
sprintf
(
"%s (%s)"
,
Q
(
$
attach_prop
-
>
filename
),
Q
(
show_bytes
(
$
attach_prop
-
>
size
))));
}
else
{
if
(
mb_strlen
(
$
attach_prop
-
>
filename
)
>
50
)
{
$
filename
=
abbreviate_string
(
$
attach_prop
-
>
filename
,
50
);
$
title
=
$
attach_prop
-
>
filename
;
}
else
{
$
filename
=
$
attach_prop
-
>
filename
;
$
title
=
''
;
}
$
ol
.
=
html
::
tag
(
'
li
'
,
null
,
html
::
a
(
array
(
'
href
'
=
>
$
MESSAGE
-
>
get_part_url
(
$
attach_prop
-
>
mime_id
),
'
onclick
'
=
>
sprintf
(
'
return
%
s
.
command
(
\'
load
-
attachment
\'
,{
part
:\'%
s
\'
,
mimetype
:\'%
s
\'
},
this
)
'
,
JS_OBJECT_NAME
,
$
attach_prop
-
>
mime_id
,
$
attach_prop
-
>
mimetype
),
'
title
'
=
>
Q
(
$
title
),
),
Q
(
$
filename
)));
}
}
$
out
=
html
::
tag
(
'
ul
'
,
$
attrib
,
$
ol
,
html
::$
common_attrib
);
}
return
$
out
;
}
function
rcmail_remote_objects_msg
(
$
attrib
)
{
global
$
MESSAGE
,
$
RCMAIL
;
if
(
!$
attrib
[
'
id
'
])
$
attrib
[
'
id
'
]
=
'
rcmremoteobjmsg
'
;
$
msg
=
Q
(
rcube_label
(
'
blockedimages
'
))
.
'&
nbsp
;
'
;
$
msg
.
=
html
::
a
(
array
(
'
href
'
=
>
"#loadimages"
,
'
onclick
'
=
>
JS_OBJECT_NAME
.
".command('load-images')"
),
Q
(
rcube_label
(
'
showimages
'
)));
// add link to save sender in addressbook and reload message
if
(
$
MESSAGE
-
>
sender
[
'
mailto
'
]
&&
$
RCMAIL
-
>
config
-
>
get
(
'
show_images
'
)
==
1
)
{
$
msg
.
=
'
'
.
html
::
a
(
array
(
'
href
'
=
>
"#alwaysload"
,
'
onclick
'
=
>
JS_OBJECT_NAME
.
".command('always-load')"
,
'
style
'
=
>
"white-space:nowrap"
),
Q
(
rcube_label
(
array
(
'
name
'
=
>
'
alwaysshow
'
,
'
vars
'
=
>
array
(
'
sender
'
=
>
$
MESSAGE
-
>
sender
[
'
mailto
'
])))));
}
$
RCMAIL
-
>
output
-
>
add_gui_object
(
'
remoteobjectsmsg
'
,
$
attrib
[
'
id
'
]);
return
html
::
div
(
$
attrib
,
$
msg
);
}
function
rcmail_contact_exists
(
$
email
)
{
global
$
RCMAIL
;
if
(
$
email
)
{
// @TODO: search in all address books?
$
CONTACTS
=
$
RCMAIL
-
>
get_address_book
(
null
,
true
);
$
existing
=
$
CONTACTS
-
>
search
(
'
email
'
,
$
email
,
true
,
false
);
if
(
$
existing
-
>
count
)
return
true
;
}
return
false
;
}
$
OUTPUT
-
>
add_handlers
(
array
(
'
messageattachments
'
=
>
'
rcmail_message_attachments
'
,
'
mailboxname
'
=
>
'
rcmail_mailbox_name_display
'
,
'
blockedobjects
'
=
>
'
rcmail_remote_objects_msg
'
));
if
(
$
RCMAIL
-
>
action
==
'
print
'
&&
$
OUTPUT
-
>
template_exists
(
'
printmessage
'
))
$
OUTPUT
-
>
send
(
'
printmessage
'
,
false
);
else
if
(
$
RCMAIL
-
>
action
==
'
preview
'
&&
$
OUTPUT
-
>
template_exists
(
'
messagepreview
'
))
$
OUTPUT
-
>
send
(
'
messagepreview
'
,
false
);
else
$
OUTPUT
-
>
send
(
'
message
'
,
false
);
// mark message as read
if
(
$
MESSAGE
&&
$
MESSAGE
-
>
headers
&&
!$
MESSAGE
-
>
headers
-
>
seen
&&
(
$
RCMAIL
-
>
action
==
'
show
'
||
(
$
RCMAIL
-
>
action
==
'
preview
'
&&
intval
(
$
CONFIG
[
'
preview_pane_mark_read
'
])
==
0
)))
{
if
(
$
IMAP
-
>
set_flag
(
$
MESSAGE
-
>
uid
,
'
SEEN
'
)
&&
$
_SESSION
[
'
unseen_count
'
][
$
mbox_name
])
$
_SESSION
[
'
unseen_count
'
][
$
mbox_name
]
-=
1
;
}
exit
;
File Metadata
Details
Attached
Mime Type
text/x-php
Expires
Fri, May 1, 2:13 PM (1 d, 22 h)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
659488
Default Alt Text
show.inc (8 KB)
Attached To
Mode
R3 roundcubemail
Attached
Detach File
Event Timeline
Log In to Comment