From 44a321cb8a42d6c0ea2d96a1086a17f2134c89cc Mon Sep 17 00:00:00 2001
From: Ethan Galstad <egalstad@users.sourceforge.net>
Date: Thu, 28 Feb 2002 06:42:51 +0000
Subject: Initial revision

git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@2 f882894a-f735-0410-b71e-b25c423dba1c
---
 Helper.pm | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 Helper.pm

(limited to 'Helper.pm')

diff --git a/Helper.pm b/Helper.pm
new file mode 100644
index 00000000..198a6480
--- /dev/null
+++ b/Helper.pm
@@ -0,0 +1,44 @@
+package Helper;
+use strict;
+
+use Exporter();
+use vars qw($VERSION @ISA @EXPORT);
+$VERSION = 0.01;
+@ISA=qw(Exporter);
+@EXPORT=qw(&get_option);
+
+sub get_option ($$) {
+    my $file = 'Cache';
+    my $response;
+    my $var = shift;
+
+    require "$file.pm";
+    if(defined($Cache::{$var})){
+			$response=$Cache::{$var};
+			return $$response;
+		}
+
+		my $request = shift;
+		my $filename;
+		my $path;
+		foreach $path (@INC) {
+			$filename="$path/$file.pm";
+			last if (-e $filename);
+		}
+		print STDERR "Enter $request\n";
+		$response=<STDIN>;
+		chop($response);
+		open(CACHE,"<$filename") or die "Cannot open cache for reading";
+		undef $/;
+		my $cache = <CACHE>;
+		$/="\n";
+		close CACHE;
+		$cache =~ s/^(\@EXPORT\s*=\s*qw\(\s*[^\)]*)\)\s*;/$1 $var\)\;/msg;
+		$cache =~ s/^1;[\n\s]*\Z/\$$var=\"$response\"\;\n1\;\n/msg;
+		open(CACHE,">$filename") or die "Cannot open cache for writing";
+		print CACHE $cache;
+		close CACHE;
+		return $response;
+}
+
+1;
-- 
cgit v1.2.3-74-g34f1