Changeset 19440 for S60/trunk/S60Tools

Timestamp:

02/06/07 14:03:51 (2 years ago)

Author:

brmorris

Message:

brmorris <bradley.morrison@nokia.com>, rs'd by zalan

DESC: merge from s60/branches/3.1m to s60/trunk of r19429, r19430, r19431, r19432 and r19433

Files:

• S60/trunk/S60Tools/prepare-ChangeLog.bat (modified) (5 diffs)

S60/trunk/S60Tools/prepare-ChangeLog.bat

@@ -73 +73 @@
 use Cwd;
 use Win32;
+use Term::ReadKey;
 
 sub canonicalizePath($);
@@ -257 +258 @@
 
 # Get some parameters for the ChangeLog we are about to write.
-my $date = sprintf "%d-%02d-%02d",
-  1900 + (localtime $^T)[5], # year
-  1 + (localtime $^T)[4], # month
-  (localtime $^T)[3]; # day within month
+#my $date = sprintf "%d-%02d-%02d",
+#  1900 + (localtime $^T)[5], # year
+#  1 + (localtime $^T)[4], # month
+#  (localtime $^T)[3]; # day within month
 my $name = $ENV{USERNAME}
   || $ENV{REAL_NAME}
   || Win32::LoginName()
   || "set REAL_NAME environment variable";
-my $email_address = $ENV{CHANGE_LOG_EMAIL_ADDRESS}
-  || $ENV{EMAIL_ADDRESS}
-  || "set EMAIL_ADDRESS environment variable";
+#my $email_address = $ENV{CHANGE_LOG_EMAIL_ADDRESS}
+#  || $ENV{EMAIL_ADDRESS}
+#  || "set EMAIL_ADDRESS environment variable";
 
 # Remove trailing parenthesized notes from user name (bit of hack).
@@ -317 +318 @@
 foreach my $prefix (sort keys %files)
   {
-    print STDERR "  Editing the ${prefix}ChangeLog file.\n";
+    my $reviewer = prompt_for("reviewer on $prefix");
+    print STDERR "Editing the ${prefix}ChangeLog file.\n\n";
     open OLD_CHANGE_LOG, "${prefix}ChangeLog" or die "Could not open ${prefix}ChangeLog file: $!.\n";
     # It's less efficient to read the whole thing into memory than it would be
@@ -324 +326 @@
     close OLD_CHANGE_LOG;
     open CHANGE_LOG, "> ${prefix}ChangeLog" or die "Could not write ${prefix}ChangeLog\n.";
-    print CHANGE_LOG "$date  $name  <$email_address>\n\n";
-    print CHANGE_LOG "        Reviewed by NOBODY (OO" . "PS!).\n";
-    print CHANGE_LOG "        DESC: \n";
-    print CHANGE_LOG "        http://bugs.webkit.org/show_bug.cgi?id=\n\n";
+    print CHANGE_LOG "$name, Reviewed by $reviewer";
+    print CHANGE_LOG " DESC: \n";
+    print CHANGE_LOG " http://bugs.webkit.org/show_bug.cgi?id=\n\n";
     if ($prefix =~ m/WebCore/ || cwd() =~ m/WebCore/) {
         print CHANGE_LOG "        WARNING: NO TEST CASES ADDED OR CHANGED\n\n" unless $changedLayoutTests;
@@ -364 +365 @@
 # Done.
 exit;
+
+sub prompt_for {
+   my ($msg) = @_;
+   print $msg, ": ";
+   ReadMode('normal');
+   my $result = ReadLine(0);
+#   print "\n";
+   return $result  
+}
 
 sub canonicalizePath($)