enlightenment/enlightenment
enlightenment
/
enlightenment
10
9
Fork 12
Code Issues 24 Pull Requests 2 Projects Releases Wiki Activity

shorne latest TODO parser, I _really_ will get this on the site soon, but I may get the wedding out of the way first ;) 

SVN revision: 15559
This commit is contained in:
handyande 2005-06-28 12:48:48 +00:00 committed by handyande
parent 7cf61eb993
commit de368c38d1
1 changed files with 16 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
data/other/parse_todo.pl
View File

@ -1,6 +1,6 @@
#!/usr/bin/perl
my $TODO;
use strict;
my $new_item = 0;
my $in_body = 0;
@ -34,21 +34,22 @@ while(<>) {
}
} elsif (/^\* /) {
if ($in_body ) {
$_ =~ s/^\* //;
push(@{$todo_hash{$title}}, $item);
$item = {};
$item->{'asignee'} = "Unknown";
$item->{'task'} = $_ ;
if(/<(.*)>/) {
my $email = $1;
if ($email =~ /(.*) AT /) {
if ($item->{'task'}) {
my $task = $item->{'task'};
$task =~ s/^\* //;
if ($task =~ s/<(.*)>//) {
$item->{'asignee_email'} = $1;
$1 =~ /(.*) AT /;
$item->{'asignee'} = $1;
$item->{'asignee_email'} = $email;
} else {
$item->{'asignee'} = $email;
$item->{'asignee_email'} = 0;
$item->{'asignee'} = 'None';
}
$item->{'task'} = $task;
push(@{$todo_hash{$title}}, $item);
}
$item = {};
$item->{'task'} = $_ ;
}
} else {
if ($in_body) {
@ -56,9 +57,6 @@ while(<>) {
$title = $_;
} else {
$item->{'task'} = $item->{'task'} . $_ ;
if(/<(.*)>/) {
$item->{'asignee'} = $1;
}
}
}
}
@ -66,11 +64,11 @@ while(<>) {
}
for $title ( keys %todo_hash ) {
my $count = 1;
print "<h2>" . $title . "</h2>\n";
print "<table>\n";
print " <tr><td>Asignee</td><td>Task</td></tr>\n";
print " <tr><td>#</td><td>Asignee</td><td>Task</td></tr>\n";
for $item ( @{$todo_hash{$title}} ) {
my $asignee_email = $item->{'asignee_email'};
my $asignee = $item->{'asignee'};
@ -83,7 +81,8 @@ for $title ( keys %todo_hash ) {
} else {
$mailto = $asignee;
}
print " <tr><td>$mailto</td><td>$task</td></tr>\n";
print " <tr><td>$count</td><td>$mailto</td><td>$task</td></tr>\n";
$count++;
}
print "</table>\n";
}