/[gnatsweb]/gnatsweb/gnatsweb.pl
ViewVC logotype

Diff of /gnatsweb/gnatsweb.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1.2.30 by yngves, Wed Nov 21 12:26:02 2001 UTC revision 1.1.1.1.2.31 by yngves, Mon Nov 26 10:59:48 2001 UTC
# Line 685  sub submitnewpr Line 685  sub submitnewpr
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",
# Line 715  EOT Line 716  EOT
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)),
# Line 726  EOT Line 728  EOT
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>";
# Line 734  EOT Line 737  EOT
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'.

Legend:
Removed from v.1.1.1.1.2.30  
changed lines
  Added in v.1.1.1.1.2.31

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26