X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=songbook%2Fweb%2Fsongbook.php;h=54d5fea92878848f4e9bd8de482809a77540c8e5;hb=64cb05c445d480f29d266e70db6eb1d021d34456;hp=d43dedd65a681f896ce51446890810ec2a80d850;hpb=92a2b6e641d8149d6c0fb79b671cdacb4c8686b5;p=clearscm.git

diff --git a/songbook/web/songbook.php b/songbook/web/songbook.php
deleted file mode 120000
index d43dedd..0000000
--- a/songbook/web/songbook.php
+++ /dev/null
@@ -1 +0,0 @@
-/web/php/songbook/songbook.php
\ No newline at end of file
diff --git a/songbook/web/songbook.php b/songbook/web/songbook.php
new file mode 100644
index 0000000..54d5fea
--- /dev/null
+++ b/songbook/web/songbook.php
@@ -0,0 +1,97 @@
+<?php
+$baseDir = getcwd();
+$songs   = glob (dirname($baseDir) . "/Songs/*.pro");
+
+function getSongs () {
+  global $songs;
+
+  $path = "/opt/clearscm/songbook/Songs";
+
+  // Why didn't the previous one execute correctly?
+  $songs = glob("$path/*.pro");
+} // getSongs
+
+function songsDropdown () {
+  global $songs;
+
+  print "<form method=\"get\" action=\"webchord.cgi\" name=\"song\">";
+  print "Songs:&nbsp;&nbsp;";
+  print "<select name=\"chordpro\">";
+
+  sort ($songs);
+  foreach ($songs as $song) {
+    $title = basename ($song, ".pro");
+    $artist = getArtist ($song);
+
+    print "<option value=\"$title.pro\">$title</option>";
+
+    if ($artist != "") {
+      $title .= "&nbsp;($artist)";
+    } // if
+  } // foreach
+
+  print "<input type=\"submit\" value=\"Go\">";
+  print "</select>";
+  print "</form>";
+} // songsDropdown
+
+function artistsDropdown () {
+  global $songs;
+
+  $artists = getArtists ($songs);
+
+  print "<form method=\"get\" action=\"displayartist.php\" name=\"artist\">";
+  print "Artists:&nbsp;&nbsp;";
+  print "<select name=\"artist\">";
+
+  sort ($artists);
+  foreach ($artists as $artist) {
+    print "<option>$artist</option>";
+  } // foreach
+
+  print "<input type=\"submit\" value=\"Go\">";
+  print "</select>";
+  print "</form>";
+} // artistsDropdown
+
+function getArtist ($song) {
+  $lyrics = file_get_contents ($song);
+
+  if (preg_match ("/\{(st|subtitle):(.*)\}/", $lyrics, $matches)) {
+    return trim ($matches[2]);
+  } else {
+    return "";
+  } // if
+} // getArtist
+
+function getArtists ($songs) {
+  $artists = array();
+
+  foreach ($songs as $song) {
+    $artist = getArtist ($song);
+
+    if ($artist != '') {
+      $artists[$artist] = 1;
+    } // if
+  } // foreach
+
+  return array_keys ($artists);
+} // getArtists
+
+function formatTable ($songs) {
+  echo "<ol>";
+
+  foreach ($songs as $song) {
+    $artist = getArtist ($song);
+
+    $title = basename ($song, ".pro");
+
+    echo "<li><a href=\"webchord.cgi?chordpro=$song\">$title</a>";
+
+    if ($artist != "") {
+    echo "&nbsp;($artist)";
+    } // if
+  } // foreach
+
+  echo "</ol>";
+} // formatTable