diff --git a/src/warden-server/sh/getConfHash.pl b/src/warden-server/sh/getConfHash.pl new file mode 100755 index 0000000000000000000000000000000000000000..06ff948526d604e41e9f1d901c1ff94483d1e839 --- /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;