bug fix when transfering fields with multiple values (e.g. checkboxes) to

[webpac] / all2xml.pl

diff --git a/all2xml.pl b/all2xml.pl
index 7cb8f52..c3388f1 100755 (executable)
--- a/all2xml.pl
+++ b/all2xml.pl
@@ -639,6 +639,10 @@ foreach my $database ($cfg->Sections) {
        my $lookup_file = $cfg -> val($database, 'lookup_newfile'); # optional
        if ($lookup_file) {
                #tie %lhash, 'GDBM_File', $lookup_file, &GDBM_NEWDB, 0644;
+               if (! -e $lookup_file) {
+                       open(LOOKUP, "> $lookup_file") || die "can't create $lookup_file': $!";
+                       close(LOOKUP);
+               }
                tie %lhash, 'TDB_File', $lookup_file, TDB_CLEAR_IF_FIRST, O_RDWR, 0644;
                print STDERR "creating lookup file '$lookup_file'\n";
                # delete memory cache for lookup file