wrote a new changelog update script

git-svn-id: https://hudson.dev.java.net/svn/hudson/trunk/hudson/main@3893 71c3de6d-444a-0410-be80-ed276b4c234a

release.sh

@@ -23,5 +23,5 @@ perl -p -i.bak -e "s|https://.+hudson\.jar|$jarUrl|" $WWW/hudson.jnlp
 cp $WWW/hudson.jnlp $WWW/$id.jnlp
 
 # update changelog.html
-perl -n -i.bak -e "print unless /=END=.+/" $WWW/changelog.html
-perl -n -i.bak -e 'print; print "<a name=v$id><h3>What'\''s new in 1.$id</h3></a>\n<ul class=image>\n  <li class=>\n</ul>\n=END=-->\n" if /=BEGIN=/' $WWW/changelog.html
+ruby update.changelog.rb $id < $WWW/changelog.html > $WWW/changelog.new
+mv $WWW/changelog.new $WWW/changelog.html

update.changelog.rb

+#!/bin/ruby
+# Updates changelog.html
+#   Usage: update.changelog.rb <nextVer> < changelog.html > output.html
+id=ARGV.shift
+
+ARGF.each do |line|
+  if /=BEGIN=/ =~ line
+    puts line
+    puts "<a name=v#{id}><h3>What's new in 1.#{id}</h3></a>"
+    puts "<ul class=image>"
+    puts "  <li class=>"
+    puts "</ul>"
+    puts "</div><!--=END=-->"
+
+    next
+  end
+  if /=END=/ =~ line
+    next
+  end
+  puts line
+end
\ No newline at end of file