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

shorne whaddya on? :) 

SVN revision: 15567
This commit is contained in:
handyande 2005-06-29 13:22:04 +00:00 committed by handyande
parent 031ee35a63
commit 63fb8f4a12
1 changed files with 26 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
data/other/parse_todo.pl
View File

@ -17,13 +17,36 @@ my %todo_hash;
my $title;
my $item = {};
# use globals
sub push_item {
if ($item->{'task'}) {
my $task = $item->{'task'};
$task =~ s/^\* //;
if ($task =~ s/<(.*)>//) {
$item->{'asignee_email'} = $1;
$1 =~ /(.*) AT /;
$item->{'asignee'} = $1;
} else {
$item->{'asignee_email'} = 0;
$item->{'asignee'} = 'None';
}
$item->{'task'} = $task;
push(@{$todo_hash{$title}}, $item);
}
}
while(<>) {
chomp;
if(/\[\[\[/) {
$item->{'task'} = 0;
$in_body = 1;
} elsif (/\]\]\]/) {
$in_body = 0;
if ($in_body) {
push_item;
$item = {};
$in_body = 0;
}
} elsif (/^---.*---$/) {
if ($in_body) {
if($is_title) {
@ -34,20 +57,7 @@ while(<>) {
}
} elsif (/^\* /) {
if ($in_body ) {
if ($item->{'task'}) {
my $task = $item->{'task'};
$task =~ s/^\* //;
if ($task =~ s/<(.*)>//) {
$item->{'asignee_email'} = $1;
$1 =~ /(.*) AT /;
$item->{'asignee'} = $1;
} else {
$item->{'asignee_email'} = 0;
$item->{'asignee'} = 'None';
}
$item->{'task'} = $task;
push(@{$todo_hash{$title}}, $item);
}
push_item;
$item = {};
$item->{'task'} = $_ ;
}
@ -77,7 +87,7 @@ for $title ( keys %todo_hash ) {
my $mailto;
if ($asignee_email) {
$mailto = "<a href='mailto:$asignee_email'>$asignee</a>"
$mailto = "<a href='mailto://$asignee_email'>$asignee</a>"
} else {
$mailto = $asignee;
}