1 files changed, 23 insertions, 0 deletions
diff --git a/tools/ArtChecker/summary.pl b/tools/ArtChecker/summary.pl
new file mode 100644
index 0000000..83ed95d
--- /dev/null
+++ b/tools/ArtChecker/summary.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+
+$filename=@ARGV[0];
+
+############################################################################## 
+#	MAIN
+##############################################################################
+
+#open file
+open(FILE_HANDLE,$filename) || die "Could not open file ERROR: $filename!";
+
+
+#while not EOF and read in string
+while (<FILE_HANDLE>)
+{
+	$string = $_;
+	chop($string);
+	#print $string;	
+	@todo =("artchecker ",$string," sum");
+	system (@todo) # == 0 or  die "Failed to Execute Artchecker Command !\n";
+}
+
+close(FILE_HANDLE);
+\ No newline at end of file