function fputcsv($f, $list, $d=",", $q='"') {
$line = "";
foreach ($list as $field) {
if(ereg("[$d$q\n\r]", $field)) {
$field = $q.str_replace($q, $q.$q, $field).$q;
}
$line .= $field.$d;
}
$line = substr($line, 0, -1);
$line .= "\n";
return fputs($f, $line);
}