Changeset 27647 for gs2-extensions

Timestamp:

2013-06-18T10:37:02+12:00 (11 years ago)

Author:

jmt12

Message:

Add some more testing to ensure any local copy of a media file is the same size as the remote one (this was an issue in HDThriftFS when an incorrect CLASSPATH meant base91 encoding was only happening on one end of the connection)

File:

• gs2-extensions/video-and-audio/trunk/src/perllib/plugins/SimpleVideoPlugin.pm (modified) (1 diff)

gs2-extensions/video-and-audio/trunk/src/perllib/plugins/SimpleVideoPlugin.pm

@@ -210 +210 @@
     my $local_ivideo_path = &FileUtils::filenameConcatenate($process_dir, $filename . ".ts");
     &FileUtils::copyFiles($ivideo_path, $local_ivideo_path);
-    $ivideo_path = $local_ivideo_path;
-    print " - copied! [IOE:" . time() . "]\n";
+    my $remote_size = &FileUtils::fileSize($ivideo_path);
+    my $local_size = &FileUtils::fileSize($local_ivideo_path);
+    if ($remote_size != $local_size)
+    {
+      die('Error! File copied is not of same size as original: ' . $remote_size . 'b != ' . $local_size . "b\n");
+    }
+    elsif (&FileUtils::fileExists($local_ivideo_path))
+    {
+      $ivideo_path = $local_ivideo_path;
+      print ' - copied! [IOE:' . time() . "]\n";
+    }
+    else
+    {
+      die('Error! Failed to copy file: ' . $ivideo_path . ' => ' . $local_ivideo_path . ' [IOE:' . time() . "]\n");
+    }
   }