From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 10 Oct 2020 11:23:35 +0000 (+0200)
Subject: rename queue files to new format imei/date/time/
X-Git-Url: http://git.rot13.org/?p=zc;a=commitdiff_plain;h=589960608296a75185bcada720dfcb675a3afe41;ds=sidebyside

rename queue files to new format imei/date/time/
---

diff --git a/rename.pl b/rename.pl
new file mode 100755
index 0000000..363bfd5
--- /dev/null
+++ b/rename.pl
@@ -0,0 +1,37 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+use POSIX qw(strftime);
+use Time::Local;
+use autodie;
+
+open(my $find, '-|', 'find queue -type f');
+while(<$find>) {
+	chomp;
+	my @p = split(/\//, $_);
+	my $old = $_;
+	my $new = $old;
+	if ( $#p == 2 ) {
+		if ( $p[2] =~ m/^(\d+)\.(.+)/ ) {
+			my ( $t, $rest ) = ( $1, $2 );
+			my ($date,$time) = split(/ /,strftime("%Y-%m-%d %H:%M:%S", localtime($t)));
+
+			my $new = "$p[0]/$p[1]/$date";
+			mkdir $new if ! -d $new;
+			$new .= "/$time.$t.$rest";
+			rename($old, $new);
+		} else {
+			warn "OK $old\n";
+		}
+	} elsif ( $#p == 3 && $p[3] =~ m/(\d\d):(\d\d):(\d\d)\.((up|down|sent).+)/ ) {
+			my ( $h, $m, $s, $rest ) = ( $1, $2, $3, $4 );
+			my ( $yyyy, $mm, $dd ) = split(/-/,$p[2]);
+			my $t = timelocal( $s, $m, $h, $dd, $mm, $yyyy );
+			my $new = "$p[0]/$p[1]/$p[2]/$h:$m:$s.$t.$rest";
+			rename($old, $new);
+	} else {
+		warn "OK $old\n";
+	}
+
+}