[openssl-commits] [tools] master update

[Rich Salz]

The branch master has been updated
       via  bffcd7e08a130d77ad480e35a3eec485fe06d23b (commit)
      from  fcdb9f7458689f85815d9bd81d4b7c6dfdd5ced8 (commit)


- Log -----------------------------------------------------------------
commit bffcd7e08a130d77ad480e35a3eec485fe06d23b
Author: Rich Salz <rsalz at openssl.org>
Date:   Thu Mar 1 20:03:03 2018 -0500

    Enhance "trying to find" page generator
    
    Make links to each commit.
    Put summary counts at the end.

-----------------------------------------------------------------------

Summary of changes:
 license/add-lastchance | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

diff --git a/license/add-lastchance b/license/add-lastchance
index 8249952..963da01 100755
--- a/license/add-lastchance
+++ b/license/add-lastchance
@@ -16,7 +16,7 @@ print <<'EOF';
     <h1>Help find these people</h1>
 <p>
 We are looking for some people who have previously contributed to OpenSSL. See
-<a href="/blog/blog/2017/03/22/license/">https://www.openssl.org/blog/blog/2017/03/22/license/</a>
+<a href="https://www.openssl.org//blog/blog/2017/03/22/license/">https://www.openssl.org/blog/blog/2017/03/22/license/</a>
 for some background.
 </p>
 If you know where to find any of the following people, please email their
@@ -33,11 +33,14 @@ and date, and then the commit subject line.
 <p>
 Thank you!
 </p>
-<pre>
 EOF
 
+my $users = 0;
+my $commits = 0;
+my $base = 'https://github.com/openssl/openssl/commit';
 while ( <> ) {
     unless ( /([0-da-f]{8}) .*/ ) {
+	$users++ if /https:/;
 	s/.*uid.[0-9]+, //;
 	s/, \d, /, /;
 	s/"//g;
@@ -50,13 +53,18 @@ while ( <> ) {
 	} else {
 	    print;
 	}
+	print "<br/>\n";
 	next;
     }
+    $commits++;
     my $cid = $1;
+    chop;
     my $line = $_;
     $line =~ s/^\s*//;
+    $line =~ s/</</;
     if ( $cid eq 'd02b48c6' ) {
 	print "- +0/-0 ", $_;
+	print "<br/>\n";
 	next;
     }
     my $pattern = "$cid^..$cid";
@@ -72,11 +80,13 @@ while ( <> ) {
 	$dels += int($2);
     }
     close $F || die "Can't close git diff, $!\n";
-    print "$files +$adds -$dels $line";
+    print "    $files +$adds -$dels <a href='$base/$cid'>$line</a><br/>\n";
 }
-print <<'EOF';
+print <<EOF;
 
     </pre>
+    $users contributors, $commits commits
+    <p>
 
     <a href="/">Main page</a></p>
   </body>