1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
<?php
/**
* $Horde: horde/services/problem.php,v 2.114.8.2 2005/01/05 15:06:07 chuck Exp $
*
* Copyright 1999-2005 Charles J. Hagenbuch <chuck@horde.org>
* Copyright 1999-2005 Jon Parise <jon@horde.org>
*
* See the enclosed file COPYING for license information (LGPL). If you
* did not receive this file, see http://www.fsf.org/copyleft/lgpl.html.
*/
/* Send the browser back to the correct page. */
function _returnToPage()
{
$url = Util::getFormData('return_url', Horde::url($GLOBALS['registry']->get('webroot', 'horde') . '/login.php', true));
header('Location: ' . str_replace('&', '&', $url));
}
@define('AUTH_HANDLER', true);
@define('HORDE_BASE', dirname(__FILE__) . '/..');
require_once HORDE_BASE . '/lib/base.php';
require_once HORDE_BASE . '/lib/version.php';
require_once 'Horde/Identity.php';
if (!Horde::showService('problem')) {
_returnToPage();
}
$identity = &Identity::singleton();
$email = $identity->getValue('from_addr');
if (empty($email)) {
$email = Util::getFormData('email', '');
}
if (empty($email)) {
$email = Auth::getAuth();
}
$message = Util::getFormData('message', '');
$name = Util::getFormData('name', $identity->getValue('fullname'));
$subject = Util::getFormData('subject', '');
$actionID = Util::getFormData('actionID');
switch ($actionID) {
case 'send_problem_report':
if (!empty($subject) && !empty($message)) {
require_once 'Horde/MIME.php';
require_once 'Horde/MIME/Headers.php';
require_once 'Horde/MIME/Message.php';
$msg_headers = &new MIME_Headers();
$msg_headers->addReceivedHeader();
$msg_headers->addMessageIdHeader();
$msg_headers->addAgentHeader();
$msg_headers->addHeader('Date', date('r'));
$msg_headers->addHeader('To', $conf['problems']['email']);
$msg_headers->addHeader('Subject', _("[Problem Report]") . ' ' . $subject);
if (!empty($email)) {
if (!empty($name)) {
@list($mailbox, $host) = @explode('@', $email, 2);
if (empty($host)) {
$host = $conf['server']['name'];
}
$msg_headers->addHeader('From', MIME::rfc822WriteAddress($mailbox, $host, $name));
} else {
$msg_headers->addHeader('From', $email);
}
$msg_headers->addHeader('Sender', 'horde-problem@' . $conf['server']['name']);
} else {
$msg_headers->addHeader('From', 'horde-problem@' . $conf['server']['name']);
}
$recipients = $conf['problems']['email'];
$message = str_replace("\r\n", "\n", $message);
// This is not a gettext string on purpose.
$remote = (!empty($_SERVER['REMOTE_HOST'])) ? $_SERVER['REMOTE_HOST'] : $_SERVER['REMOTE_ADDR'];
$user_agent = $_SERVER['HTTP_USER_AGENT'];
$message = "This problem report was received from $remote. " .
"The user clicked the problem report link from the following location:\n" .
Util::getFormData('return_url', 'No requesting page') .
"\nand is using the following browser:\n$user_agent\n\n$message";
$mime = &new MIME_Message();
$body = &new MIME_Part('text/plain', String::wrap($message, 80, "\n"), NLS::getCharset());
$mime->addPart($body);
$msg_headers->addMIMEHeaders($mime);
if (!is_a($mime->send($recipients, $msg_headers), 'PEAR_Error')) {
/* We succeeded. Return to previous page and exit this script. */
_returnToPage();
exit;
} else {
$label = _("Describe the Problem");
}
} else {
/* Something wasn't quite right. Strange. */
$label = _("Describe the Problem");
}
break;
case 'cancel_problem_report':
_returnToPage();
exit;
}
if (empty($label)) {
$label = _("Describe the Problem");
}
$title = _("Problem Description");
require HORDE_TEMPLATES . '/common-header.inc';
require HORDE_TEMPLATES . '/menu/menu.inc';
$notification->notify(array('listeners' => 'status'));
require HORDE_TEMPLATES . '/problem/problem.inc';
require HORDE_TEMPLATES . '/common-footer.inc';
|
