- fix bug in r2929 commit (#1486107)

alecpl

2009-09-09 b2ee72695e8c6cb1ce10d8c013caa95e8a5d7e6e

 program/lib/imap.inc

@@ -301,8 +301,8 @@
}

function iil_ParseResult($string) {
   $a = explode(' ', $string);
   if (count($a) > 2) {
   $a = explode(' ', trim($string));
   if (count($a) >= 2) {
      if (strcasecmp($a[1], 'OK') == 0) {
         return 0;
      } else if (strcasecmp($a[1], 'NO') == 0) {
@@ -311,7 +311,7 @@
         return -2;
      } else if (strcasecmp($a[1], 'BYE') == 0) {
         return -3;
          }
      }
   }
   return -4;
}
@@ -620,7 +620,7 @@
   }

   stream_set_timeout($conn->fp, 10);
   $line = stream_get_line($conn->fp, 8192, "\r\n");
   $line = stream_get_line($conn->fp, 8192, "\n");

   if ($my_prefs['debug_mode'] && $line)
      write_log('imap', 'S: '. $line);
@@ -1501,7 +1501,7 @@
            if($bodystr) {
               while (!preg_match('/ BODYSTRUCTURE (.*) BODY\[HEADER.FIELDS/s', $line, $m)) {
                  $line2 = iil_ReadLine($fp, 1024);
                  $line .= iil_MultLine($fp, $line2);
                  $line .= iil_MultLine($fp, $line2, true);
               }
               $result[$id]->body_structure = $m[1];
            }
@@ -1510,11 +1510,11 @@
            preg_match('/ BODY\[HEADER.FIELDS \(.*?\)\]\s*(.*)$/s', $line, $m);
            $reslines = explode("\n", trim($m[1], '"'));
            // re-parse (see below)
            foreach ($reslines as $line) {
               if (ord($line[0])<=32) {
                  $lines[$ln] .= (empty($lines[$ln])?'':"\n").trim($line);
            foreach ($reslines as $resln) {
               if (ord($resln[0])<=32) {
                  $lines[$ln] .= (empty($lines[$ln])?'':"\n").trim($resln);
               } else {
                  $lines[++$ln] = trim($line);
                  $lines[++$ln] = trim($resln);
               }
            }
         }
@@ -1668,7 +1668,7 @@
            }
         }
      }
   } while (strcmp($a[0], $key) != 0);
   } while (!iil_StartsWith($line, $key, true));

   return $result;
}
@@ -2125,8 +2125,8 @@
   $query = 'sub1 SUBSCRIBE "' . iil_Escape($folder). '"';
   iil_PutLine($fp, $query);

   $line = trim(iil_ReadLine($fp, 10000));
   return iil_ParseResult($line);
   $line = trim(iil_ReadLine($fp, 512));
   return (iil_ParseResult($line) == 0);
}

function iil_C_UnSubscribe(&$conn, $folder) {
@@ -2135,8 +2135,8 @@
   $query = 'usub1 UNSUBSCRIBE "' . iil_Escape($folder) . '"';
   iil_PutLine($fp, $query);
    
   $line = trim(iil_ReadLine($fp, 10000));
   return iil_ParseResult($line);
   $line = trim(iil_ReadLine($fp, 512));
   return (iil_ParseResult($line) == 0);
}

function iil_C_FetchMIMEHeaders(&$conn, $mailbox, $id, $parts) {
@@ -2371,31 +2371,39 @@

function iil_C_Append(&$conn, $folder, &$message) {
   if (!$folder) {
          return false;
      return false;
   }
   $fp = $conn->fp;

   $message = str_replace("\r", '', $message);
   $message = str_replace("\n", "\r\n", $message);		
   $message = str_replace("\n", "\r\n", $message);

   $len = strlen($message);
   if (!$len) {
          return false;
      return false;
   }

   $request = 'a APPEND "' . iil_Escape($folder) .'" (\\Seen) {' . $len . '}';
    

   if (iil_PutLine($fp, $request)) {
      $line = iil_ReadLine($fp, 100);		
      $sent = iil_PutLine($fp, $message);
      $line = iil_ReadLine($fp, 512);

      if ($line[0] != '+') {
         // $errornum = iil_ParseResult($line);
         $conn->error .= "Cannot write to folder: $line\n";
         return false;
      }

      iil_PutLine($fp, $message);

      do {
         $line=iil_ReadLine($fp);
         $line = iil_ReadLine($fp);
      } while (!iil_StartsWith($line, 'a ', true));
   
      $result = (iil_ParseResult($line) == 0);
      if (!$result) {
          $conn->error .= $line . "\n";
          }
      }
      return $result;
   }

@@ -2409,7 +2417,7 @@
   }
    
   //open message file
   $in_fp = false;				
   $in_fp = false;
   if (file_exists(realpath($path))) {
      $in_fp = fopen($path, 'r');
   }
@@ -2426,14 +2434,18 @@
    
   //send APPEND command
   $request    = 'a APPEND "' . iil_Escape($folder) . '" (\\Seen) {' . $len . '}';
   $bytes_sent = 0;
   if (iil_PutLine($fp, $request)) {
      $line = iil_ReadLine($fp, 100);
				
      $line = iil_ReadLine($fp, 512);

      if ($line[0] != '+') {
         //$errornum = iil_ParseResult($line);
         $conn->error .= "Cannot write to folder: $line\n";
         return false;
      }

      //send file
      while (!feof($in_fp)) {
         $buffer      = fgets($in_fp, 4096);
         $bytes_sent += strlen($buffer);
         iil_PutLine($fp, $buffer, false);
      }
      fclose($in_fp);
@@ -2444,12 +2456,12 @@
      do {
         $line = iil_ReadLine($fp);
      } while (!iil_StartsWith($line, 'a ', true));
			

      $result = (iil_ParseResult($line) == 0);
      if (!$result) {
          $conn->error .= $line . "\n";
      }
        

      return $result;
   }
   
@@ -2467,7 +2479,7 @@
      if (iil_PutLine($fp, $key . ($is_uid ? ' UID' : '') ." FETCH $id (BODYSTRUCTURE)")) {
         do {
            $line = iil_ReadLine($fp, 5000);
            $line = iil_MultLine($fp, $line);
            $line = iil_MultLine($fp, $line, true);
            if (!preg_match("/^$key/", $line))
               $result .= $line;
         } while (!iil_StartsWith($line, $key, true));