about summary refs log tree commit diff
path: root/Etc
diff options
context:
space:
mode:
authorPeter Stephenson <pws@users.sourceforge.net>2003-06-20 10:46:48 +0000
committerPeter Stephenson <pws@users.sourceforge.net>2003-06-20 10:46:48 +0000
commit9457bd6c94a411fd6292550e3913f13a5978fdbb (patch)
treea6a5f784b7987fc469bc454461281d80ee4f61d7 /Etc
parent7b60aae9f314a2674d8512b3d85f83020148da73 (diff)
downloadzsh-9457bd6c94a411fd6292550e3913f13a5978fdbb.tar.gz
zsh-9457bd6c94a411fd6292550e3913f13a5978fdbb.tar.xz
zsh-9457bd6c94a411fd6292550e3913f13a5978fdbb.zip
18618: add Etc/changelog2html.pl
Diffstat (limited to 'Etc')
-rwxr-xr-xEtc/changelog2html.pl69
1 files changed, 69 insertions, 0 deletions
diff --git a/Etc/changelog2html.pl b/Etc/changelog2html.pl
new file mode 100755
index 000000000..ec7c29a6f
--- /dev/null
+++ b/Etc/changelog2html.pl
@@ -0,0 +1,69 @@
+#!/usr/bin/perl -w
+
+# This programme turns the ChangeLog into changelog.html for display
+# on the website.  That lives at http://zsh.sunsite.dk/Etc/changelog.html.
+
+my $out = "changelog.html";
+
+open CL, "ChangeLog" or die "No ChangeLog --- run in top level directory.\n";
+
+if (-f $out) {
+    die "Will not overwrite existing $out.  Delete by hand.\n";
+}
+
+my $version;
+my $changes = 0;
+
+while (<CL>) {
+    /^\d+/  and  $changes++;
+    if (/version\.mk.*version\s+(\d+(\.\d+)*(-\S+)?)/i) {
+	$version = $1;
+	$version =~ s/\.$//;
+	last;
+    }
+}
+
+if (defined $version) {
+    warn "Outputting changelog.html for version \"$version\".\n";
+    if ($changes) {
+	warn "WARNING: there are changes since this version.\n";
+    }
+} else {
+    $version = "X.X.X";
+    warn "WARNING: no version found.  Set by hand\n";
+}
+
+seek CL, 0, 0;
+
+open NEW, ">changelog.html";
+
+select NEW;
+
+print <<"EOH";
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/1999/REC-html401-19991224/loose.dtd">
+<html>
+<head>
+<title>ChangeLog for zsh version $version</title>
+</head>
+<body>
+<h1>ChangeLog for zsh version $version</h1>
+<pre>
+EOH
+
+while (<CL>) {
+    s/&/&amp;/g;
+    s/</&lt;/g;
+    s/>/&gt;/g;
+
+    print;
+}
+
+my $now = gmtime(time);
+
+print <<"EOH";
+</pre>
+<hr>
+Automatically generated from ChangeLog at $now
+</body>
+</html>
+EOH