Weitere Abfragen umformatiert.
[kivitendo-erp.git] / SL / Inifile.pm
1 #=====================================================================
2 # LX-Office ERP
3 # Copyright (C) 2004
4 # Based on SQL-Ledger Version 2.1.9
5 # Web http://www.lx-office.org
6 #
7 #=====================================================================
8 # SQL-Ledger Accounting
9 # Copyright (C) 2001
10 #
11 #  Author: Dieter Simader
12 #   Email: dsimader@sql-ledger.org
13 #     Web: http://www.sql-ledger.org
14 #
15 #  Contributors:
16 #
17 # This program is free software; you can redistribute it and/or modify
18 # it under the terms of the GNU General Public License as published by
19 # the Free Software Foundation; either version 2 of the License, or
20 # (at your option) any later version.
21 #
22 # This program is distributed in the hope that it will be useful,
23 # but WITHOUT ANY WARRANTY; without even the implied warranty of
24 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
25 # GNU General Public License for more details.
26 # You should have received a copy of the GNU General Public License
27 # along with this program; if not, write to the Free Software
28 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
29 #=====================================================================
30 #
31 # routines to retrieve / manipulate win ini style files
32 # ORDER is used to keep the elements in the order they appear in .ini
33 #
34 #=====================================================================
35
36 package Inifile;
37
38 sub new {
39   $main::lxdebug->enter_sub();
40
41   my ($type, $file, $level) = @_;
42
43   my $id = "";
44   my $skip;
45
46   $type = ref($self) || $self;
47
48   open FH, "$file" or Form->error("$file : $!");
49
50   while (<FH>) {
51     next if /^(#|;|\s)/;
52     last if /^\./;
53
54     chop;
55
56     # strip comments
57     s/\s*(#|;).*//g;
58
59     # remove any trailing whitespace
60     s/^\s*(.*?)\s*$/$1/;
61
62     if (/^\[/) {
63       s/(\[|\])//g;
64
65       $id = $_;
66
67       # if there is a level skip
68       if ($skip = ($id !~ /^$level/)) {
69         next;
70       }
71
72       push @{ $self->{ORDER} }, $_;
73
74       next;
75
76     }
77
78     if (!$skip) {
79
80       # add key=value to $id
81       my ($key, $value) = split /=/, $_, 2;
82
83       $self->{$id}{$key} = $value;
84     }
85
86   }
87   close FH;
88
89   $main::lxdebug->leave_sub();
90
91   bless $self, $type;
92 }
93
94 1;
95