Index: file.inc
===================================================================
RCS file: /cvs/drupal/drupal/includes/file.inc,v
retrieving revision 1.123
diff -u -p -r1.123 file.inc
--- file.inc	14 Apr 2008 17:48:33 -0000	1.123
+++ file.inc	25 Apr 2008 15:45:02 -0000
@@ -787,7 +787,6 @@ function file_set_status(&$file, $status
 /**
  * Transfer file using http to client. Pipes a file through Drupal to the
  * client.
- *
  * @param $source File to transfer.
  * @param $headers An array of http headers to send along with file.
  */
@@ -804,10 +803,112 @@ function file_transfer($source, $headers
 
   $source = file_create_path($source);
 
-  // Transfer file in 1024 byte chunks to save memory usage.
   if ($fd = fopen($source, 'rb')) {
-    while (!feof($fd)) {
-      print fread($fd, 1024);
+    // Tell client that we accept byte ranges.
+    drupal_set_header('Accept-Ranges: bytes');
+    // Get file size.
+    $filesize = filesize($source);
+    $end_file = $filesize - 1;
+    $valid = FALSE;
+    $satisfiable = FALSE;
+    // Is this a partial request?
+    if (isset($_SERVER['HTTP_RANGE'])) {
+      preg_match('/^bytes=(\S+)$/i', $_SERVER['HTTP_RANGE'], $ranges);
+      $ranges = explode(',', array_pop($ranges));
+      // Check for valid ranges.
+      foreach ($ranges as $key => $range) {
+        if (substr_count($range, '-') == 1) {
+          $valid = TRUE;
+          if (substr($range, 0, 1) == '-') {
+            $satisfiable = TRUE;
+            $ranges[$key] = array('from' => max(0, $end_file + $range), 'to' => $end_file);
+          }
+          else {
+            $range = explode('-', $range);
+            if ($range[0] <= $end_file) {
+              if ($range[1] === '') {
+                $satisfiable = TRUE;
+                $ranges[$key] = array('from' => $range[0], 'to' => $end_file);
+              }
+              elseif ($range[0] <= $range[1]) {
+                $satisfiable = TRUE;
+                $ranges[$key] = array('from' => $range[0], 'to' => min($range[1], $end_file));
+              }
+            }
+          }
+        }
+        if (!$valid || !$satisfiable) {
+          unset($ranges[$key]);
+        }
+      }
+      // Check for overlapping ranges.
+      $cranges = $ranges;
+      foreach ($ranges as $key => $range) {
+        foreach ($cranges as $ckey => $crange) {
+          // Don't compare a range to itself.
+          if ($key == $ckey) {
+            unset($cranges[$ckey]);
+          }
+          else {
+            $overlap = FALSE;
+            // The beginning of this range is in another range.
+            if ($range['from'] >= $crange['from'] && $range['from'] <= $crange['to'] + 1) {
+              $ranges[$key]['from'] = $range['from'] = $crange['from'];
+              $overlap = TRUE;
+            }
+            // The end of this range is in another range.
+            if ($range['to'] <= $crange['to'] && $range['to'] >= $crange['from'] - 1) {
+              $ranges[$key]['to'] = $range['to'] = $crange['to'];
+              $overlap = TRUE;
+            }
+            if ($overlap) {
+              unset($ranges[$ckey], $cranges[$ckey]);
+            }
+          }
+        }
+      }
+    }
+    if ($satisfiable) {
+      drupal_set_header('HTTP/1.1 206 Partial Content');
+      if (count($ranges) == 1) {
+        $range = array_shift($ranges);
+        drupal_set_header(sprintf('Content-Range: bytes %d-%d/%d', $range['from'], $range['to'], $filesize));
+        drupal_set_header("Content-Length: " . $range['to'] + 1 - $range['from']);
+        file_transfer_range($fd, $range['to'] + 1 - $range['from'], $range['from']);
+      }
+      else {
+        $type = '';
+        foreach ($headers as $header) {
+          $header = trim($header);
+          if (stripos($header, 'Content-Type') === 0) {
+            $type = "$header\n";
+            break;
+          }
+        }
+        $boundary = md5(rand());
+        drupal_set_header("Content-Type: multipart/byteranges; boundary=$boundary");
+        foreach ($ranges as $range) {
+          print "--$boundary\n";
+          print $type;
+          print sprintf('Content-Range: bytes %d-%d/%d', $range['from'], $range['to'], $filesize) . "\n";
+          file_transfer_range($fd, $range['to'] + 1 - $range['from'], $range['from']);
+          print "\n";
+        }
+        print "--$boundary--";
+      }
+    }
+    else {
+      if ($valid && !isset($_SERVER['If-Range'])) {
+        drupal_set_header('HTTP/1.1 416 Requested Range Not Satisfiable');
+        drupal_set_header('Content-Range: *');
+      }
+      else {
+        $length = $filesize;
+      }
+    }
+    if (isset($length)) {
+      drupal_set_header("Content-Length: $length");
+      file_transfer_range($fd, $length);
     }
     fclose($fd);
   }
@@ -818,6 +919,22 @@ function file_transfer($source, $headers
 }
 
 /**
+ * Transfer a byte-range in 1024 byte chunks to save memory usage.
+ * @param $fd A file system pointer resource
+ * @param $length Number of bytes to transfer
+ * @param $byte Starting byte for this range
+ */
+function file_transfer_range($fd, $length, $byte = 0) {
+  // Move file pointer to starting byte.
+  fseek($fd, $byte);
+  while ($length > 0) {
+    $read = min(1024, $length);
+    print fread($fd, $read);
+    $length -= $read;
+  }
+}
+
+/**
  * Call modules that implement hook_file_download() to find out if a file is
  * accessible and what headers it should be transferred with. If a module
  * returns -1 drupal_access_denied() will be returned. If one or more modules