httpd-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Ben Laurie <...@hyperreal.com>
Subject cvs commit: CVSROOT log_accum.pl
Date Sat, 24 Aug 1996 11:30:45 GMT
ben         96/08/24 04:30:45

  Modified:    .         log_accum.pl
  Log:
  More debug.
  
  Revision  Changes    Path
  1.22      +4 -2      CVSROOT/log_accum.pl
  
  Index: log_accum.pl
  ===================================================================
  RCS file: /export/home/cvs/CVSROOT/log_accum.pl,v
  retrieving revision 1.21
  retrieving revision 1.22
  diff -C3 -r1.21 -r1.22
  *** log_accum.pl	1996/08/24 11:21:24	1.21
  --- log_accum.pl	1996/08/24 11:30:43	1.22
  ***************
  *** 1,6 ****
    #!/usr/bin/perl
    #
  ! # $Id: log_accum.pl,v 1.21 1996/08/24 11:21:24 ben Exp $
    #
    # Perl filter to handle the log messages from the checkin of files in
    # a directory.  This script will group the lists of files by log
  --- 1,6 ----
    #!/usr/bin/perl
    #
  ! # $Id: log_accum.pl,v 1.22 1996/08/24 11:30:43 ben Exp $
    #
    # Perl filter to handle the log messages from the checkin of files in
    # a directory.  This script will group the lists of files by log
  ***************
  *** 223,233 ****
    print STDERR "Rev: $rev, $1, $2,  $prev, $prev_rev\n";
    $xxx=`pwd`;
    print STDERR "Dir: $xxx\n";
  ! 	open(DIFF, "-|") || exec 'cvs', '-Qn', 'diff', '-C3', "-r$prev_rev", $file;
    	while (<DIFF>) {
    		$diff .= $_;
    	}
    	close(DIFF);
    	$diff .= "\n\n";
    #print STDERR "Diff:\n $diff\n";
    
  --- 223,235 ----
    print STDERR "Rev: $rev, $1, $2,  $prev, $prev_rev\n";
    $xxx=`pwd`;
    print STDERR "Dir: $xxx\n";
  ! print STDERR `ls -al`;
  ! 	open(DIFF, "-|") || exec 'cvs', '-Qn', 'diff', '-C3', "-r$prev_rev", "-r$rev", $file;
    	while (<DIFF>) {
    		$diff .= $_;
    	}
    	close(DIFF);
  + print STDERR `ls -al`;
    	$diff .= "\n\n";
    #print STDERR "Diff:\n $diff\n";
    
  
  
  

Mime
View raw message