add rename-by-libmagic

1 files changed, 23 insertions, 0 deletions

diff --git a/scripts/media/rename-by-libmagic b/scripts/media/rename-by-libmagic
new file mode 100755
index 00000000..fe94d50d
--- /dev/null
+++ b/scripts/media/rename-by-libmagic
@@ -0,0 +1,23 @@
+#!/usr/bin/perl -w
+
+# add/fix file extensions based on MIME type as detected by libmagic
+
+use File::LibMagic;
+use MIME::Types;
+$magic = File::LibMagic->new;
+$types = MIME::Types->new;
+
+for (@ARGV) {
+    open my $fh, "<$_";
+    eval {
+	$desc = $magic->info_from_handle($fh)->{mime_type};
+	@exts = $types->type($desc)->extensions;
+
+	$ext = shift @exts;
+	$ext eq "jpeg" and $ext = "jpg";
+
+	$src = $_;
+	s/\.[^.]+$//;
+	-e "$_.$ext" or rename $src, "$_.$ext";
+    };
+}