X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/48bcc93d61bce7bd22cb8b0b0231fdca1efbfc9c..5a4bc87c675dd76627a0d413707139f2e0530eea:/modules/Config/DevEdit.pm

diff --git a/modules/Config/DevEdit.pm b/modules/Config/DevEdit.pm
new file mode 100644
index 0000000..8adfd35
--- /dev/null
+++ b/modules/Config/DevEdit.pm
@@ -0,0 +1,70 @@
+package Config::DevEdit;
+
+#
+# Dev-Editor - Module Config::DevEdit
+#
+# Parse the configuration file
+#
+# Author:        Patrick Canterino <patshaping@gmx.net>
+# Last modified: 2004-01-16
+#
+
+use strict;
+
+use vars qw(@EXPORT);
+use Carp qw(croak);
+
+### Export ###
+
+use base qw(Exporter);
+
+@EXPORT = qw(read_config);
+
+# read_config()
+#
+# Parse the configuration file
+#
+# Params: Path to configuration file
+#
+# Return: Configuration (Hash Reference)
+
+sub read_config($)
+{
+ my $file = shift;
+ local *CF;
+
+ open(CF,"<$file") or croak("Open $file: $!");
+ read(CF, my $data, -s $file);
+ close(CF);
+
+ my @lines  = split(/\015\012|\012|\015/,$data);
+ my $config = {};
+
+ foreach my $line(@lines)
+ {
+  next if($line =~ /^\s*#/);
+  next if($line !~ /^.+=.+$/);
+
+  my ($key,$value) = split(/=/,$line,2);
+
+  # Remove whitespaces at the beginning and at the end
+
+  $key   =~ s/^\s*//g;
+  $key   =~ s/\s*$//g;
+  $value =~ s/^\s*//g;
+  $value =~ s/\s*$//g;
+
+  croak "Double defined value '$key' in configuration file '$file'" if($config->{$key});
+
+  $config->{$key} = $value;
+ }
+
+ return $config;
+}
+
+# it's true, baby ;-)
+
+1;
+
+#
+### End ###
\ No newline at end of file