From 06e8ec7c90f4e6ea848a759edf47d5e823cf34b8 Mon Sep 17 00:00:00 2001
From: Ian C <ianc@noddybox.co.uk>
Date: Mon, 19 Nov 2018 12:08:36 +0000
Subject: Added script to purge VMS type filenames.

---
 purge.sh | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100755 purge.sh

(limited to 'purge.sh')

diff --git a/purge.sh b/purge.sh
new file mode 100755
index 0000000..3601bb5
--- /dev/null
+++ b/purge.sh
@@ -0,0 +1,39 @@
+#!/bin/bash
+
+declare -A min
+declare -A max
+
+for i in $* ; do
+    #fn=$(echo $i | awk -F \; '{print $1;}')
+    #vers=$(echo $i | awk -F \; '{print $2;}')
+
+    fn=$(echo $i | cut -d \; -f 1)
+    vers=$(echo $i | cut -d \; -f 2)
+
+    if [ -z "${min[$fn]}" ] ; then
+    	min[$fn]=$vers
+    elif [ "${min[$fn]}" -gt $vers ] ; then
+    	min[$fn]=$vers
+    fi
+
+    if [ -z "${max[$fn]}" ] ; then
+    	max[$fn]=$vers
+    elif [ "${max[$fn]}" -lt $vers ] ; then
+    	max[$fn]=$vers
+    fi
+done
+
+for i in "${!max[@]}" ; do
+    ma=${max[$i]}
+    mi=${min[$i]}
+
+    if [ $ma -gt $mi ] ; then
+    	f=$mi
+	while [ $f -lt $ma ] ; do
+	    rm ${i}\;$f
+	    f=$(expr $f + 1)
+	done
+    fi
+
+    mv ${i}\;$ma $i
+done
-- 
cgit v1.2.3