// We have an error while logging in. Tell the user if ($status) { print $atmail->parse("html/{$atmail->Language}/auth_misc.html", array('status' => "Remote mail-server not responding - Check connection - {$status}")); $mail->quit(); $atmail->end(); } // Receive the list of mailbox folders $folders = GetMail::_sort_folders($mail->listfolders()); // Make sure the requested folder exists (help avoid XSS etc) if (!empty($var['folder']) && !in_array($var['folder'], $folders)) { die("requested folder does not exist"); } $fol = array(); // Create the select box for moving messages to another folder $var['folderbox'] = $mail->folder_select($var['folder'], $folders); $var['folderbox'] = $mail->folder_select_lang($var['folderbox'], $atmail->Language); // By default, we want to move to Trash $var['folderbox'] = str_replace("value=\"Trash\"", "value=\"Trash\" selected", $var['folderbox']); // If the user has set the messages to another flag; update the UIDL database. if ($var['flag'] && $msgs[0]) { $c = 0; foreach ($msgs as $id) { $folder = urldecode($_REQUEST['folders'][$c]); // Load a hash containing the message headers $db = $mail->gethead($id, $folder, 5); $mail->updateuidl($db['EmailUIDL'], $var['flag'], '1', $folder, $id); $c++; } print <<<EOF <?xml version="1.0" ?> <MovedMsgs>