release: 0.0.65

[lilypond.git] / bin / make_website

diff --git a/bin/make_website b/bin/make_website
index 9586d88598c60a9d1e036585586df165bf27fcee..ce8c6bb7936407ecbfd0538dd462eaa2b95a30f3 100755 (executable)
--- a/bin/make_website
+++ b/bin/make_website
@@ -34,13 +34,13 @@ sub set_html_footer
     my $username=$pw[6];
 
     $footstr = 
-       "\n<hr>
-<font size=-2>
+       "\n<hr>Please take me <a href=index.html>back to the index</a>\n<hr>
+<font size=-1>
 This page was generated by <code>make_website</code> from lilypond-$lily_version by
 <p>
 <address><br>$username <a href=mailto:$MAILADRESS>&lt<!bla>$MAILADRESS</a>&gt</address>
 <p>" . `date` . "
-<p></font>\n";
+<p></font>";
 }
     
 
@@ -57,26 +57,6 @@ sub my_system
     }
 }
 
-sub set_hrefs
-{
-    while (<HTMLIN>) {
-       s#href=([A-Za-z.]+)#href=$base/$1#g;
-       print HTMLOUT $_;
-    }
-}
-
-sub all_refs
-{
-    print "resetting refs.\n";
-
-    foreach $a (<*.html>)
-    {
-       rename $a, "$a~";
-       open HTMLIN, "$a~";
-       open HTMLOUT, ">$a";
-       set_hrefs;
-    }
-}
 
 local $base="lilypond/";
 local @examples=("wohltemperirt" ,"standchen", "scsii-menuetto", "rhythm", "collisions");
@@ -175,9 +155,10 @@ sub edit_html
 
        }
        close H;
-       
-       
-       $file =~ s/$sep/$footstr$sep/g ;
+
+       my $subst =  $footstr;
+       $subst .= $back if (! $a =~ /index.html/ );
+       $file =~ s/$sep/$subst$sep/g ;
        
        open H, ">$a";
        print H $mw_id;