[ic] Possible bug with exporting userdb and saved carts in userdb.db!

[Joachim Leidinger]

Hi list,

I noticed some misbehavior with my userdb.asc (using Interchange
V4.8.3). In my catalog, user or customer can store the cart! If I use

[tag export userdb userdb.asc][/tag]

and userdb.db contains no carts, I get all accounts (currently more than
1280 users). But if there are a lot of carts in userdb.db and after
using the above codes, I get only 700 or less users suddenly. Sometimes
only 100 users! A little check with a perl script like

------------ snipp ----------
#!/usr/bin/perl
use strict;
use Fcntl;
use DB_File;
my $userdbfile =
"/www/leidinger.local/ic48/catalogs/owkpa/products/userdb.db";
my $outdatei =
"/www/leidinger.local/ic48/catalogs/owkpa/products/expuserdb.asc";
my $out =
"code\tpassword\tName\tAnsprechpartner\tStrasse\tPLZ\tOrt\tR_Strasse\tR_PLZ\tR_Ort\tacl\ttime\ts_nickname\tname\taddress\tcity\tstate\tzip\tcountry\tphone_day\tmv_shipmode\tb_nickname\tb_name\tb_address\tb_city\tb_state\tb_zip\tb_country\tb_phone\tmv_credit_card_type\tmv_credit_card_exp_month\tmv_credit_card_exp_year\tmv_credit_card_info\tp_nickname\temail\tfax\tphone_night\tfax_order\taddress_book\taccounts\tpreferences\tcarts\towner\tfile_acl\tdb_acl\torder_numbers\temail_copy\tPreisgruppe\tNewsletter\tmod_time\n";
sub LOCK_SH { 1 }
sub LOCK_EX { 2 }
sub LOCK_NB { 4 }
sub LOCK_UN { 8 }
my($fd, $db_obj, %ICDB_HASH, $KEY1, $count, $ecount);
$db_obj = tie(%ICDB_HASH, 'DB_File', $userdbfile, O_CREAT|O_RDWR, 0644)
  or die "dbcreat $userdbfile $!";
$fd = $db_obj->fd;
open(DB_FH, "+<&=$fd") or die "fdopen $!";
unless (flock (DB_FH, LOCK_SH | LOCK_NB)) {
  unless (flock (DB_FH, LOCK_SH)) { die "flock: $!" }
}
flock(DB_FH, LOCK_UN);
unless (flock (DB_FH, LOCK_EX | LOCK_NB)) {
  unless (flock (DB_FH, LOCK_EX)) { die "flock: $!" }
}

my $line = '';
foreach $KEY1 (keys %ICDB_HASH){
  $count += 1;
  $line = $ICDB_HASH{$KEY1};
  $line =~ s/\n/\r/g;
  my
($code,$password,$Name,$Ansprechpartner,$Strasse,$PLZ,$Ort,$R_Strasse,$R_PLZ,$R_Ort,$acl,$time,$s_nickname,$name,$address,$city,$state,$zip,$country,$phone_day,$mv_shipmode,$b_nickname,$b_name,$b_address,$b_city,$b_state,$b_zip,$b_country,$b_phone,$mv_credit_card_type,$mv_credit_card_exp_month,$mv_credit_card_exp_year,$mv_credit_card_info,$p_nickname,$email,$fax,$phone_night,$fax_order,$address_book,$accounts,$preferences,$carts,$owner,$file_acl,$db_acl,$order_numbers,$email_copy,$Preisgruppe,$Newsletter,$mod_time)
= split(/\t/,$line);
  if ($code !~ /code/){
    $out .=
"$code\t$password\t$Name\t$Ansprechpartner\t$Strasse\t$PLZ\t$Ort\t$R_Strasse\t$R_PLZ\t$R_Ort\t$acl\t$time\t$s_nickname\t$name\t$address\t$city\t$state\t$zip\t$country\t$phone_day\t$mv_shipmode\t$b_nickname\t$b_name\t$b_address\t$b_city\t$b_state\t$b_zip\t$b_country\t$b_phone\t$mv_credit_card_type\t$mv_credit_card_exp_month\t$mv_credit_card_exp_year\t$mv_credit_card_info\t$p_nickname\t$email\t$fax\t$phone_night\t$fax_order\t\t$accounts\t$preferences\t$carts\t$owner\t$file_acl\t$db_acl\t$order_numbers\t$email_copy\t$Preisgruppe\t$Newsletter\t$mod_time\n";
  }
    $ecount += 1;
}
undef $db_obj;
untie %ICDB_HASH;
close(DB_FH);

open (DATEI, ">$outdatei") or die "kann $outdatei nicht zum Lesen
öffnen: $!";
print DATEI $out;
close(DATEI);

print "\n gezählt wurde $ecount Personen\n";
------------ snipp ----------

I get all my users and don't lost any user! What happen? What is the
cause? Maybe the export function of IC are missing something like
s/\n/\r/g for the field carts? Or why is my perl script working and the
export function of IC not?

Any tips, helps and suggestions are very welcome!

Thanks!

Joachim Leidinger

-- 
Hans-Joachim Leidinger | Dipl.-Phys.Ing. Entwicklung eCommerce
[Hans-Joachim.leidinger@bpanet.de]
Black Point Arts Internet Solutions GmbH
http://www.bpanet.de