Skip to content

Commit

Permalink
Fixed problem w/ regex, removed scaling
Browse files Browse the repository at this point in the history
[git-p4: depot-paths = "//src/ZenGraph/dev/": change = 738]
  • Loading branch information
zenspider committed Mar 20, 2001
1 parent 75d22b1 commit b21afce
Showing 1 changed file with 4 additions and 7 deletions.
11 changes: 4 additions & 7 deletions examples/mail.conf
@@ -1,5 +1,8 @@
# -*- perl -*- # -*- perl -*-


sub process_file {
}

sub process_line { sub process_line {


# parses email 'Date:' lines # parses email 'Date:' lines
Expand All @@ -17,16 +20,10 @@ sub process_line {
} }


# progress tag mail: parses <count>: <TAG> # progress tag mail: parses <count>: <TAG>
if (m/^\s*(\d+): (F IX|H ACK|T ODO|R EFACTOR|R ETIRE|D OC)/x) { if (m/^\s*(\d+):\s*(F IX|H ACK|T ODO|R EFACTOR|R ETIRE|D OC)/x) {
my $tag = $2; my $tag = $2;
my $count = $1; my $count = $1;


# scale the doc tag because there are so many.
if ($tag =~ m/D OC/x) {
$tag = 'DOC_/_5';
$count /= 5;
}

$data->{$date}{$tag} = $count; $data->{$date}{$tag} = $count;
} }
} }

0 comments on commit b21afce

Please sign in to comment.