1 files changed, 38 insertions, 0 deletions
diff --git a/kernel/xpp/XppConfig.pm b/kernel/xpp/XppConfig.pm
new file mode 100644
index 0000000..3c7f293
--- /dev/null
+++ b/kernel/xpp/XppConfig.pm
@@ -0,0 +1,38 @@
+package XppConfig;
+#
+# Written by Oron Peled <oron@actcom.co.il>
+# Copyright (C) 2008, Xorcom
+# This program is free software; you can redistribute and/or
+# modify it under the same terms as Perl itself.
+#
+# $Id$
+#
+use strict;
+
+my $conf_file = "/etc/xpp.conf";
+
+sub import {
+	my $pack = shift || die "Import without package?";
+	my $init_dir = shift || die "$pack::import -- missing init_dir parameter";
+	my $local_conf = "$init_dir/xpp.conf";
+	$conf_file = $local_conf if -r $local_conf;
+}
+
+sub read_config($) {
+	my $opts = shift || die;
+
+	open(F, $conf_file) || return ();
+	while(<F>) {
+		chomp;
+		s/#.*//;	# strip comments
+		next unless /\S/;
+		s/\s*$//;	# Trim trailing whitespace
+		my ($key, $value) = split(/\s+/, $_, 2);
+		$opts->{$key} = $value;
+	}
+	close F;
+	$opts->{'xppconf'} = $conf_file;
+	return %{$opts};
+}
+
+1;