From e9dd15a93f6581acf7a77e7fc411d5dac6600418 Mon Sep 17 00:00:00 2001
From: Tomas Plesnik <plesnik@ics.muni.cz>
Date: Mon, 7 Jul 2014 13:50:28 +0200
Subject: [PATCH] zmena nazvu souvoru
---
src/warden-server/sh/perlCommon.pm | 73 ------------------------------
1 file changed, 73 deletions(-)
delete mode 100755 src/warden-server/sh/perlCommon.pm
diff --git a/src/warden-server/sh/perlCommon.pm b/src/warden-server/sh/perlCommon.pm
deleted file mode 100755
index 276afec..0000000
--- a/src/warden-server/sh/perlCommon.pm
+++ /dev/null
@@ -1,73 +0,0 @@
-# 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;
--
GitLab