zmena nazvu souvoru

src/warden-server/sh/perlCommon.pm

-# perlCommon.pm
-#
-# Copyright (C) 2011-2014 Cesnet z.s.p.o
-#
-# Use of this source is governed by a BSD-style license, see LICENSE file.
-
-package perlCommon;
-
-use warnings;
-use strict;
-
-################################################################################
-#                               VARIABLES
-################################################################################
-our $VERSION = "2.2";
-
-################################################################################
-#                               FUNCTIONS
-################################################################################
-sub getConfHash {
-  my $arg = shift;
-  my $hash;
-  our %VALID_STRINGS;
-  require $arg;
-  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;
-}
-
-sub getConfArrayPre {
-  my $arg = shift;
-  my $array;
-  our @SQL_PRECONDITION;
-  require $arg;
-  foreach my $element (@SQL_PRECONDITION) {
-    $array .= "'$element', ";
-  }
-  print $array;
-}
-
-sub getConfArrayPost {
-  my $arg = shift;
-  my $array;
-  our @SQL_POSTCONDITION;
-  require $arg;
-  foreach my $element (@SQL_POSTCONDITION) {
-    $array .= "'$element', ";
-  }
-  print $array;
-}
-
-sub getConfArrayQueries {
-  my $arg = shift;
-  my $array;
-  our @SQL_QUERIES;
-  require $arg;
-  foreach my $hash_ref (@SQL_QUERIES) {
-    $array .= "{";
-    while (my ($key, $value_ref) = each $hash_ref) {
-      $array .= "$key => \"$value_ref\", ";
-    }
-    $array .= "},\n";
-  }
-  print $array;
-}
-
-1;