Changeset 19455 for S60/trunk/S60Tools

Timestamp:

02/06/07 19:19:06 (2 years ago)

Author:

brmorris

Message:

brmorris, reviewed by sasha

DESC: small update to s60tools\prepare-changelog as r19440 accidentally bumped the Perl version :/

• prepare-ChangeLog.bat:

Location:

S60/trunk/S60Tools

Files:

• ChangeLog (modified) (1 diff)
• prepare-ChangeLog.bat (modified) (4 diffs)

S60/trunk/S60Tools/ChangeLog

@@ +1 @@
+brmorris, reviewed by sasha
+ DESC: small update to prepare-changelog as r19440 accidently bumped the Perl version
+
+        * prepare-ChangeLog.bat:
+
 2006-11-28  brmorris  <bradley.morrison@nokia.com>
 

S60/trunk/S60Tools/prepare-ChangeLog.bat

@@ -73 +73 @@
 use Cwd;
 use Win32;
-use Term::ReadKey;
 
 sub canonicalizePath($);
@@ -257 +256 @@
   }
 
-# 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 $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";
-
 # Remove trailing parenthesized notes from user name (bit of hack).
 $name =~ s/\(.*?\)\s*$//g;
@@ -318 +308 @@
 foreach my $prefix (sort keys %files)
   {
-    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";
@@ -326 +315 @@
     close OLD_CHANGE_LOG;
     open CHANGE_LOG, "> ${prefix}ChangeLog" or die "Could not write ${prefix}ChangeLog\n.";
-    print CHANGE_LOG "$name, Reviewed by $reviewer";
+    print CHANGE_LOG "$name, reviewed by <reviewer>\n";
     print CHANGE_LOG " DESC: \n";
     print CHANGE_LOG " http://bugs.webkit.org/show_bug.cgi?id=\n\n";