| | |
| | | #!/usr/bin/php |
| | | #!/usr/bin/env php |
| | | <?php |
| | | |
| | | define('INSTALL_PATH', preg_replace('/bin\/$/', '', getcwd()) . '/'); |
| | | define('INSTALL_PATH', realpath(dirname(__FILE__) . '/..') . '/' ); |
| | | ini_set('memory_limit', -1); |
| | | |
| | | require_once INSTALL_PATH.'program/include/iniset.php'; |
| | | |
| | | /** |
| | | * Parse commandline arguments into a hash array |
| | | */ |
| | | function get_opt($aliases=array()) |
| | | { |
| | | $args = array(); |
| | | for ($i=1; $i<count($_SERVER['argv']); $i++) |
| | | { |
| | | $arg = $_SERVER['argv'][$i]; |
| | | if (substr($arg, 0, 2) == '--') |
| | | { |
| | | $sp = strpos($arg, '='); |
| | | $key = substr($arg, 2, $sp - 2); |
| | | $value = substr($arg, $sp+1); |
| | | } |
| | | else if ($arg{0} == '-') |
| | | { |
| | | $key = substr($arg, 1); |
| | | $value = $_SERVER['argv'][++$i]; |
| | | } |
| | | else |
| | | continue; |
| | | |
| | | $args[$key] = preg_replace(array('/^["\']/', '/["\']$/'), '', $value); |
| | | |
| | | if ($alias = $aliases[$key]) |
| | | $args[$alias] = $args[$key]; |
| | | } |
| | | |
| | | return $args; |
| | | } |
| | | require_once INSTALL_PATH.'program/include/clisetup.php'; |
| | | |
| | | function print_usage() |
| | | { |
| | |
| | | function export_mailbox($mbox, $filename) |
| | | { |
| | | global $IMAP; |
| | | |
| | | $IMAP->set_mailbox($mbox); |
| | | |
| | | |
| | | $IMAP->set_folder($mbox); |
| | | |
| | | $index = $IMAP->index($mbox, null, 'ASC'); |
| | | $count = $index->count(); |
| | | $index = $index->get(); |
| | | |
| | | vputs("Getting message list of {$mbox}..."); |
| | | vputs($IMAP->messagecount()." messages\n"); |
| | | |
| | | vputs("$count messages\n"); |
| | | |
| | | if ($filename) |
| | | { |
| | | if (!($out = fopen($filename, 'w'))) |
| | |
| | | } |
| | | else |
| | | $out = STDOUT; |
| | | |
| | | for ($count = $IMAP->messagecount(), $i=1; $i <= $count; $i++) |
| | | |
| | | for ($i = 0; $i < $count; $i++) |
| | | { |
| | | $headers = $IMAP->get_headers($i, null, false); |
| | | $from = current($IMAP->decode_address_list($headers->from, 1, false)); |
| | | |
| | | $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)); |
| | | fwrite($out, iil_C_FetchPartHeader($IMAP->conn, $IMAP->mailbox, $i, null)); |
| | | fwrite($out, iil_C_HandlePartBody($IMAP->conn, $IMAP->mailbox, $i, null, 1)); |
| | | fwrite($out, $IMAP->print_raw_body($headers->uid)); |
| | | fwrite($out, "\n\n\n"); |
| | | |
| | | progress_update($i, $count); |
| | | |
| | | progress_update($i+1, $count); |
| | | } |
| | | vputs("\ncomplete.\n"); |
| | | |
| | | |
| | | if ($filename) |
| | | fclose($out); |
| | | } |
| | |
| | | } |
| | | |
| | | // prompt for password |
| | | vputs("Password: "); |
| | | $args['pass'] = trim(fgets(STDIN)); |
| | | $args['pass'] = prompt_silent("Password: "); |
| | | |
| | | |
| | | // parse $host URL |
| | |
| | | if ($IMAP->connect($host, $args['user'], $args['pass'], $imap_port, $imap_ssl)) |
| | | { |
| | | vputs("IMAP login successful.\n"); |
| | | |
| | | |
| | | $filename = null; |
| | | $mailboxes = $args['mbox'] == '*' ? $IMAP->list_mailboxes(null) : array($args['mbox']); |
| | | $mailboxes = $args['mbox'] == '*' ? $IMAP->list_folders(null) : array($args['mbox']); |
| | | |
| | | foreach ($mailboxes as $mbox) |
| | | { |
| | |
| | | $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), array('junk','spam','trash'))) |
| | | continue; |
| | | |
| | |
| | | vputs("IMAP login failed.\n"); |
| | | } |
| | | |
| | | ?> |
| | | ?> |