- /*
- * this happens in the folowing situations :
- * 1: unquoted personal name
- * 2: emailaddress without < and >
- * 3: unquoted personal name from compose that should be encoded.
- * if it's a personal name then an emailaddress should follow
- * the personal name may not have ',' inside it
- * If it's a emailaddress then the personal name is not set.
- * we should look for the delimiter ',' or a SPACE
- */
- /* check for emailaddress */
-
- /* Blah, this code sucks */
-
- /* we need an tokenizer !!!!!!!! */
-
- $i_space = strpos($address,' ',$pos);
- $i_del = strpos($address,',',$pos);
- if ($i_space || $i_del) {
- if ($i_del) { /* extract the stringpart before the delimiter */
- $address_part = substr($address,$pos,$i_del-$pos);
- } else { /* extract the stringpart started with pos */
- $address_part = substr($address,$pos);
- }
- if ($i = strpos($address_part,'@')) {
- /* an email address is following */
- if (($i+$pos) < $i_space) {
- $addr_start = $pos;
- /* multiple addresses are following */
- if ($i_space < $i_del && $i_del) {
- /* <space> is present */
- if ($i_space) {
- if ($i = strpos($address_part,'<')) {
- $name .= substr($address_part,0,$i);
- $pos = $i+$pos;
- } else {
- $addr = substr($address,$pos,$i_space-$pos);
- $pos = $i_space;
- }
- } else { /* no <space> $i_space === false */
- if ($i = strpos($address_part,'<')) {
- $name .= substr($address_part,0,$i);
- $pos = $i+$pos;
- } else {
- $addr = substr($address,$pos);
- $pos = $j;
- }
- }
- } else { /* <space> is available in the next address */
- /* OR no delimiter and <space> */
- if ($i_del) {
- /* check for < > addresses */
- if ($i = strpos($address_part,'<')) {
- $name .= substr($address_part,0,$i);
- $pos = $i+$pos;
- } else {
- $addr = substr($address,$pos,$i_del-$pos);
- $pos = $i_del;
- }
- /* no delimiter */
- } else if ($i_space) { /* can never happen ? */
- if ($i = strpos($address_part,'<')) {
- $name .= substr($address_part,0,$i);
- $pos = $i+$pos;
- } else {
- $addr = substr($address,$pos,$i_space-$pos);
- $pos = $i_space+1;
- }
- } else { /* can never happen */
- $addr = substr($address,$pos);
- $pos = $j;
- }
- }
- } else { /* <space> is located after the user@domain part */
- /* or no <space> present */
- if ($i_space) {
- if ($i = strpos($address_part,'<')) {
- $name .= substr($address_part,0,$i);
- $pos = $i+$pos;
- } else {
- $name .= substr($address,$pos,$i_space-$pos) . ' ';
- $addr_start = $i_space+1;
- $pos = $i_space+1;
- }
- } else { /* no <space> */
- $addr = substr($address,$pos,$i_del-$pos);
- $addr_start = $pos;
- if ($i_del) {
- $pos = $i_del;
- } else { /* can never happen. REMOVE */
- $pos = $j;
- }
- }
- }
- } else {
- /* email address without domain name, could be an alias */
- $addr_start = $pos;
- /* FIXME check for comments */
- $addr = $address_part;
- $pos = strlen($address_part) + $pos;
- }