685 |
my(@errors) = validate_new_pr(%fields); |
my(@errors) = validate_new_pr(%fields); |
686 |
if (@errors) |
if (@errors) |
687 |
{ |
{ |
688 |
|
print_header(); |
689 |
page_start_html($page); |
page_start_html($page); |
690 |
page_heading($page, 'Error'); |
page_heading($page, 'Error'); |
691 |
print "<h3>Your problem report has not been sent.</h3>\n", |
print "<h3>Your problem report has not been sent.</h3>\n", |
716 |
# Allow debugging |
# Allow debugging |
717 |
if($debug) |
if($debug) |
718 |
{ |
{ |
719 |
|
print_header(); |
720 |
page_start_html($page); |
page_start_html($page); |
721 |
print "<h3>debugging -- PR NOT SENT</h3>", |
print "<h3>debugging -- PR NOT SENT</h3>", |
722 |
$q->pre($q->escapeHTML($text)), |
$q->pre($q->escapeHTML($text)), |
728 |
# Send the message |
# Send the message |
729 |
if(!open(MAIL, "|$site_mailer")) |
if(!open(MAIL, "|$site_mailer")) |
730 |
{ |
{ |
731 |
|
print_header(); |
732 |
page_start_html($page); |
page_start_html($page); |
733 |
page_heading($page, 'Error'); |
page_heading($page, 'Error'); |
734 |
print "<h3>Error invoking $site_mailer</h3>"; |
print "<h3>Error invoking $site_mailer</h3>"; |
737 |
print MAIL $text; |
print MAIL $text; |
738 |
if(!close(MAIL)) |
if(!close(MAIL)) |
739 |
{ |
{ |
740 |
|
print_header(); |
741 |
page_start_html($page); |
page_start_html($page); |
742 |
page_heading($page, 'Error'); |
page_heading($page, 'Error'); |
743 |
print "<h3>Bad pipe to $site_mailer</h3>"; |
print "<h3>Bad pipe to $site_mailer</h3>"; |
744 |
exit; |
exit; |
745 |
} |
} |
746 |
|
|
747 |
# Return the user to the page they were viewing when they pressed |
# Return the user to the page they were viewing when they pressed |
748 |
# 'create'. |
# 'create'. |