Ticket #2660: patch

handler.pl

@@ -7 +7 @@
 # @author    $Author: xris $
 #
 
+##
+# Create the small .asx file based upon the information that we have for
+# this particular piece of media.  .ASX files are pretty simplistic and are
+# truly made for this purpose.
+#
+# The benefit is that the client has the ability to view/play the downloaded
+# content as it is being downloaded, rather than waiting until the completion
+# of the entire download.
+#
+# While it was geared towards Windows, it was discovered that Linux clients
+# understand .asx files and can act upon them in the same way.
+##
+sub generate_asx
+{
+   my ($title, $subtitle, $filename) = @_;
+   my ($file) = "";
+
+   $file = "<ASX version = \"3.0\">
+<TITLE>$title</TITLE>
+    <ENTRY>
+    <TITLE>$title - $subtitle</TITLE>
+    <AUTHOR>MythTV - MythWeb</AUTHOR>
+    <COPYRIGHT>GPL</COPYRIGHT>
+        <REF HREF = 
+\"http://" . $ENV{'HTTP_HOST'} . "/mythweb/" . $filename . "\" />
+    </ENTRY>
+</ASX>\n";
+   return ($file)
+}
+
+#
+# Here we simply send the small asx file to the client and exit quietly.
+#
+sub send_asx
+{
+   my ($title, $subtitle, $filename) = @_;
+   my ($file) = &generate_asx($title, $subtitle, $filename);
+   print header(-type                => 'text/html',
+                -Content_length      => length($file),
+                -Content_disposition => " attachment; filename=\"$title.asx\"",
+                );
+   print $file;
+   exit;
+}
+
+
+
 # Necessary constants for sysopen
     use Fcntl;
 
@@ -45 +92 @@
         exit;
     }
 
+&send_asx($title, $subtitle, $filename);
+
+#-#-#-##-#-#-##-#-#-##-#-#-##-#-#-##-#-#-##-#-#-##-#-#-##-#-#-##-#-#-#
+#-#-#-##   We don't utilize any of the code past this point.  ##-#-#-#
+#-#-#-##-#-#-##-#-#-##-#-#-##-#-#-##-#-#-##-#-#-##-#-#-##-#-#-##-#-#-#
+
 # File size
     my $size = -s $filename;