Page Menu
Home
Phorge
Search
Configure Global Search
Log In
Files
F117886799
msgexport.sh
No One
Temporary
Actions
View File
Edit File
Delete File
View Transforms
Subscribe
Flag For Later
Award Token
Authored By
Unknown
Size
4 KB
Referenced Files
None
Subscribers
None
msgexport.sh
View Options
#!/usr/bin/env php
<?php
/*
+-----------------------------------------------------------------------+
|
This file is part of the Roundcube Webmail client
|
|
|
|
Copyright
(
C
)
The Roundcube Dev Team
|
|
|
|
Licensed under the GNU General Public License version
3
or
|
|
any later version with exceptions
for
skins
&
plugins.
|
|
See the README file
for
a full license statement.
|
+-----------------------------------------------------------------------+
|
Author: Thomas Bruederli <thomas@roundcube.net>
|
+-----------------------------------------------------------------------+
*/
define
(
'INSTALL_PATH'
, realpath
(
__DIR__ .
'/..'
)
.
'/'
)
;
ini_set
(
'memory_limit'
, -1
)
;
require_once INSTALL_PATH.
'program/include/clisetup.php'
;
function
print_usage
()
{
print
"Usage: msgexport.sh -h imap-host -u user-name -m mailbox name\n"
;
print
"--host IMAP host\n"
;
print
"--user IMAP user name\n"
;
print
"--mbox Folder name, set to '*' for all\n"
;
print
"--file Output file\n"
;
}
function
vputs
(
$str
)
{
$out
=
!empty
(
$GLOBALS
[
'args'
][
'file'
])
? STDOUT : STDERR
;
fwrite
(
$out
,
$str
)
;
}
function
progress_update
(
$pos
,
$max
)
{
$percent
=
round
(
100
*
$pos
/
$max
)
;
vputs
(
sprintf
(
"%3d%% [%-51s] %d/%d\033[K\r"
,
$percent
, @str_repeat
(
'='
,
$percent
/
2
)
.
'>'
,
$pos
,
$max
))
;
}
function
export_mailbox
(
$mbox
,
$filename
)
{
global
$IMAP
;
$IMAP
->set_folder
(
$mbox
)
;
vputs
(
"Getting message list of {
$mbox
}..."
)
;
$index
=
$IMAP
->index
(
$mbox
, null,
'ASC'
)
;
$count
=
$index
->count
()
;
$index
=
$index
->get
()
;
vputs
(
"
$count
messages\n"
)
;
if
(
$filename
)
{
if
(
!
(
$out
=
fopen
(
$filename
,
'w'
)))
{
vputs
(
"Cannot write to output file\n"
)
;
return
;
}
vputs
(
"Writing to
$filename
\n"
)
;
}
else
{
$out
=
STDOUT
;
}
for
(
$i
=
0
;
$i
<
$count
;
$i
++
)
{
$headers
=
$IMAP
->get_message_headers
(
$index
[
$i
])
;
$from
=
current
(
rcube_mime::decode_address_list
(
$headers
->from,
1
,
false
))
;
fwrite
(
$out
, sprintf
(
"From %s %s UID %d\n"
,
$from
[
'mailto'
]
,
$headers
->date,
$headers
->uid
))
;
$IMAP
->get_raw_body
(
$headers
->uid,
$out
)
;
fwrite
(
$out
,
"\n\n\n"
)
;
progress_update
(
$i
+1,
$count
)
;
}
vputs
(
"\ncomplete.\n"
)
;
if
(
$filename
)
{
fclose
(
$out
)
;
}
}
// get arguments
$opts
=
[
'h'
=
>
'host'
,
'u'
=
>
'user'
,
'p'
=
>
'pass'
,
'm'
=
>
'mbox'
,
'f'
=
>
'file'
]
;
$args
=
rcube_utils::get_opt
(
$opts
)
+
[
'host'
=
>
'localhost'
,
'mbox'
=
>
'INBOX'
]
;
if
(
!isset
(
$_SERVER
[
'argv'
][
1
])
||
$_SERVER
[
'argv'
][
1
]
==
'help'
)
{
print_usage
()
;
exit
;
}
else
if
(
!
$args
[
'host'
])
{
vputs
(
"Missing required parameters.\n"
)
;
print_usage
()
;
exit
;
}
// prompt
for
username
if
not
set
if
(
empty
(
$args
[
'user'
]))
{
vputs
(
"IMAP user: "
)
;
$args
[
'user'
]
=
trim
(
fgets
(
STDIN
))
;
}
// prompt
for
password
$args
[
'pass'
]
=
rcube_utils::prompt_silent
(
"Password: "
)
;
// parse
$host
URL
$a_host
=
parse_url
(
$args
[
'host'
])
;
if
(
!empty
(
$a_host
[
'host'
]))
{
$host
=
$a_host
[
'host'
]
;
$imap_ssl
=
(
isset
(
$a_host
[
'scheme'
])
&&
in_array
(
$a_host
[
'scheme'
]
,
[
'ssl'
,
'imaps'
,
'tls'
]))
? TRUE : FALSE
;
$imap_port
=
isset
(
$a_host
[
'port'
])
?
$a_host
[
'port'
]
:
(
$imap_ssl
?
993
:
143
)
;
}
else
{
$host
=
$args
[
'host'
]
;
$imap_port
=
143
;
$imap_ssl
=
false
;
}
// instantiate IMAP class
$IMAP
=
new rcube_imap
(
null
)
;
// try to connect to IMAP server
if
(
$IMAP
->connect
(
$host
,
$args
[
'user'
]
,
$args
[
'pass'
]
,
$imap_port
,
$imap_ssl
))
{
vputs
(
"IMAP login successful.\n"
)
;
$filename
=
null
;
$mailboxes
=
$args
[
'mbox'
]
==
'*'
?
$IMAP
->list_folders
(
null
)
:
[
$args
[
'mbox'
]]
;
foreach
(
$mailboxes
as
$mbox
)
{
if
(
!empty
(
$args
[
'file'
]))
{
$filename
=
preg_replace
(
'/\.[a-z0-9]{3,4}$/i'
,
''
,
$args
[
'file'
])
. asciiwords
(
$mbox
)
.
'.mbox'
;
}
else
if
(
$args
[
'mbox'
]
==
'*'
)
{
$filename
=
asciiwords
(
$mbox
)
.
'.mbox'
;
}
if
(
$args
[
'mbox'
]
==
'*'
&&
in_array
(
strtolower
(
$mbox
)
,
[
'junk'
,
'spam'
,
'trash'
]))
{
continue
;
}
export_mailbox
(
$mbox
,
$filename
)
;
}
}
else
{
vputs
(
"IMAP login failed.\n"
)
;
}
File Metadata
Details
Attached
Mime Type
text/plain
Expires
Mon, Apr 6, 2:41 AM (2 w, 3 d ago)
Storage Engine
local-disk
Storage Format
Raw Data
Storage Handle
43/3a/a842e2924e8d618f1d6753e41b43
Default Alt Text
msgexport.sh (4 KB)
Attached To
Mode
R113 roundcubemail
Attached
Detach File
Event Timeline