moving $_SERVER to sqgetGlobalVar
[squirrelmail.git] / plugins / bug_report / bug_report.php
1 <?php
2
3 /**
4 * bug_report.php
5 *
6 * This generates the bug report data, gives information about where
7 * it will be sent to and what people will do with it, and provides
8 * a button to show the bug report mail message in order to actually
9 * send it.
10 *
11 * Copyright (c) 1999-2004 The SquirrelMail development team
12 * Licensed under the GNU GPL. For full terms see the file COPYING.
13 *
14 * This is a standard Squirrelmail-1.2 API for plugins.
15 *
16 * @version $Id$
17 * @package plugins
18 * @subpackage bug_report
19 */
20
21 /**
22 * @ignore
23 */
24 define('SM_PATH','../../');
25
26 require_once(SM_PATH . 'include/validate.php');
27
28 // loading form functions
29 require_once(SM_PATH . 'functions/forms.php');
30
31 displayPageHeader($color, 'None');
32
33 /**
34 * converts array to string
35 *
36 * @param array $array array that has to be displayed
37 * @return string
38 * @access private
39 */
40 function Show_Array($array) {
41 $str = '';
42 foreach ($array as $key => $value) {
43 if ($key != 0 || $value != '') {
44 $str .= " * $key = $value\n";
45 }
46 }
47 if ($str == '') {
48 return " * Nothing listed\n";
49 }
50 return $str;
51 }
52
53 $browscap = ini_get('browscap');
54 if(!empty($browscap)) {
55 $browser = get_browser();
56 }
57
58 sqgetGlobalVar('HTTP_USER_AGENT', $HTTP_USER_AGENT, SQ_SERVER);
59 if ( ! sqgetGlobalVar('HTTP_USER_AGENT', $HTTP_USER_AGENT, SQ_SERVER) )
60 $HTTP_USER_AGENT="Browser information is not available.";
61
62 $body_top = "I subscribe to the squirrelmail-users mailing list.\n" .
63 " [ ] True - No need to CC me when replying\n" .
64 " [ ] False - Please CC me when replying\n" .
65 "\n" .
66 "This bug occurs when I ...\n" .
67 " ... view a particular message\n" .
68 " ... use a specific plugin/function\n" .
69 " ... try to do/view/use ....\n" .
70 "\n\n\n" .
71 "The description of the bug:\n\n\n" .
72 "I can reproduce the bug by:\n\n\n" .
73 "(Optional) I got bored and found the bug occurs in:\n\n\n" .
74 "(Optional) I got really bored and here's a fix:\n\n\n" .
75 "----------------------------------------------\n" .
76 "\nMy browser information:\n" .
77 ' '.$HTTP_USER_AGENT . "\n" ;
78 if(isset($browser)) {
79 $body_top .= " get_browser() information (List)\n" .
80 Show_Array((array) $browser);
81 }
82 $body_top .= "\nMy web server information:\n" .
83 " PHP Version " . phpversion() . "\n" .
84 " PHP Extensions (List)\n" .
85 Show_Array(get_loaded_extensions()) .
86 "\nSquirrelMail-specific information:\n" .
87 " Version: $version\n" .
88 " Plugins (List)\n" .
89 Show_Array($plugins);
90 if (isset($ldap_server) && $ldap_server[0] && ! extension_loaded('ldap')) {
91 $warning = 1;
92 $warnings['ldap'] = "LDAP server defined in SquirrelMail config, " .
93 "but the module is not loaded in PHP";
94 $corrections['ldap'][] = "Reconfigure PHP with the option '--with-ldap'";
95 $corrections['ldap'][] = "Then recompile PHP and reinstall";
96 $corrections['ldap'][] = "-- OR --";
97 $corrections['ldap'][] = "Reconfigure SquirrelMail to not use LDAP";
98 }
99
100 $body = "\nMy IMAP server information:\n" .
101 " Server type: $imap_server_type\n";
102 $imap_stream = fsockopen ($imapServerAddress, $imapPort, $error_number, $error_string);
103 $server_info = fgets ($imap_stream, 1024);
104 if ($imap_stream) {
105 // SUPRESS HOST NAME
106 $list = explode(' ', $server_info);
107 $list[2] = '[HIDDEN]';
108 $server_info = implode(' ', $list);
109 $body .= " Server info: $server_info";
110 fputs ($imap_stream, "a001 CAPABILITY\r\n");
111 $read = fgets($imap_stream, 1024);
112 $list = explode(' ', $read);
113 array_shift($list);
114 array_shift($list);
115 $read = implode(' ', $list);
116 $body .= " Capabilities: $read";
117 fputs ($imap_stream, "a002 LOGOUT\r\n");
118 fclose($imap_stream);
119 } else {
120 $body .= " Unable to connect to IMAP server to get information.\n";
121 $warning = 1;
122 $warnings['imap'] = "Unable to connect to IMAP server";
123 $corrections['imap'][] = "Make sure you specified the correct mail server";
124 $corrections['imap'][] = "Make sure the mail server is running IMAP, not POP";
125 $corrections['imap'][] = "Make sure the server responds to port $imapPort";
126 }
127 $warning_html = '';
128 $warning_num = 0;
129 if (isset($warning) && $warning) {
130 foreach ($warnings as $key => $value) {
131 if ($warning_num == 0) {
132 $body_top .= "WARNINGS WERE REPORTED WITH YOUR SETUP:\n";
133 $body_top = "WARNINGS WERE REPORTED WITH YOUR SETUP -- SEE BELOW\n\n$body_top";
134 $warning_html = "<h1>Warnings were reported with your setup:</h1>\n<dl>\n";
135 }
136 $warning_num ++;
137 $warning_html .= "<dt><b>$value</b></dt>\n";
138 $body_top .= "\n$value\n";
139 foreach ($corrections[$key] as $corr_val) {
140 $body_top .= " * $corr_val\n";
141 $warning_html .= "<dd>* $corr_val</dd>\n";
142 }
143 }
144 $warning_html .= "</dl>\n<p>$warning_num warning(s) reported.</p>\n<hr>\n";
145 $body_top .= "\n$warning_num warning(s) reported.\n";
146 $body_top .= "----------------------------------------------\n";
147 }
148
149 $body = htmlspecialchars($body_top . $body);
150
151 ?>
152 <br>
153 <table width="95%" align="center" border="0" cellpadding="2" cellspacing="0"><tr>
154 <?php echo html_tag('td',"<b>"._("Submit a Bug Report")."</b>",'center',$color[0]); ?>
155 </tr></table>
156
157 <?PHP echo $warning_html;
158
159 echo '<p><big>';
160 echo _("Before you send your bug report, please make sure to check this checklist for any common problems.");
161 echo "</big></p>\n";
162
163 echo "<ul>";
164 echo "<li>";
165 echo _("Make sure that you are running the most recent copy of <a href=\"http://www.squirrelmail.org/\">SquirrelMail</a>.");
166 echo sprintf(_("You are currently using version %s."),$version);
167 echo "</li>\n";
168
169 echo "<li>";
170 echo _("Check to see if your bug is already listed in the <a href=\"http://sourceforge.net/bugs/?group_id=311\">Bug List</a> on SourceForge. If it is, we already know about it and are trying to fix it.");
171 echo "</li>\n";
172
173 echo "<li>";
174 echo _("Try to make sure that you can repeat it. If the bug happens sporatically, try to document what you did when it happened. If it always occurs when you view a specific message, keep that message around so maybe we can see it.");
175 echo "</li>\n";
176
177 echo "<li>";
178 echo _("If there were warnings displayed above, try to resolve them yourself. Read the guides in the <tt>doc/</tt> directory where SquirrelMail was installed.");
179 echo "</li>\n";
180 echo "</ul>\n";
181
182 echo "<p>";
183 echo _("Pressing the button below will start a mail message to the developers of SquirrelMail that will contain a lot of information about your system, your browser, how SquirrelMail is set up, and your IMAP server. It will also prompt you for information. Just fill out the sections at the top. If you like, you can scroll down in the message to see what else is being sent.");
184 echo "</p>\n";
185
186 echo "<p>";
187 echo _("Please make sure to fill out as much information as you possibly can to give everyone a good chance of finding and removing the bug. Submitting your bug like this will not have it automatically added to the bug list on SourceForge, but someone who gets your message may add it for you.");
188 echo "</p>\n";
189 ?>
190 <form action="../../src/compose.php" method=post>
191 <table align="center" border="0">
192 <tr>
193 <td>
194 <?php echo _("This bug involves"); ?>: <select name="send_to">
195 <option value="squirrelmail-users@lists.sourceforge.net">
196 <?php echo _("the general program"); ?></option>
197 <option value="squirrelmail-plugins@lists.sourceforge.net">
198 <?php echo _("a specific plugin"); ?></option>
199 </select>
200 </td>
201 </tr>
202 <tr>
203 <td align="center">
204 <?php
205 echo addHidden("send_to_cc","");
206 echo addHidden("send_to_bcc","");
207 echo addHidden("subject","Bug Report");
208 echo addHidden("body",$body);
209 echo addSubmit(_("Start Bug Report Form"));
210 ?>
211 </td>
212 </tr>
213 </table>
214 </form>
215 </body></html>