projects / songbook.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 2fb943c)
Fixed up New Kid and added linking of title
authorAndrew DeFaria <Andrew@DeFaria.com>
Mon, 27 Nov 2017 17:13:32 +0000 (09:13 -0800)
committerAndrew DeFaria <Andrew@DeFaria.com>
Mon, 27 Nov 2017 17:13:32 +0000 (09:13 -0800)
Andrew/New Kid in Town.pro patch | blob | history
web/pro [new symlink] patch | blob
web/webchord.cgi patch | blob | history

diff --git a/Andrew/New Kid in Town.pro b/Andrew/New Kid in Town.pro
index 0b38353..60bcbb1 100644 (file)
--- a/Andrew/New Kid in Town.pro
+++ b/Andrew/New Kid in Town.pro
@@ -50,7 +50,16 @@ They will [C]never forget you 'til [D]somebody new comes a[G]long [B7]
 [B7]just another new kid in to[E]wn [G#m7][A] [Am7]
 
 [E]oo oo Ev'rybody's talkin' 'bout the n[C#m]ew kid in town
-[E]Ev'rybody's talkin' 'bout the n[C#m]ew kid in town
+[E]Ev'rybody's walking like the n[C#m]ew kid in town
+
 There's a [E]new kid in town, (I don't want to hear it)
 There's a [C#m]new kid in town, (I don't want to hear it)
+There's a [E]new kid in town, (Ah ooooo)
+There's a [C#m]new kid in town,
+There's a [E]new kid in town, (Everybody's talking)
+There's a [C#m]new kid in town (People started walking)
+There's a [E]new kid in town, (hmmmm)
+There's a [C#m]new kid in town, (hmmmm)
+
+[E]
 {musicpath:/sdcard/SongBook/Media/New Kid in Town.mp3}
diff --git a/web/pro b/web/pro
new file mode 120000 (symlink)
index 0000000..95a612a
--- /dev/null
+++ b/web/pro
@@ -0,0 +1 @@
+../Andrew
\ No newline at end of file
diff --git a/web/webchord.cgi b/web/webchord.cgi
index c9bb1e3..20140cc 100755 (executable)
--- a/web/webchord.cgi
+++ b/web/webchord.cgi
@@ -19,7 +19,7 @@ use CGI qw(:standard);
 use CGI::Carp qw (fatalsToBrowser);
 use File::Basename;
 
-my ($chopro, $output, $i);
+my ($chopro, $i);
 
 my $documentRoot = "/web";
 my $debug        = param ('debug');
@@ -83,7 +83,7 @@ sub musicFileExists ($) {
   } else {
     debug "Could not find $musicfile";
 
-    return undef;
+    return;
   } # if
 } # musicFileExists
 
@@ -144,8 +144,8 @@ sub chopro2html ($$) {
   if (($chopro =~ /^{subtitle:(.*)}/mi) || ($chopro =~ /^{st:(.*)}/mi)) {
     $artist = $1;
   } # if
-  
-  print <<END;
+
+  print <<"END";
 <html>
 <head>
 <title>$title</title>
@@ -164,12 +164,13 @@ END
         updateMusicpath $chopro, $song;
       } # if
 
+      my $titleLink = "<a href=\"/songbook/pro/$title.pro\">$title</a>";
       print << "END";
 <table id="heading">
   <tbody>
     <tr>
       <td align="left"><a href="/songbook"><img src="/Icons/Home.png" alt="Home"></a></td>
-      <td><div id="title">$title</div>
+      <td><div id="title">$titleLink</div>
           <div id="artist"><a href="/songbook/displayartist.php?artist=$artist">$artist</a></div></td>
       <td align="right" width="300px">
         <audio id="song" controls autoplay style="padding:0; margin:0">
@@ -242,8 +243,7 @@ END
       } else {
         print "<table cellpadding=0 cellspacing=0>";
         print "<tr>\n";
-        my($i);
-        for($i = 0; $i < @chords; $i++) {
+        for(my $i = 0; $i < @chords; $i++) {
           print "<td class=\"$cClasses[$mode]\">$chords[$i]</td>";
         }
         print "</tr>\n<tr>\n";
Andrew DeFaria's Songbook