From: fred <fred>
Date: Wed, 12 Feb 1997 23:10:15 +0000 (+0000)
Subject: lilypond-0.0.31
X-Git-Tag: release/1.5.59~6340
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a5c810c73c20077058b59a99bb0cc55209f7409e;p=lilypond.git

lilypond-0.0.31
---

diff --git a/Documentation/make_website b/Documentation/make_website
new file mode 100755
index 0000000000..d241527ff1
--- /dev/null
+++ b/Documentation/make_website
@@ -0,0 +1,33 @@
+#!/usr/bin/perl -w
+sub
+	set_hrefs
+{
+    while (<HTMLIN>) {
+	s#href=([A-Za-z.]+)#href=$base/$1#g;
+	print HTMLOUT $_;
+    }
+}
+
+local $base="lilypond/";
+local @examples=("wohltemperirt");
+
+system  'make html';
+
+print "resetting refs.\n";
+
+foreach $a (<*.html>)
+{
+    rename $a, "$a~";
+    open HTMLIN, "$a~";
+    open HTMLOUT, ">$a";
+    set_hrefs;
+}
+
+foreach $a (@examples) {
+    $texfile="test";
+    system "cd ..; lilypond input/$a; tex $texfile; dvips $texfile;";    
+    system "mv ../$texfile.ps $a.ps";
+    system "gs -q -sDEVICE=ppmraw -sOutputFile=- -r200 -dNOPAUSE  $a.ps -c quit |pnmscale 0.5| ppmtogif > $a.gif"
+}
+
+system "tar cfz website.tgz *.html *.gif *.png *.ps "