From 03d827e2fbc409ef97829f25b8eeca5204f81a3c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Mon, 12 Jul 2021 13:24:49 +0200
Subject: Re-organize files

---
 etc/mkmv | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 etc/mkmv

(limited to 'etc/mkmv')

diff --git a/etc/mkmv b/etc/mkmv
new file mode 100755
index 0000000..0179bbc
--- /dev/null
+++ b/etc/mkmv
@@ -0,0 +1,23 @@
+#!/usr/bin/perl -w
+
+# mkmv -- move files to new directory
+
+use Getopt::Std;
+use File::Copy qw/mv/;
+
+getopts('t:', \%opt);
+&usage if not $opt{t};
+&usage if not @ARGV;
+
+mkdir "$opt{t}.tmp" or die "Could not create directory $opt{t}.tmp: $!\n";
+mv $_, "$opt{t}.tmp/$_" or warn "Could not move $_ to $opt{t}/$_: $!\n" for @ARGV;
+mv "$opt{t}.tmp", $opt{t} or warn "Could not move $opt{t}.tmp to $opt{t}: $!\n";
+
+sub usage { &HELP_MESSAGE; exit 1; }
+sub HELP_MESSAGE {
+	print STDERR <<OPT;
+usage: $0 -t target file [...]
+  -t	the target directory
+OPT
+}
+sub VERSION_MESSAGE {}
-- 
cgit v1.2.3