|
Lines 153-158
Link Here
|
| 153 |
if ($blackhole_err) { |
153 |
if ($blackhole_err) { |
| 154 |
$pr .= "X-REMOTE_ADDR-Is-Open-Proxy: Maybe\n"; |
154 |
$pr .= "X-REMOTE_ADDR-Is-Open-Proxy: Maybe\n"; |
| 155 |
} |
155 |
} |
|
|
156 |
|
| 157 |
{ |
| 158 |
use bytes; |
| 159 |
if (length($cgi_bin{'patch'}) > 1048576) { |
| 160 |
die "patchfile too big!"; |
| 161 |
} |
| 162 |
} |
| 163 |
|
| 156 |
$pr .= "X-Send-Pr-Version: www-2.3\n\n" . |
164 |
$pr .= "X-Send-Pr-Version: www-2.3\n\n" . |
| 157 |
">Submitter-Id:\t$cgi_data{'submitterid'}\n" . |
165 |
">Submitter-Id:\t$cgi_data{'submitterid'}\n" . |
| 158 |
">Originator:\t$cgi_data{'originator'}\n" . |
166 |
">Originator:\t$cgi_data{'originator'}\n" . |
|
Lines 167-175
Link Here
|
| 167 |
">Environment:\t$cgi_data{'environment'}\n" . |
175 |
">Environment:\t$cgi_data{'environment'}\n" . |
| 168 |
">Description:\n$cgi_data{'description'}\n" . |
176 |
">Description:\n$cgi_data{'description'}\n" . |
| 169 |
">How-To-Repeat:\n$cgi_data{'howtorepeat'}\n" . |
177 |
">How-To-Repeat:\n$cgi_data{'howtorepeat'}\n" . |
| 170 |
">Fix:\n$cgi_data{'fix'}\n"; |
178 |
">Fix:\n$cgi_data{'fix'}\n" . |
|
|
179 |
"$cgi_data{'patch'}\n"; |
| 171 |
|
180 |
|
| 172 |
# remove any carrage returns that appear in the report. |
181 |
# remove any carriage returns that appear in the report. |
| 173 |
$pr =~ s/\r//g; |
182 |
$pr =~ s/\r//g; |
| 174 |
|
183 |
|
| 175 |
if (open (SUBMIT, "|$submission_program")){ |
184 |
if (open (SUBMIT, "|$submission_program")){ |