Encode URLs for streaming of recordings if they start with "http".

1 files changed, 11 insertions, 0 deletions

diff --git a/vdradmind.pl b/vdradmind.pl
index 0be1ee2..4194345 100755
--- a/vdradmind.pl
+++ b/vdradmind.pl
@@ -5077,6 +5077,16 @@ sub timer_delete {
     return (headerForward(RedirectToReferer("$MyURL?aktion=timer_list")));
 }
 
+sub encode_rec_stream_url {
+    my ($data) = @_;
+
+    if (substr($data, 0, 4) == "http") {
+        $data =~ s/#/%23/g;
+    }
+
+    return $data;
+}
+
 sub rec_stream {
     my ($id) = $q->param('id');
     my ($i, $title, $newtitle);
@@ -5104,6 +5114,7 @@ sub rec_stream {
             # VFAT on
             $data = findVideoFiles($minute, $hour, $day, $month, encode_RecTitle($title, 1));
         }
+        $data = encode_rec_stream_url($data);
     }
     return (header("200", $CONFIG{REC_MIMETYPE}, $data));
 }