From e9d4062b9452e8eee2b7782e02bf895d9f371a49 Mon Sep 17 00:00:00 2001
From: Tomas Plesnik <plesnik@ics.muni.cz>
Date: Thu, 3 Jul 2014 18:01:54 +0200
Subject: [PATCH] skript pro update validacni hashe VALID_STRINGS
---
src/warden-server/sh/getConfHash.pl | 13 +++++++++++++
1 file changed, 13 insertions(+)
create mode 100755 src/warden-server/sh/getConfHash.pl
diff --git a/src/warden-server/sh/getConfHash.pl b/src/warden-server/sh/getConfHash.pl
new file mode 100755
index 0000000..06ff948
--- /dev/null
+++ b/src/warden-server/sh/getConfHash.pl
@@ -0,0 +1,13 @@
+my $hash;
+our %VALID_STRINGS;
+require $ARGV[0];
+
+while (my ($key, $value_ref) = each %VALID_STRINGS) {
+ $hash .= " \"$key\" => [\"$value_ref->[0]\"";
+ shift($value_ref);
+ foreach my $element (@$value_ref) {
+ $hash .= ", \"$element\"";
+ }
+ $hash .= "],\n";
+}
+print $hash;
--
GitLab