PHP Call::invoke方法代码示例

 /**
  * login
  *
  * The script checks provided name and password against remote server.
  *
  * This is done by transmitting the user name and the password to the origin server,
  * through a XML-RPC call ([code]drupal.login[/code]).
  * On success the origin server will provide the original id for the user profile.
  * Else a null id will be returned.
  *
  * @link http://drupal.org/node/312 Using distributed authentication (drupal.org)
  *
  * @param string the nickname or the email address of the user
  * @param string the submitted password
  * @return TRUE on succesful authentication, FALSE othewise
  */
 function login($name, $password)
 {
     global $context;
     // we need some parameters
     if (!isset($this->attributes['authenticator_parameters']) || !$this->attributes['authenticator_parameters']) {
         Logger::error(i18n::s('Please provide parameters to the authenticator.'));
         return FALSE;
     }
     // submit credentials to the authenticating server
     include_once $context['path_to_root'] . 'services/call.php';
     $result = Call::invoke($this->attributes['authenticator_parameters'], 'drupal.login', array($name, $password), 'XML-RPC');
     // invalid result
     if (!$result || @count($result) < 2) {
         Logger::error(sprintf(i18n::s('Impossible to complete XML-RPC call to %s.'), $this->attributes['authenticator_parameters']));
         return FALSE;
     }
     // successful authentication
     if ($result[0] && $result[1] > 0) {
         return TRUE;
     }
     // failed authentication
     return FALSE;
 }

 /**
  * attempt to use the pingback interface
  *
  * @param string - some text, extracted from the target site, to extract the broker URL, if any
  * @param string - the source address
  * @param string - the target address from which the text has been extracted
  * @return TRUE if the target site has been pinged back, FALSE otherwise
  *
  * @link http://www.hixie.ch/specs/pingback/pingback Pingback specification
  */
 public static function ping_as_pingback($text, $source, $target)
 {
     global $context;
     // extract all <link... /> tags
     preg_match_all('/<link(.+?)\\/?>/mi', $text, $links);
     // nothing to do
     if (!@count($links[1])) {
         return FALSE;
     }
     // look for the broker
     $broker = array();
     foreach ($links[1] as $link) {
         // seek the pingback interface
         if (!preg_match('/rel="pingback"/mi', $link)) {
             continue;
         }
         // extract the broker link
         if (preg_match('/href="([^"]+)"/mi', $link, $broker)) {
             break;
         }
     }
     // pingback interface not supported here
     if (!isset($broker[1])) {
         return FALSE;
     }
     // actual pingback, through XML-RPC
     include_once $context['path_to_root'] . 'services/call.php';
     $result = Call::invoke($broker[1], 'pingback.ping', array($source, $target), 'XML-RPC');
     return TRUE;
 }

    // anonymous users are invited to log in or to register
} elseif (!Surfer::is_logged()) {
    Safe::redirect($context['url_to_home'] . $context['url_to_root'] . 'users/login.php?url=' . urlencode('servers/ping.php'));
} elseif (!Surfer::is_associate()) {
    Safe::header('Status: 401 Unauthorized', TRUE, 401);
    Logger::error(i18n::s('You are not allowed to perform this operation.'));
    // do the ping
} elseif (isset($_REQUEST['action']) && $_REQUEST['action'] == 'ping') {
    // list servers to be advertised
    if ($servers = Servers::list_for_ping(0, 20, 'ping')) {
        $context['text'] .= '<p>' . i18n::s('Servers that have been notified') . '</p><ul>';
        // ping each server
        foreach ($servers as $server_url => $attributes) {
            list($server_ping, $server_label) = $attributes;
            $milestone = get_micro_time();
            $result = @Call::invoke($server_ping, 'weblogUpdates.ping', array(strip_tags($context['site_name']), $context['url_to_home'] . $context['url_to_root']), 'XML-RPC');
            if ($result[0]) {
                $label = round(get_micro_time() - $milestone, 2) . ' sec.';
            } else {
                $label = @$result[1];
            }
            $context['text'] .= '<li>' . $server_label . ' (' . $label . ')</li>';
        }
        $context['text'] .= '</ul>';
        // no server to ping
    } else {
        $context['text'] .= '<p>' . i18n::s('No server has been created yet.') . '</p>';
    }
    // back to the index of servers
    $menu = array('servers/' => i18n::s('Servers'));
    $context['text'] .= Skin::build_list($menu, 'menu_bar');

</p>

<p>sdsd qd qsd qds</p>

<p>al non ? Vivement les plug-ins, qu\'on <FONT size="6" face="Verdana" color="#808000">puisse</FONT> ajouter d\'autres effets.

</p>

<p>qsd qsd qds qjhgkjg k j<br/>
</p>

<a title="" href="http://127.0.0.1/yacs/articles/view.php/4920"><img src="http://127.0.0.1/yacs/files/section/2739/Nnuphars_thumb.jpg" alt="" /></a><!-- technorati tags begin --><p style="font-size:10px;text-align:right;">technorati tags:<a href="http://technorati.com/tag/un" rel="tag">un</a>, <a href="http://technorati.com/tag/tag" rel="tag">tag</a>, <a href="http://technorati.com/tag/xml" rel="tag">xml</a>, <a href="http://technorati.com/tag/rpc" rel="tag">rpc</a></p><!-- technorati tags end -->';
    // metaWeblog.newPost -- the Flock way
    $context['text'] .= Skin::build_block('metaWeblog.newPost', 'title');
    $parameters = array($blogid, $user_name, $user_password, array('title' => $codec->encode('a post from Flock', 'string'), 'description' => $codec->encode($sample_message, 'string'), 'mt_convert_breaks' => '', 'mt_tb_ping_urls' => array('http://www.technorati.com')), TRUE);
    $result = Call::invoke($url, 'metaWeblog.newPost', $parameters, 'XML-RPC');
    $status = @$result[0];
    $data = @$result[1];
    // display call result
    if (!$status) {
        $context['text'] .= 'status: ' . $data;
    } elseif (is_array($data) && isset($data['faultString']) && $data['faultString']) {
        $context['text'] .= $data['faultString'];
    } elseif (is_array($data)) {
        $context['text'] .= '?? ';
        foreach ($data as $item) {
            $context['text'] .= "<p>" . $item . "</p>\n";
        }
    } else {
        $context['text'] .= '"' . $data . '"';
        $postid = $data;

 /**
  * notify servers about a new page
  *
  * @param string page URL
  * @param string server name
  */
 public static function notify($link, $title = NULL)
 {
     global $context;
     if (!$title) {
         $title = $context['site_name'];
     }
     // the list of recipients contacted during overall script execution
     if (!isset($context['servers_endpoints'])) {
         $context['servers_endpoints'] = array();
     }
     // list servers to be advertised
     if ($servers = Servers::list_for_ping(0, COMPACT_LIST_SIZE, 'ping')) {
         // ping each server
         include_once $context['path_to_root'] . 'services/call.php';
         foreach ($servers as $server_url => $attributes) {
             list($server_ping, $server_label) = $attributes;
             $milestone = get_micro_time();
             $result = Call::invoke($server_ping, 'weblogUpdates.ping', array(strip_tags($title), $context['url_to_home'] . $context['url_to_root'] . $link), 'XML-RPC');
             if ($result[0]) {
                 $server_label .= ' (' . round(get_micro_time() - $milestone, 2) . ' sec.)';
             }
             $context['servers_endpoints'][] = $server_label;
         }
     }
 }

$input = '<input type="text" name="message" size="30" maxlength="128" value="' . encode_field($message) . '" />';
$fields[] = array($label, $input);
$context['text'] .= Skin::build_form($fields);
$context['text'] .= '</div></form>';
// set the focus at the first field
Page::insert_script('$("#target").focus();');
// process provided parameters
if (isset($_SERVER['REQUEST_METHOD']) && $_SERVER['REQUEST_METHOD'] == 'POST') {
    // call json back-end
    $url = 'http://' . $_REQUEST['target'] . '/services/json_rpc.php';
    // echo
    $context['text'] .= Skin::build_block('echo', 'title');
    $parameters = array('message' => $message);
    include_once 'call.php';
    $status = $data = NULL;
    if ($result = Call::invoke($url, 'echo', $parameters, 'JSON-RPC')) {
        $status = $result[0];
        $data = $result[1];
    }
    // bad call processing
    if (!$status) {
        $context['text'] .= 'status: ' . $data;
    } elseif (!empty($data['error'])) {
        if (is_array($data['error'])) {
            $context['text'] .= '<p>error:</p><ul class="compact">';
            foreach ($data['error'] as $name => $value) {
                if ($value) {
                    $context['text'] .= "<li>" . $name . ': ' . $value . "</li>\n";
                }
            }
            $context['text'] .= "</ul>\n";

$input = '<input type="password" name="user_password" size="30" maxlength="128" value="' . $user_password . '" />';
$fields[] = array($label, $input);
$context['text'] .= Skin::build_form($fields);
$context['text'] .= '</div></form>';
// set the focus at the first field
Page::insert_script('$("#target").focus();');
// process provided parameters
if (isset($_SERVER['REQUEST_METHOD']) && $_SERVER['REQUEST_METHOD'] == 'POST') {
    // call blog web service
    $url = 'http://' . $_REQUEST['target'] . '/services/xml_rpc.php';
    // drupal.login
    $context['text'] .= Skin::build_block('drupal.login', 'title');
    $parameters = array($user_name, $user_password);
    include_once 'call.php';
    $status = $data = NULL;
    if ($result = Call::invoke($url, 'drupal.login', $parameters, 'XML-RPC')) {
        $status = $result[0];
        $data = $result[1];
    }
    // display call result
    if (!$status) {
        $context['text'] .= 'status: ' . $data;
    } elseif (is_array($data) && $data['faultString']) {
        $context['text'] .= 'fault: ' . $data['faultString'];
    } elseif (is_array($data)) {
        $context['text'] .= '?? ';
        foreach ($data as $item) {
            $context['text'] .= "<p>" . $item . "</p>\n";
        }
    } else {
        $context['text'] .= '"' . $data . '"';

load_skin('services');
// the title of the page
$context['page_title'] = i18n::s('Sample ping client');
// we do have a target to process
if (isset($_REQUEST['target'])) {
    // call blog web service
    $url = 'http://' . $_REQUEST['target'] . '/services/ping.php';
    // pingback.ping
    if ($_REQUEST['action'] == 'pingback.ping') {
        $context['text'] .= Skin::build_block('pingback.ping', 'title');
        $result = Call::invoke($url, 'pingback.ping', array($_REQUEST['source_link'], $_REQUEST['target_link']), 'XML-RPC');
    }
    // weblogUpdates.ping
    if ($_REQUEST['action'] == 'weblogUpdates.ping') {
        $context['text'] .= Skin::build_block('weblogUpdates.ping', 'title');
        $result = Call::invoke($url, 'weblogUpdates.ping', array(strip_tags($_REQUEST['name']), $_REQUEST['url']), 'XML-RPC');
    }
    // display call result
    $status = @$result[0];
    $data = @$result[1];
    if (!$status) {
        $context['text'] .= $data;
    } elseif (is_array($data) && $data['faultString']) {
        $context['text'] .= $data['faultString'];
    } elseif (is_array($data)) {
        foreach ($data as $name => $value) {
            $context['text'] .= $name . ': ' . $value . BR . "\n";
        }
    } else {
        $context['text'] .= $data;
    }