From 3608321c558da618ea122742d2dcc512f8216e66 Mon Sep 17 00:00:00 2001
From: NathanJRollins <11779167+NathanJRollins@users.noreply.github.com>
Date: Tue, 6 Jul 2021 21:04:14 -0600
Subject: [PATCH 1/4] Add dynamic station titles fetching

---
 jsrl-get.pl | 12 +++++++++++-
 run.bat     |  3 +++
 2 files changed, 14 insertions(+), 1 deletion(-)
 create mode 100644 run.bat

diff --git a/jsrl-get.pl b/jsrl-get.pl
index 0f0f723..2983fc9 100755
--- a/jsrl-get.pl
+++ b/jsrl-get.pl
@@ -26,7 +26,17 @@
 # Songs configuration
 my $songs_dir = "songs/";
 my $jsrl_url = "https://jetsetradio.live/radio/stations/";
-my @stations = ("classic", "future", "ggs", "poisonjam", "noisetanks", "loveshockers", "rapid99", "immortals", "doomriders", "goldenrhinos", "bumps", "summer", "christmas", "halloween", "ultraremixes", "kingforanotherday", "memoriesoftokyoto", "ollieking", "toejamandearl", "crazytaxi", "hover", "butterflies", "revolution", "endofdays", "lofi", "elaquent");
+
+# Fetch station titles
+my @stations = ();
+my $jsrl_url_homepage = "https://jetsetradio.live/";
+my $homepage = $lwp->get($jsrl_url_homepage);
+die "Error getting the homepage for '$jsrl_url_homepage'" if $homepage->is_error;
+for my $line_homepage (split /^/, $homepage->content) {
+  if ($line_homepage =~ /<script src="radio\/stations\/([^"]*)\/~list.js"><\/script>/) {
+    push @stations, $1;
+  }
+}
 
 if ($opts->{s}) {
   for my $station (@stations) {
diff --git a/run.bat b/run.bat
new file mode 100644
index 0000000..71f2b0a
--- /dev/null
+++ b/run.bat
@@ -0,0 +1,3 @@
+@REM STATIONS ETC. SET WITHIN THE SCRIPT FILE.
+perl jsrl-get.pl -s
+pause
\ No newline at end of file

From 57d3ff7935047069f13535451f71856dfa177fde Mon Sep 17 00:00:00 2001
From: NathanJRollins <11779167+NathanJRollins@users.noreply.github.com>
Date: Thu, 8 Jul 2021 09:56:40 -0600
Subject: [PATCH 2/4] Fix erroneous track fetch attempts

Fixes issue where the script attempts to fetch nonexistent tracks (which you also mentioned in PR #4) by adjusting the regex to not match additional (incorrect) elements on the page.  Notably "_tracks" and "[STATION_TITLE]", so it will not attempt to fetch these strings as .mp3 tracks.
---
 jsrl-get.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/jsrl-get.pl b/jsrl-get.pl
index 2983fc9..fe5c658 100755
--- a/jsrl-get.pl
+++ b/jsrl-get.pl
@@ -44,7 +44,7 @@
     die "Error getting the list for '$jsrl_url$station/~list.js'" if $list->is_error;
 
     for my $line (split /^/, $list->content) {
-      if ($line =~ /"([^"]*)"/) {
+      if ($line =~ /] = "([^"]*)"/) {
         my $filename = $1.".mp3";
         my $url = $jsrl_url.$station."/".$filename;
         my $path = $songs_dir.$station."/";

From fac04ef7e99051cc77ae86da8674caa9ebb90b42 Mon Sep 17 00:00:00 2001
From: NathanJRollins <11779167+NathanJRollins@users.noreply.github.com>
Date: Thu, 8 Jul 2021 09:58:01 -0600
Subject: [PATCH 3/4] Add proper URL encoding

Previously had issues with certain track names. As you suspected in your comment on PR #4, it was indeed an encoding issue (:

Fixes the issue where track names which contain #, which is not sanitized because it's technically valid within URLs in some cases, as the prefix for a fragment identifier, like when you link someone to an anchored section of a long Wikipedia article - which... just isn't what we want here at all.
---
 jsrl-get.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/jsrl-get.pl b/jsrl-get.pl
index fe5c658..af45060 100755
--- a/jsrl-get.pl
+++ b/jsrl-get.pl
@@ -46,7 +46,7 @@
     for my $line (split /^/, $list->content) {
       if ($line =~ /] = "([^"]*)"/) {
         my $filename = $1.".mp3";
-        my $url = $jsrl_url.$station."/".$filename;
+        my $url = $jsrl_url.$station."/".URI::Escape::uri_escape_utf8($filename);
         my $path = $songs_dir.$station."/";
 
         download($url, $path, $filename);
@@ -81,7 +81,7 @@
   while (my ($channel_id, $videoarr) = each %tv) {
     foreach my $videofn (@$videoarr) {
       my $filename = $videofn.".mp4";
-      my $url = $jsrl_tv_url."ch".$channel_id."/".$filename;
+      my $url = $jsrl_tv_url."ch".$channel_id."/".URI::Escape::uri_escape_utf8($filename);
 
       download($url, $videos_dir."ch$channel_id/", $filename);
     }

From 9a9e70c42473b961c79ede755b6fdfeadf9d8d7c Mon Sep 17 00:00:00 2001
From: NathanJRollins <11779167+NathanJRollins@users.noreply.github.com>
Date: Thu, 8 Jul 2021 12:37:31 -0600
Subject: [PATCH 4/4] Remove mistakenly included .bat file

...oops.
---
 run.bat | 3 ---
 1 file changed, 3 deletions(-)
 delete mode 100644 run.bat

diff --git a/run.bat b/run.bat
deleted file mode 100644
index 71f2b0a..0000000
--- a/run.bat
+++ /dev/null
@@ -1,3 +0,0 @@
-@REM STATIONS ETC. SET WITHIN THE SCRIPT FILE.
-perl jsrl-get.pl -s
-pause
\ No newline at end of file