1 files changed, 63 insertions, 0 deletions
diff --git a/lib/exilog_config.pm b/lib/exilog_config.pm
new file mode 100644
index 0000000..47d5483
--- /dev/null
+++ b/lib/exilog_config.pm
@@ -0,0 +1,63 @@
+#!/usr/bin/perl
+#
+# This file is part of the exilog suite.
+# 
+# http://duncanthrax.net/exilog/
+#
+# (c) Tom Kistner 2004
+#
+# See LICENSE for licensing information.
+#
+
+package exilog_config;
+use strict;
+
+use FindBin;
+use FindBin qw($RealBin);
+use lib "$RealBin/";
+
+
+BEGIN {
+  use Exporter;
+  use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+
+  # set the version for version checking
+  $VERSION     = 0.1;
+  @ISA         = qw(Exporter);
+  @EXPORT      = qw(
+                      $config
+                      $version
+                   );
+
+  %EXPORT_TAGS = ();
+
+  # your exported package globals go here,
+  # as well as any optionally exported functions
+  @EXPORT_OK   = qw();
+  
+  use vars qw( $config $version );
+}
+
+$version = "0.5";
+
+$config = _read_ph("$RealBin/exilog.conf");
+
+unless ($config) {
+  print STDERR "($$) [exilog_config] Can't parse configuration file.\n";
+  exit(0);
+};
+
+sub _read_ph {
+  my $file = shift;
+  
+  open(PH,"< $file");
+  undef $/;
+  my $tmp = (eval(<PH>));
+  print STDERR "Eval Error: ".$@."\n" if ($@);
+  $/ = "\n";
+  close(PH);
+  
+  return $tmp;
+};
+
+1;