Improve vcard decoding and import step

thomascube

2008-09-25 bb8781c6d756c76c65e3cdce4f53bf9cca2f9193

Improve vcard decoding and import step

 program/include/rcube_vcard.php

@@ -73,7 +73,7 @@
    $this->business = ($this->raw['X-ABShowAs'][0] == 'COMPANY') || (join('', (array)$this->raw['N'][0]) == '' && !empty($this->organization));
    
    foreach ((array)$this->raw['EMAIL'] as $i => $raw_email)
      $this->email[$i] = $raw_email[0];
      $this->email[$i] = is_array($raw_email) ? $raw_email[0] : $raw_email;
    
    // make the pref e-mail address the first entry in $this->email
    $pref_index = $this->get_type_index('EMAIL', 'pref');
@@ -217,7 +217,7 @@
    $vcard = preg_replace(array('/^item\d*\.X-AB.*$/m', '/^item\d*\./m', "/\n+/"), array('', '', "\n"), $vcard);

    // remove vcard 2.1 charset definitions
    $vcard = preg_replace('/;CHARSET=[^:]+/', '', $vcard);
    $vcard = preg_replace('/;CHARSET=[^:;]+/', '', $vcard);

    return $vcard;
  }
@@ -244,19 +244,26 @@
    $data = array();
    if (preg_match_all('/^([^\\:]*):(.+)$/m', $vcard, $regs, PREG_SET_ORDER)) {
      foreach($regs as $line) {
        // convert 2.1-style "EMAIL;internet;home:" to 3.0-style "EMAIL;TYPE=internet,home:"
        // convert 2.1-style "EMAIL;internet;home:" to 3.0-style "EMAIL;TYPE=internet;TYPE=home:"
        if(($data['VERSION'][0] == "2.1") && preg_match('/^([^;]+);([^:]+)/', $line[1], $regs2) && !preg_match('/^TYPE=/i', $regs2[2])) {
          $line[1] = $regs2[1] . ";TYPE=" . strtr($regs2[2], array(";" => ","));
          $line[1] = $regs2[1];
          foreach (explode(';', $regs2[2]) as $prop)
            $line[1] .= ';' . (strpos($prop, '=') ? $prop : 'TYPE='.$prop);
        }

        if (!preg_match('/^(BEGIN|END)$/', $line[1]) && preg_match_all('/([^\\;]+);?/', $line[1], $regs2)) {
          $entry = array(self::vcard_unquote($line[2]));

          foreach($regs2[1] as $attrid => $attr) {
            if ((list($key, $value) = explode('=', $attr)) && $value)
            if ((list($key, $value) = explode('=', $attr)) && $value) {
              if ($key == 'ENCODING')
                $entry[0] = self::decode_value($entry[0], $value);
              else
              $entry[strtolower($key)] = array_merge((array)$entry[strtolower($key)], (array)self::vcard_unquote($value, ','));
            elseif ($attrid > 0)
            }
            else if ($attrid > 0) {
              $entry[$key] = true;  # true means attr without =value
            }
          }

          $data[$regs2[1][0]][] = count($entry) > 1 ? $entry : $entry[0];
@@ -288,6 +295,28 @@
    }
    else {
      return strtr($s, array("\r" => '', '\\\\' => '\\', '\n' => "\n", '\,' => ',', '\;' => ';', '\:' => ':'));
    }
  }


  /**
   * Decode a given string with the encoding rule from ENCODING attributes
   *
   * @param string String to decode
   * @param string Encoding type (quoted-printable and base64 supported)
   * @return string Decoded 8bit value
   */
  private static function decode_value($value, $encoding)
  {
    switch (strtolower($encoding)) {
      case 'quoted-printable':
        return quoted_printable_decode($value);

      case 'base64':
        return base64_decode($value);

      default:
        return $value;
    }
  }

@@ -381,7 +410,7 @@
        )*\z/xs', substr($string, 0, 2048)))
      return 'UTF-8';

    return null;
    return 'ISO-8859-1'; # fallback to Latin-1
  }

}

 program/steps/addressbook/import.inc

@@ -124,6 +124,12 @@
    foreach ($vcards as $vcard) {
      $email = $vcard->email[0];
      
      // skip entries without an e-mail address
      if (empty($email)) {
        $IMPORT_STATS->nomail++;
        continue;
      }
      
      if (!$replace) {
        // compare e-mail address
        $existing = $CONTACTS->search('email', $email, false, false);
@@ -134,11 +140,6 @@
          $IMPORT_STATS->skipped++;
          continue;
        }
      }
      // skip entries without an e-mail address
      if (empty($email)) {
        $IMPORT_STATS->nomail++;
        continue;
      }
      
      $success = $CONTACTS->insert(array(