<?php

class MailChimpSTS {
  var $version = "1.0";
  var $errorMessage;
  var $errorCode;

  /**
   * Cache the information on the API location on the server
   */
  var $apiUrl;

  /**
   * Default to a 300 second timeout on server calls
   */
  var $timeout = 300;

  /**
   * Default to a 8K chunk size
   */
  var $chunkSize = 8192;

  /**
   * Cache the user api_key so we only have to log in once per client instantiation
   */
  var $api_key;

  /**
   * Cache the user api_key so we only have to log in once per client instantiation
   */
  var $secure = FALSE;

  /**
   * Connect to the MailChimp API for a given list.
   *
   * @param string $apikey Your MailChimp apikey
   * @param string $secure Whether or not this should use a secure connection
   */
  function MailChimpSTS($api_key, $secure = FALSE) {
    $this->secure  = $secure;
    $this->apiUrl  = parse_url("http://sts.mailchimp.com/" . $this->version . "/");
    $this->api_key = $api_key;
  }

  function set_timeout($seconds){
    if (is_int($seconds)){
      $this->timeout = $seconds;
      return true;
    }
  }

  function verify_email_address($email) {
    return $this->callServer("VerifyEmailAddress", array('email' => $email));
  }

  function list_verified_email_addresses() {
    return $this->callServer("ListVerifiedEmailAddresses");
  }

  function get_send_quota() {
    return $this->callServer("GetSendQuota");
  }

  function get_send_statistics() {
    return $this->callServer("GetSendStatistics");
  }

  function get_mc_send_stats($tag_id = 1, $since = NULL) {
    return $this->callServer("GetSendStats",
      array('tag_id' => $tag_id, 'since' => $since));
  }

  function get_tags() {
    return $this->callServer('GetTags');
  }

  function get_url_stats($url_id = NULL, $since = NULL) {
    return $this->callServer("GetUrlStats",
      array('url_id' => $url_id, 'since' => $since));
  }

  function get_urls() {
    return $this->callServer('GetUrls');
  }

  function send_email(array $message, $track_opens = TRUE, $track_clicks = TRUE, $tags = array()) {
    return $this->callServer("SendEmail", array(
      'message' => $message,
      'track_opens' => $track_opens,
      'track_clicks' => $track_clicks,
      'tags' => $tags
    ));
  }

  /**
   * Actually connect to the server and call the requested methods, parsing the result
   * You should never have to call this function manually
   */
  function callServer($method, $params = array()) {
    $dc = "us1";
    if (strstr($this->api_key, "-")) {
      list($key, $dc) = explode("-", $this->api_key, 2);
      if (!$dc) {
        $dc = "us1";
      }
    }
    $host = $dc . "." . $this->apiUrl["host"];
    $params["apikey"] = $this->api_key;

    $this->errorMessage = "";
    $this->errorCode    = "";
    $sep_changed        = FALSE;
    //sigh, apparently some distribs change this to &amp; by default
    if (ini_get("arg_separator.output") != "&") {
      $sep_changed = TRUE;
      $orig_sep = ini_get("arg_separator.output");
      ini_set("arg_separator.output", "&");
    }
    $post_vars = http_build_query($params);
    if ($sep_changed) {
      ini_set("arg_separator.output", $orig_sep);
    }

    $payload = "POST " . $this->apiUrl["path"] . '/' . $method . ".php HTTP/1.0\r\n";
    $payload .= "Host: " . $host . "\r\n";
    $payload .= "User-Agent: MCAPI/" . $this->version . "\r\n";
    $payload .= "Content-type: application/x-www-form-urlencoded\r\n";
    $payload .= "Content-length: " . strlen($post_vars) . "\r\n";
    $payload .= "Connection: close \r\n\r\n";
    $payload .= $post_vars;

    ob_start();
    if ($this->secure) {
      $sock = fsockopen("ssl://" . $host, 443, $errno, $errstr, 30);
    }
    else {
      $sock = fsockopen($host, 80, $errno, $errstr, 30);
    }
    if (!$sock) {
      $this->errorMessage = "Could not connect (ERR $errno: $errstr)";
      $this->errorCode = "-99";
      ob_end_clean();
      return FALSE;
    }

    $response = "";
    fwrite($sock, $payload);
    stream_set_timeout($sock, $this->timeout);
    $info = stream_get_meta_data($sock);
    while ((!feof($sock)) && (!$info["timed_out"])) {
      $response .= fread($sock, $this->chunkSize);
      $info = stream_get_meta_data($sock);
    }
    fclose($sock);
    ob_end_clean();
    if ($info["timed_out"]) {
      $this->errorMessage = "Could not read response (timed out)";
      $this->errorCode = -98;
      return FALSE;
    }

    list($headers, $response) = explode("\r\n\r\n", $response, 2);
    $headers = explode("\r\n", $headers);

    if (ini_get("magic_quotes_runtime")) {
      $response = stripslashes($response);
    }

    $serial = unserialize($response);
    if ($response && $serial === FALSE) {
      $response = array("error" => "Bad Response.  Got This: " . $response, "code" => "-99");
    }
    else {
      $response = $serial;
    }

    if (is_array($response) && (isset($response["error"]) || isset($response["http_code"]))) {
      $this->errorCode = @$response["code"] | @$response["http_code"];
      $this->errorMessage = @$response["error"] . @$response["message"];
      return FALSE;
    }

    return $response;
  }
}