+ 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();
+}