epic-s6ts

[kivitendo-erp.git] / SL / Inifile.pm

diff --git a/SL/Inifile.pm b/SL/Inifile.pm
index 7a2ffa7..30afc66 100644 (file)
--- a/SL/Inifile.pm
+++ b/SL/Inifile.pm
@@ -18,14 +18,15 @@
 # it under the terms of the GNU General Public License as published by
 # the Free Software Foundation; either version 2 of the License, or
 # (at your option) any later version.
-# 
+#
 # This program is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU General Public License for more details.
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+# MA 02110-1335, USA.
 #=====================================================================
 #
 # routines to retrieve / manipulate win ini style files
@@ -35,62 +36,76 @@
 
 package Inifile;
 
+use IO::File;
+
+use strict;
 
 sub new {
-  $main::lxdebug->enter_sub();
+  $main::lxdebug->enter_sub(2);
+
+  my ($type, $file, %options) = @_;
 
-  my ($type, $file, $level) = @_;
-  
   my $id = "";
-  my $skip;
-  
-  $type = ref($self) || $self;
-  
-  open FH, "$file" or Form->error("$file : $!");
-
-  while (<FH>) {
-    next if /^(#|;|\s)/;
-    last if /^\./;
-
-    chop;
-
-    # strip comments
-    s/\s*(#|;).*//g;
-    
-    # remove any trailing whitespace
-    s/^\s*(.*?)\s*$/$1/;
-
-    if (/^\[/) {
-      s/(\[|\])//g;
-
-      $id = $_;
-
-      # if there is a level skip
-      if ($skip = ($id !~ /^$level/)) {
-       next;
-      }
-
-      push @{$self->{ORDER}}, $_;
-      
-      next;
-      
+  my $cur;
+
+  my $self = { FILE => $file, ORDER => [] };
+
+  open my $fh, "$file" or $::form->error("$file : $!");
+
+  for (<$fh>) {
+    chomp;
+
+    if (!$options{verbatim}) {
+      # strip comments
+      # remove any trailing whitespace
+      s/\s*#.*$//;
+      s/^\s*//;
+    } else {
+      next if m/^\s*#/;
     }
 
-    if (!$skip) {
+    next unless $_;
+
+    if (m/^\[(.*)\]$/) {
+      $id = $1;
+      $cur = $self->{$1} ||= { };
+
+      push @{ $self->{ORDER} }, $1;
+    } else {
       # add key=value to $id
-      my ($key, $value) = split /=/, $_, 2;
-      
-      $self->{$id}{$key} = $value;
+      my ($key, $value) = split m/=/, $_, 2;
+
+      $cur->{$key} = $value;
     }
 
   }
-  close FH;
-  
-  $main::lxdebug->leave_sub();
+  close $fh;
 
-  bless $self, $type;
+  $main::lxdebug->leave_sub(2);
+
+  return bless $self, $type;
 }
 
+sub write {
+  $main::lxdebug->enter_sub();
 
-1;
+  my ($self) = @_;
+
+  my $file = $self->{FILE};
+  my $fh   = IO::File->new($file, "w") || $::form->error("$file : $!");
+
+  foreach my $section_name (sort keys %{ $self }) {
+    next if $section_name =~ m/^[A-Z]+$/;
+
+    my $section = $self->{$section_name};
+    print $fh "[${section_name}]\n";
+    map { print $fh "${_}=$section->{$_}\n" } sort keys %{ $section };
+    print $fh "\n";
+  }
+
+  $fh->close();
+
+  $main::lxdebug->leave_sub();
+}
 
+1;