projects
/
songbook.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added Norwegian Wood
[songbook.git]
/
web
/
webchord.cgi
diff --git
a/web/webchord.cgi
b/web/webchord.cgi
index
47c5255
..
15a3186
100755
(executable)
--- a/
web/webchord.cgi
+++ b/
web/webchord.cgi
@@
-27,7
+27,7
@@
my $debug = param ('debug');
my $infile = param ('chordpro');
unless (-f $infile) {
my $infile = param ('chordpro');
unless (-f $infile) {
- $infile = '/opt/songbook/
Songs
/' . $infile;
+ $infile = '/opt/songbook/
Andrew
/' . $infile;
unless (-f $infile) {
$infile = '/web/xmas/' . param ('chordpro');
unless (-f $infile) {
$infile = '/web/xmas/' . param ('chordpro');
@@
-75,7
+75,7
@@
sub musicFileExists ($) {
debug "ENTER musicFileExists ($song)";
my $title = fileparse ($song, qr/\.pro/);
debug "ENTER musicFileExists ($song)";
my $title = fileparse ($song, qr/\.pro/);
- my $musicfile = "/opt/
songbook/M
edia/$title.mp3";
+ my $musicfile = "/opt/
m
edia/$title.mp3";
if (-r $musicfile) {
debug "Exists!";
if (-r $musicfile) {
debug "Exists!";