From 2ebc4c90a17f94ae083baaacd54cbdf6fe58cddc Mon Sep 17 00:00:00 2001 From: Andrew DeFaria Date: Mon, 27 Nov 2017 09:13:32 -0800 Subject: [PATCH 1/1] Fixed up New Kid and added linking of title --- Andrew/New Kid in Town.pro | 11 ++++++++++- web/pro | 1 + web/webchord.cgi | 14 +++++++------- 3 files changed, 18 insertions(+), 8 deletions(-) create mode 120000 web/pro diff --git a/Andrew/New Kid in Town.pro b/Andrew/New Kid in Town.pro index 0b38353..60bcbb1 100644 --- 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 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 --- 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 < $title @@ -164,12 +164,13 @@ END updateMusicpath $chopro, $song; } # if + my $titleLink = "$title"; print << "END"; -
Home
$title
+
$titleLink