# 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
# 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
#=====================================================================
#
# routines to retrieve / manipulate win ini style files
- # add key=value to $id
- my ($key, $value) = split /=/, $_, 2;
+ my $file = $self->{FILE};
+ my $fh = IO::File->new($file, "w") || $::form->error("$file : $!");