From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <help-gnats-admin@gnu.org>
Received: (qmail 32402 invoked from network); 16 Sep 2002 13:36:17 -0000
Received: from unknown (HELO monty-python.gnu.org) (199.232.76.173)
  by sources.redhat.com with SMTP; 16 Sep 2002 13:36:17 -0000
Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.10)
	id 17qw2p-0003AL-00; Mon, 16 Sep 2002 09:36:07 -0400
Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.10)
	id 17qw2f-00038Y-00
	for help-gnats@gnu.org; Mon, 16 Sep 2002 09:35:57 -0400
Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.10)
	id 17qw2a-00037s-00
	for help-gnats@gnu.org; Mon, 16 Sep 2002 09:35:56 -0400
Received: from claven.astro.princeton.edu ([128.112.25.10])
	by monty-python.gnu.org with esmtp (Exim 4.10)
	id 17qw2Z-00037Y-00
	for help-gnats@gnu.org; Mon, 16 Sep 2002 09:35:52 -0400
Received: from wire7.Princeton.EDU (IDENT:r8CQxR5oCQly/sa61X6yULkJLhQSBI8H@wire7 [128.112.24.203])
	by claven.astro.princeton.edu (8.11.6/8.11.6) with ESMTP id g8GDZnG02380
	for <help-gnats@gnu.org>; Mon, 16 Sep 2002 09:35:49 -0400
Received: (from rhl@localhost)
	by wire7.Princeton.EDU (8.11.6/8.11.2) id g8GDZn428126;
	Mon, 16 Sep 2002 09:35:49 -0400
From: Robert Lupton the Good <rhl@astro.Princeton.EDU>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Message-ID: <15749.56884.997475.603872@wire7.Princeton.EDU>
To: help-gnats@gnu.org
Subject: Patch for gnatsweb.pl
X-Mailer: VM 7.03 under Emacs 20.7.1
Sender: help-gnats-admin@gnu.org
Errors-To: help-gnats-admin@gnu.org
X-BeenThere: help-gnats@gnu.org
X-Mailman-Version: 2.0.11
Precedence: bulk
List-Help: <mailto:help-gnats-request@gnu.org?subject=help>
List-Post: <mailto:help-gnats@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gnats>,
	<mailto:help-gnats-request@gnu.org?subject=subscribe>
List-Id: General discussion about GNU GNATS <help-gnats.gnu.org>
List-Archive: <http://mail.gnu.org/pipermail/help-gnats/>
Date: Mon, 16 Sep 2002 06:46:00 -0000
X-SW-Source: 2002-q3/txt/msg00082.txt.bz2


(This is my `patch.3a')

This patch prints a header if needed when debug=all statements (this
is sometimes needed)

				R

	

*** gnatsweb.pl	Wed Sep 11 14:06:11 2002
--- /u/dss/cgi-bin/gnatsweb-v4.pl	Wed Sep 11 14:10:10 2002
***************
*** 357,363 ****
  {
    my($state, $text, $type);
    my $raw_reply = <SOCK>;
!   print "<tt>server_reply: $_</tt><br>\n" if defined($reply_debug);
    if($raw_reply =~ /(\d+)([- ]?)(.*$)/)
    {
      $state = $1;
--- 357,367 ----
  {
    my($state, $text, $type);
    my $raw_reply = <SOCK>;
!   if(defined($reply_debug))
!   {
!     print_header();
!     print "<tt>server_reply: $raw_reply</tt><br>\n";
!   }
    if($raw_reply =~ /(\d+)([- ]?)(.*$)/)
    {
      $state = $1;
***************
*** 389,395 ****
  
    while(<SOCK>)
    {
!     print "<tt>read_server: $_</tt><br>\n" if defined($reply_debug);
      if(/^\.\r/)
      {
        return @text;
--- 393,404 ----
  
    while(<SOCK>)
    {
!     if(defined($reply_debug))
!     {
!       print_header();
!       print "<tt>read_server: $_</tt><br>\n";
!     }
! 
      if(/^\.\r/)
      {
        return @text;
***************
*** 703,710 ****
    my $debug = 0;
    print SOCK "$cmd\n";
    warn "client_cmd: $cmd" if $debug;
!   print "<br><tt>client_cmd: <pre>$cmd</pre></tt><br>\n"
!         if defined($client_cmd_debug);
    return get_reply();
  }
  
--- 712,722 ----
    my $debug = 0;
    print SOCK "$cmd\n";
    warn "client_cmd: $cmd" if $debug;
!   if(defined($client_cmd_debug))
!   {
!     print_header();
!     print "<br><tt>client_cmd: <pre>$cmd</pre></tt><br>\n";
!   }
    return get_reply();
  }
  


_______________________________________________
Help-gnats mailing list
Help-gnats@gnu.org
http://mail.gnu.org/mailman/listinfo/help-gnats