proper name and "email"

Use the user's Real Name for the name, and $user@$reviewboard_server
as "email".

1 files changed, 4 insertions, 4 deletions

diff --git a/rb-patch b/rb-patch
index 80091c3..eeaa800 100755
--- a/rb-patch
+++ b/rb-patch
@@ -47,8 +47,8 @@ die "$0: Failed to get reviewboard page $diff_page_url\n" unless defined $conten
 my @page = split(/\n/, $content);
 $content =~ m{<h1 id="summary" class="editable">([^<]*)</h1>};
 my $summary = $1;
-$content =~ m{<a id="submitter" href="[^"]*">([^<]*)</a>};
-my $name = $1;
+$content =~ m{<a id="submitter" href="/users/([^/]*)/">([^<]*)</a>};
+my ($user_name, $full_name) = ($1, $2);
 $content =~ m{<span id="branch" class="editable">([^<]*)</span>};
 my $branch = $1;
 $content =~ m{var gRevision = '(\d+)';};
@@ -63,7 +63,7 @@ die "$0: Failed to get raw diff $diff_url".($response->status_live)."\n"
 my $raw_diff = $response->content;
 my $date = $response->header('Date');
 
-my $checksum = sha1_hex("${review_num}::${diff_num}::${name}::{$date}");
+my $checksum = sha1_hex("${review_num}::${diff_num}::${user_name}::${date}");
 #my @head = head($diff_page_url);
 ##my $date = $head[2];
 #my $date = join '>|<', @head;
@@ -77,7 +77,7 @@ $raw_diff =~ s{\n\+\+\+ }{$&b/}g;
 
 print 
 "From $checksum $date
-From: $name <$name\@$reviewboard_server>
+From: $full_name <$user_name\@$reviewboard_server>
 Date: $date
 Subject: [PATCH] $summary