X-Git-Url: https://vcs.fsf.org/?a=blobdiff_plain;f=src%2Fretrievalerror.php;h=e95657a63b780aea8ce152eff36194f16cff55a4;hb=77e6058f22e41b506fbc43697ce70aa76d831d00;hp=0fd94f2fb85064f9a841c7ca8b3ab7f17d9c46f9;hpb=3392dc867232037b2c6e2089ebcab9d64e154db7;p=squirrelmail.git diff --git a/src/retrievalerror.php b/src/retrievalerror.php index 0fd94f2f..e95657a6 100644 --- a/src/retrievalerror.php +++ b/src/retrievalerror.php @@ -3,7 +3,7 @@ /** * retrievalerror.php * - * Copyright (c) 1999-2001 The SquirrelMail Development Team + * Copyright (c) 1999-2002 The SquirrelMail Project Team * Licensed under the GNU GPL. For full terms see the file COPYING. * * Submits a message which Squirrelmail couldn't handle @@ -14,118 +14,93 @@ * $Id$ */ -/*****************************************************************/ -/*** THIS FILE NEEDS TO HAVE ITS FORMATTING FIXED!!! ***/ -/*** PLEASE DO SO AND REMOVE THIS COMMENT SECTION. ***/ -/*** + Base level indent should begin at left margin, as ***/ -/*** the require_once below looks. ***/ -/*** + All identation should consist of four space blocks ***/ -/*** + Tab characters are evil. ***/ -/*** + all comments should use "slash-star ... star-slash" ***/ -/*** style -- no pound characters, no slash-slash style ***/ -/*** + FLOW CONTROL STATEMENTS (if, while, etc) SHOULD ***/ -/*** ALWAYS USE { AND } CHARACTERS!!! ***/ -/*** + Please use ' instead of ", when possible. Note " ***/ -/*** should always be used in _( ) function calls. ***/ -/*** Thank you for your help making the SM code more readable. ***/ -/*****************************************************************/ - require_once('../src/validate.php'); -require_once("../functions/imap.php"); -require_once("../functions/smtp.php"); -require_once("../functions/page_header.php"); -require_once("../src/load_prefs.php"); - - $destination = "retrievalerror@squirrelmail.org"; - - $attachments = array(); - - - function ClearAttachments() { - global $attachments, $attachment_dir, $username; - - $hashed_attachment_dir = getHashedDir($username, $attachment_dir); - foreach ($attachments as $info) { - $attached_file = "$hashed_attachment_dir/$info[localfilename]"; - if (file_exists($attached_file)) { - unlink($attached_file); - } - } - - $attachments = array(); - } - - $imap_stream = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0); - sqimap_mailbox_select($imap_stream, $mailbox); - $sid = sqimap_session_id(); - fputs ($imap_stream, "$sid FETCH $passed_id BODY[]\r\n"); - $data = sqimap_read_data ($imap_stream, $sid, true, $response, $message); - sqimap_logout($imap_stream); - $topline2 = array_shift($data); - $thebastard = implode('', $data); - - - $hashed_attachment_dir = getHashedDir($username, $attachment_dir); - $localfilename = GenerateRandomString(32, '', 7); - $full_localfilename = "$hashed_attachment_dir/$localfilename"; - while (file_exists($full_localfilename)) { - $localfilename = GenerateRandomString(32, '', 7); - $full_localfilename = "$hashed_attachment_dir/$localfilename"; - } - - // Write Attachment to file - $fp = fopen ($full_localfilename, 'w'); - fputs ($fp, $thebastard); - fclose ($fp); - - $newAttachment = array(); - $newAttachment['localfilename'] = $localfilename; - $newAttachment['remotefilename'] = 'message.duh'; - $newAttachment['type'] = 'application/octet-stream'; - $attachments[] = $newAttachment; - - - $body = "Response: $response\n" . - "Message: $message\n" . - "FETCH line: $topline\n" . - "Server Type: $imap_server_type\n"; - - $imap_stream = fsockopen ($imapServerAddress, $imapPort, &$error_number, &$error_string); - $server_info = fgets ($imap_stream, 1024); - if ($imap_stream) - { - $body .= " Server info: $server_info"; - fputs ($imap_stream, "a001 CAPABILITY\r\n"); - $read = fgets($imap_stream, 1024); - $list = explode(' ', $read); - array_shift($list); - array_shift($list); - $read = implode(' ', $list); - $body .= " Capabilities: $read"; - fputs ($imap_stream, "a002 LOGOUT\r\n"); - fclose($imap_stream); - } - - $body .= "\nFETCH line for gathering the whole message: $topline2\n"; - - - sendMessage($destination, "", "", "submitted message", $body, 0); - - - - - displayPageHeader($color, $mailbox); - - $par = "mailbox=".urlencode($mailbox)."&passed_id=$passed_id"; - if (isset($where) && isset($what)) { - $par .= "&where=".urlencode($where)."&what=".urlencode($what); - } else { - $par .= "&startMessage=$startMessage&show_more=0"; - } - - echo '
The message has been submitted to the developers knowledgebase!
' . - 'Thank you very much
' . - 'Please submit every message only once
' . - "View the message
"; +require_once('../functions/imap.php'); +require_once('../functions/smtp.php'); +require_once('../functions/page_header.php'); +require_once('../src/load_prefs.php'); + +$destination = 'retrievalerror@squirrelmail.org'; +$attachments = array(); + +function ClearAttachments() { + global $attachments, $attachment_dir, $username; + + $hashed_attachment_dir = getHashedDir($username, $attachment_dir); + foreach ($attachments as $info) { + $attached_file = "$hashed_attachment_dir/$info[localfilename]"; + if (file_exists($attached_file)) { + unlink($attached_file); + } + } + + $attachments = array(); +} + +$imap_stream = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0); +sqimap_mailbox_select($imap_stream, $mailbox); +$sid = sqimap_session_id(); +fputs ($imap_stream, "$sid FETCH $passed_id BODY[]\r\n"); +$data = sqimap_read_data ($imap_stream, $sid, true, $response, $message); +sqimap_logout($imap_stream); +$topline2 = array_shift($data); +$thebastard = implode('', $data); + +$hashed_attachment_dir = getHashedDir($username, $attachment_dir); +$localfilename = GenerateRandomString(32, '', 7); +$full_localfilename = "$hashed_attachment_dir/$localfilename"; +while (file_exists($full_localfilename)) { + $localfilename = GenerateRandomString(32, '', 7); + $full_localfilename = "$hashed_attachment_dir/$localfilename"; +} + +/* Write Attachment to file */ +$fp = fopen ($full_localfilename, 'w'); +fputs ($fp, $thebastard); +fclose ($fp); + +$newAttachment = array(); +$newAttachment['localfilename'] = $localfilename; +$newAttachment['remotefilename'] = 'message.duh'; +$newAttachment['type'] = 'application/octet-stream'; +$attachments[] = $newAttachment; + +$body = "Response: $response\n" . + "Message: $message\n" . + "FETCH line: $topline\n" . + "Server Type: $imap_server_type\n"; + +$imap_stream = fsockopen ($imapServerAddress, $imapPort, &$error_number, &$error_string); +$server_info = fgets ($imap_stream, 1024); +if ($imap_stream) { + $body .= " Server info: $server_info"; + fputs ($imap_stream, "a001 CAPABILITY\r\n"); + $read = fgets($imap_stream, 1024); + $list = explode(' ', $read); + array_shift($list); + array_shift($list); + $read = implode(' ', $list); + $body .= " Capabilities: $read"; + fputs ($imap_stream, "a002 LOGOUT\r\n"); + fclose($imap_stream); +} + +$body .= "\nFETCH line for gathering the whole message: $topline2\n"; + +sendMessage($destination, '', '', 'submitted message', $body, False, 0); + +displayPageHeader($color, $mailbox); + +$par = 'mailbox='.urlencode($mailbox)."&passed_id=$passed_id"; +if (isset($where) && isset($what)) { + $par .= '&where='.urlencode($where).'&what='.urlencode($what); +} else { + $par .= "&startMessage=$startMessage&show_more=0"; +} + +echo '
The message has been submitted to the developers knowledgebase!
' . + 'Thank you very much
' . + 'Please submit every message only once
' . + "View the message
"; ?>