From d4b107f5035413bcf93f24a523a6f8b695ba6b92 Mon Sep 17 00:00:00 2001
From: Florian Pritz <bluewind@xinu.at>
Date: Fri, 4 Jan 2019 13:54:00 +0100
Subject: Add new scripts

Signed-off-by: Florian Pritz <bluewind@xinu.at>
---
 sort-images-size | 3 +++
 1 file changed, 3 insertions(+)
 create mode 100755 sort-images-size

(limited to 'sort-images-size')

diff --git a/sort-images-size b/sort-images-size
new file mode 100755
index 0000000..d6781ff
--- /dev/null
+++ b/sort-images-size
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+perl-rename -v 'BEGIN{use Image::ExifTool qw(ImageInfo); use Date::Parse; use Date::Format;}; $data = ImageInfo($_); $size_dir = "small"; $size_dir = "large" if $data->{ImageWidth} > 350 or $data->{ImageHeight} > 350; $date = time2str("%Y-%m-%d", str2time($data->{ModifyDate})); $_ = "$size_dir/$date/$_";' "$@"
-- 
cgit v1.2.3-24-g4f1b