<?php
exit;
/**
 * move_messages.php
 *
 * Copyright (c) 1999-2004 The SquirrelMail Project Team
 * Licensed under the GNU GPL. For full terms see the file COPYING.
 *
 * Enables message moving between folders on the IMAP server.
 *
 * @version $Id$
 * @package squirrelmail
 */

/**
 * Path for SquirrelMail required files.
 * @ignore
 */


/**
 * FIX ME REMOVE ME FIX ME REMOVE ME I DON'T DESERVE TO EXIST
 *
 * Integrate this is a clean manner in right_main.php and rename right_main to
 * messageslist or whatever
 **/


define('SM_PATH','../');

/* SquirrelMail required files. */
require_once(SM_PATH . 'include/validate.php');
require_once(SM_PATH . 'functions/global.php');
require_once(SM_PATH . 'functions/display_messages.php');
require_once(SM_PATH . 'functions/imap.php');
require_once(SM_PATH . 'functions/html.php');

global $compose_new_win;

if ( !sqgetGlobalVar('composesession', $composesession, SQ_SESSION) ) {
    $composesession = 0;
}

function attachSelectedMessages($msg, $imapConnection) {
    global $username, $attachment_dir, $startMessage,
           $data_dir, $composesession,
           $msgs, $show_num, $compose_messages;

    if (!isset($compose_messages)) {
        $compose_messages = array();
        sqsession_register($compose_messages,'compose_messages');
    }

    if (!$composesession) {
        $composesession = 1;
        sqsession_register($composesession,'composesession');
    } else {
        $composesession++;
        sqsession_register($composesession,'composesession');
    }

    $hashed_attachment_dir = getHashedDir($username, $attachment_dir);

    $composeMessage = new Message();
    $rfc822_header = new Rfc822Header();
    $composeMessage->rfc822_header = $rfc822_header;
    $composeMessage->reply_rfc822_header = '';

    foreach($msg as $id) {
        $body_a = sqimap_run_command($imapConnection, "FETCH $id RFC822", true, $response, $readmessage, TRUE);

        if ($response == 'OK') {
            // fetch the subject for the message with $id from msgs.
            // is there a more efficient way to do this?
            foreach($msgs as $k => $vals) {
                if($vals['ID'] == $id) {
                    $subject = $msgs[$k]['SUBJECT'];
                    break;
                }
            }

            array_shift($body_a);
            array_pop($body_a);
            $body = implode('', $body_a);
            $body .= "\r\n";

            $localfilename = GenerateRandomString(32, 'FILE', 7);
            $full_localfilename = "$hashed_attachment_dir/$localfilename";

            $fp = fopen( $full_localfilename, 'wb');
            fwrite ($fp, $body);
            fclose($fp);
            $composeMessage->initAttachment('message/rfc822',$subject.'.msg',
                 $full_localfilename);
        }
    }

    $compose_messages[$composesession] = $composeMessage;
    sqsession_register($compose_messages,'compose_messages');
    session_write_close();
    return $composesession;
}

/* get globals */
sqgetGlobalVar('key',       $key,           SQ_COOKIE);
sqgetGlobalVar('username',  $username,      SQ_SESSION);
sqgetGlobalVar('onetimepad',$onetimepad,    SQ_SESSION);
sqgetGlobalVar('delimiter', $delimiter,     SQ_SESSION);
sqgetGlobalVar('base_uri',  $base_uri,      SQ_SESSION);

sqgetGlobalVar('mailbox', $mailbox);
sqgetGlobalVar('startMessage', $startMessage);
sqgetGlobalVar('msg', $msg);

sqgetGlobalVar('msgs',              $msgs,              SQ_SESSION);
sqgetGlobalVar('composesession',    $composesession,    SQ_SESSION);
sqgetGlobalVar('lastTargetMailbox', $lastTargetMailbox, SQ_SESSION);

sqgetGlobalVar('moveButton',      $moveButton,      SQ_POST);
sqgetGlobalVar('expungeButton',   $expungeButton,   SQ_POST);
sqgetGlobalVar('targetMailbox',   $targetMailbox,   SQ_POST);
sqgetGlobalVar('expungeButton',   $expungeButton,   SQ_POST);
sqgetGlobalVar('undeleteButton',  $undeleteButton,  SQ_POST);
sqgetGlobalVar('markRead',        $markRead,        SQ_POST);
sqgetGlobalVar('markUnread',      $markUnread,      SQ_POST);
sqgetGlobalVar('markFlagged',     $markFlagged,     SQ_POST);
sqgetGlobalVar('markUnflagged',   $markUnflagged,   SQ_POST);
sqgetGlobalVar('attache',         $attache,         SQ_POST);
sqgetGlobalVar('location',        $location,        SQ_POST);
sqgetGlobalVar('bypass_trash',    $bypass_trash,    SQ_POST);
sqgetGlobalVar('dmn',             $is_dmn,          SQ_POST);


/* end of get globals */

$imapConnection = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0);
$mbx_response=sqimap_mailbox_select($imapConnection, $mailbox);


global $allow_thread_sort, $auto_expunge;

if ($allow_thread_sort && getPref($data_dir, $username, "thread_$mailbox",0)) {
    $aMailbox['SORT_METHOD'] = 'THREAD';
} else if ($allow_server_sort) {
    $aMailbox['SORT_METHOD'] = 'SERVER';
} else {
    $aMailbox['SORT_METHOD'] = 'SQUIRREL';
}
sqgetGlobalVar('aLastSelectedMailbox',$aMailbox,SQ_SESSION);
sqgetGlobalVar('server_sort_array', $server_sort_array, SQ_SESSION);
$aMailbox['UIDSET'] = $server_sort_array;
$aMailbox['SORT'] = $sort;
$aMailbox['NAME'] = $mailbox;
$aMailbox['EXISTS'] = $mbx_response['EXISTS'];
$aMailbox['AUTO_EXPUNGE'] = $auto_expunge;
$aMailbox['MSG_HEADERS'] = $msgs;

$location = set_url_var($location,'composenew',0,false);
$location = set_url_var($location,'composesession',0,false);
$location = set_url_var($location,'session',0,false);

/* remember changes to mailbox setting */
if (!isset($lastTargetMailbox)) {
    $lastTargetMailbox = 'INBOX';
}
if ($targetMailbox != $lastTargetMailbox) {
    $lastTargetMailbox = $targetMailbox;
    sqsession_register($lastTargetMailbox, 'lastTargetMailbox');
}
$exception = false;
$change    = false;

do_hook('move_before_move');

/*
    Move msg list sorting up here, as it is used several times,
    makes it more efficient to do it in one place for the code
*/
$id = array();
if (isset($msg) && is_array($msg)) {
    foreach( $msg as $key=>$uid ) {
        // using foreach removes the risk of infinite loops that was there //
        $id[] = $uid;
    }
}
$num_ids = count($id);

// expunge-on-demand if user isn't using move_to_trash or auto_expunge
if(isset($expungeButton)) {
    $num_ids = sqimap_mailbox_expunge($imapConnection, $mailbox, true);
    $change = true;
} elseif(isset($undeleteButton)) {
    // undelete messages if user isn't using move_to_trash or auto_expunge
    // Removes \Deleted flag from selected messages
    if ($num_ids) {
        sqimap_toggle_flag($imapConnection, $id, '\\Deleted',false,true);
    } else {
        $exception = true;
    }
} elseif (!isset($moveButton)) {
    if ($num_ids) {
        if (!isset($attache)) {
            if (isset($markRead)) {
                sqimap_toggle_flag($imapConnection, $id, '\\Seen',true,true);
            } else if (isset($markUnread)) {
                sqimap_toggle_flag($imapConnection, $id, '\\Seen',false,true);
            } else if (isset($markFlagged)) {
                sqimap_toggle_flag($imapConnection, $id, '\\Flagged', true, true);
            } else if (isset($markUnflagged)) {
                sqimap_toggle_flag($imapConnection, $id, '\\Flagged', false, true);
            } else  { // Delete messages
                if (!boolean_hook_function('move_messages_button_action', NULL, 1)) {
                    sqimap_msgs_list_delete($imapConnection, $mailbox, $id,$bypass_trash);
                    if ($auto_expunge) {
                        $num_ids = sqimap_mailbox_expunge($imapConnection, $mailbox, true);
                    }
                    $change = true;
                }
            }
        } else {
            $composesession = attachSelectedMessages($id, $imapConnection);
            $location = set_url_var($location, 'session', $composesession, false);
            if ($compose_new_win) {
                $location = set_url_var($location, 'composenew', 1, false);
            } else {
                $location = str_replace('search.php','compose.php',$location);
                $location = str_replace('right_main.php','compose.php',$location);
            }
        }
    } else {
        $exception = true;
    }
} else {    // Move messages
    if ( $num_ids > 0 ) {
        if ( $is_dmn && $num_ids == 1 ) {
            sqimap_msgs_list_move($imapConnection,$id[0],$targetMailbox);
            $num_ids = sqimap_mailbox_expunge_dmn($imapConnection,$aMailbox, $id[0]);
        } else {
            sqimap_msgs_list_move($imapConnection,$id,$targetMailbox);
            if ($auto_expunge) {
                $num_ids = sqimap_mailbox_expunge($imapConnection, $mailbox, true);
            }
        }
        $change = true;
    } else {
        $exception = true;
    }
}
if($change) { // Change the startMessage number if the mailbox was changed
    if (($startMessage+$num_ids-1) >= $mbx_response['EXISTS']) {
        if ($startMessage > $show_num) {
            $location = set_url_var($location,'startMessage',$startMessage-$show_num,false);
        } else {
            $location = set_url_var($location,'startMessage',1,false);
        }
    }
}
// Log out this session
sqimap_logout($imapConnection);
if ($exception) {
    displayPageHeader($color, $mailbox);
    error_message(_("No messages were selected."), $mailbox, $sort, $startMessage, $color);
} else {
    header("Location: $location");
    exit;
}

function handleMessageListForm($imapConnection,&$aMailbox) {
    /* incoming formdata */
    sqgetGlobalVar('moveButton',      $moveButton,      SQ_POST);
    sqgetGlobalVar('expungeButton',   $expungeButton,   SQ_POST);
    sqgetGlobalVar('targetMailbox',   $targetMailbox,   SQ_POST);
    sqgetGlobalVar('expungeButton',   $expungeButton,   SQ_POST);
    sqgetGlobalVar('undeleteButton',  $undeleteButton,  SQ_POST);
    sqgetGlobalVar('markRead',        $markRead,        SQ_POST);
    sqgetGlobalVar('markUnread',      $markUnread,      SQ_POST);
    sqgetGlobalVar('markFlagged',     $markFlagged,     SQ_POST);
    sqgetGlobalVar('markUnflagged',   $markUnflagged,   SQ_POST);
    sqgetGlobalVar('attache',         $attache,         SQ_POST);
    sqgetGlobalVar('location',        $location,        SQ_POST);
    sqgetGlobalVar('bypass_trash',    $bypass_trash,    SQ_POST);
    sqgetGlobalVar('msg',             $msg,             SQ_POST);

    $sError = '';
    /* retrieve the check boxes */
    $aUid = array();
    if (isset($msg) && is_array($msg)) {
        foreach( $msg as $key=>$iUid ) {
            // using foreach removes the risk of infinite loops that was there //
            $aUid[] = $iUid;
        }
    }
    $num_ids = count($id);

    if (count($num_ids) && !isset($expungeButton)) {
        /* handle submit buttons */
        $sButton = '';
        $sButton = (isset($expungeButton)) ? 'expunge'      : $sButton;
        $sButton = (isset($attache))       ? 'attache'      : $sButton;
        $sButton = (isset($moveButton))    ? 'move'         : $sButton;
        $sButton = (isset($copyButton))    ? 'copy'         : $sButton;
        $sButton = (isset($markDelete))    ? 'setDeleted'   : $sButton;
        $sButton = (isset($markUndelete))  ? 'unsetDeleted' : $sButton;
        $sButton = (isset($markSeen))      ? 'setSeen'      : $sButton;
        $sButton = (isset($markUnseen))    ? 'unsetSeen'    : $sButton;
        $sButton = (isset($markFlagged))   ? 'setFlagged'   : $sButton;
        $sButton = (isset($markUnflagged)) ? 'unsetFlagged' : $sButton;

        $aUpdatedMsgs = false;
        $bExpunge = false;
        switch ($sButton) {
          case 'setDeleted':
            // What kind of hook is this, can it be removed?
            if (!boolean_hook_function('move_messages_button_action', NULL, 1)) {
                $aUpdatedMsgs = sqimap_msgs_list_delete($imapConnection, $mailbox, $aUid,$bypass_trash);
                $bExpunge = true;
            }
            break;
          case 'unsetDeleted':
          case 'setSeen':
          case 'unsetSeen':
          case 'setFlagged':
          case 'unsetFlagged':
            // get flag
            $sFlag = (substr($sButton,0,3) == 'set') ? '\\'.substr($sButton,3) : '\\'.substr($sButton,5);
            $bSet  = (substr($sButton,0,3) == 'set') ? true : false;
            $aUpdatedMsgs = sqimap_toggle_flag($imapConnection, $aUid, $sFlag, $bSet, true);
            break;
          case 'move':
            $aUpdatedMsgs = sqimap_msgs_list_move($imapConnection,$aId,$targetMailbox);
            $bExpunge = true;
            break;
          case 'attache':
            $composesession = attachSelectedMessages($id, $imapConnection);
            // dirty hack, add info to $aMailbox
            $aMailbox['FORWARD_SESSION'] = $composesession;
            break;
        }

        if ($aUpdatedMsgs) {
            foreach ($aUpdatedMsgs as $iUid => $aMsg) {
                if (isset($aMsg['FLAGS'])) {
                    $aMailbox['MSG_HEADERS'][$iUid]['FLAGS'] = $aMsg['FLAGS'];
                }
            }
            if ($bExpunge && $aMailbox['AUTO_EXPUNGE'] &&
                $iExpungedMessages = sqimap_mailbox_expunge($imapConnection, $aMailbox['NAME'], true))
                {
                if (count($aUpdateMsgs != $iExpungedMessages)) {
                    // there are more messages deleted permanently then we expected
                    // invalidate the cache
                    $aMailbox['UIDSET'] = false;
                    $aMailbox['MSG_HEADERS'] = false;
                } else {
                    // remove expunged messages from cache
                    $aUidSet = $aMailbox['UIDSET'];
                    $aDeleted = array();
                    foreach ($aUpdatedMsgs as $iUid => $aValue) {
                        if (isset($aValue['FLAGS']['\\deleted']) && $aValue['FLAGS']['\\deleted']) {
                            $aDeleted[] = $iUid;
                        }
                    }
                    if (count($aDeleted)) {
                        // create a UID => array index temp array
                        $aUidSetDummy = array_flip($aUidSet);
                        foreach ($aDeleted as $iUid) {
                            unset($aUidSetDummy[$iUid]);
                        }
                        $aUidSet = array_keys($aUidSetDummy);
                        $aMailbox['UIDSET'] = $aUidSet;
                        // update EXISTS info
                        $aMailbox['EXISTS'] -= $iExpungedMessages;
                    }
                }
                // Change the startMessage number if the mailbox was changed
                if (($aMailbox['PAGEOFFSET']+$iExpungedMessages-1) >= $aMailbox['EXISTS']) {
                    $aMailbox['PAGEOFFSET'] = ($aMailbox['PAGEOFFSET'] > $aMailbox['LIMIT']) ?
                        $aMailbox['PAGEOFFSET'] - $aMailbox['LIMIT'] : 1;
                }
            }
        }
    } else {
        if (isset($expungeButton)) {
            // on expunge we do not know which messages will be deleted
            // so it's useless to try to sync the cache

            // Close the mailbox so we do not need to parse the untagged expunge responses
            sqimap_run_command($imapConnection,'CLOSE',false,$result,$message);
            $aMbxResponse = sqimap_select($imapConnection,$aMailbox['NAME'];
            // update the $aMailbox array
            $aMailbox['EXISTS'] = $aMbxResponse['EXISTS'];
            $aMailbox['UIDSET'] = false;
        } else {
            $sError = _("No messages were selected.");
        }
    }
}
?>
</BODY></HTML>