Thanks for cvs2cl.pl

From: Chris Jackson <cjackson@ghsinc.com>
Date: Fri Dec 14 2001 - 16:44:27 GMT

Ahhh - cvs2cl.pl was just what we needed - Thanks!
I've attached a diff of a tweak we added to allow for regex's that
exclude lines (--notregex 'regex' or -N 'regex'), like how -R 'regex'
exclusively includes matching lines.
Please do what you want with the patch - no credits needed.

Chris Jackson
GHS Data Management

156a157,159
> # Maybe only show log messages NOT matching a certain regular expression.
> my $Not_Regexp_Gate = "";
>
824c827,829
< unless ($Regexp_Gate && ($wholething !~ /$Regexp_Gate/oi)) {

---
>             unless (($Regexp_Gate && ($wholething !~ /$Regexp_Gate/oi)) || 
>                     ($Not_Regexp_Gate && ($wholething =~ /$Not_Regexp_Gate/oi))
>                     ) { 
829c834,836
<             unless ($Regexp_Gate && ($wholething !~ /$Regexp_Gate/o)) { 
---
>             unless (($Regexp_Gate && ($wholething !~ /$Regexp_Gate/o)) ||
>                      ($Not_Regexp_Gate && ($wholething =~ /$Not_Regexp_Gate/oi))
>                     ) { 
1552a1560,1563
>     elsif ($arg =~ /^-N$|^--notregexp$/) {
>       my $narg = shift (@ARGV) || die "$arg needs argument.\n";
>       $Not_Regexp_Gate = $narg;
>     }
1740a1752
>   -N REGEXP, --notregexp REGEXP Exclude entries that match REGEXP
Received on Thu May 23 08:33:07 2002

This archive was generated by hypermail 2.1.8 : Wed Jan 21 2004 - 16:25:33 GMT