From ed9ac7c472f724d76e07661f9c2e3084240786a7 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Fri, 28 Apr 2017 14:32:31 +0200
Subject: support name suffixes

---
 lib/Kratos/DFADriver.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'lib/Kratos')

diff --git a/lib/Kratos/DFADriver.pm b/lib/Kratos/DFADriver.pm
index b59dec1..ea37956 100644
--- a/lib/Kratos/DFADriver.pm
+++ b/lib/Kratos/DFADriver.pm
@@ -1078,7 +1078,13 @@ sub archive_files {
 		)
 	);
 
-	$tar->write("../data/$self->{lp}{timestamp}_$self->{class_name}.tar");
+	my $filename = "../data/$self->{lp}{timestamp}_$self->{class_name}";
+	if ($self->{filename_suffix}) {
+		$filename .= '_' . $self->{filename_suffix};
+	}
+	$filename .= '.tar';
+
+	$tar->write($filename);
 
 	return $self;
 }
-- 
cgit v1.2.3