71 lines
2.1 KiB
Plaintext
71 lines
2.1 KiB
Plaintext
<?php
|
|
// $Id$
|
|
|
|
/**
|
|
* @file
|
|
* Alerts other sites that your site has been updated.
|
|
*/
|
|
|
|
/**
|
|
* Implementation of hook_help().
|
|
*/
|
|
function ping_help($section) {
|
|
switch ($section) {
|
|
case 'admin/help#ping':
|
|
$output .= t("
|
|
<p>Drupal can automatically send notifications (called \"pings\") to the %pingomatic to tell them that your site has changed. In turn pingomatic.com will ping other services like weblogs.com, Technorati, blo.gs, BlogRolling, Feedster.com, Moreover, etc.</p>
|
|
<p>The ping feature requires crontab.</p>", array('%pingomatic' => '<a href="http://pingomatic.com/">http://pingomatic.com/</a>'));
|
|
break;
|
|
|
|
case 'admin/modules#description':
|
|
$output = t('Alerts other sites that your site has been updated.');
|
|
break;
|
|
}
|
|
|
|
return $output;
|
|
}
|
|
|
|
/**
|
|
* Implementation of hook_cron().
|
|
*
|
|
* Fire off notifications of updates to remote sites.
|
|
*/
|
|
function ping_cron() {
|
|
global $base_url;
|
|
|
|
if (variable_get('site_name', 0) && variable_get('site_slogan', 0)) {
|
|
if (db_num_rows(db_query("SELECT nid FROM {node} WHERE status = 1 AND moderate = 0 AND (created > '". variable_get('ping_cron_last', time()) ."' OR changed > '". variable_get('ping_cron_last', time()) ."')"), 1)) {
|
|
_ping_notify(variable_get('site_name', '') .' - '. variable_get('site_slogan', ''), $base_url);
|
|
}
|
|
|
|
variable_set('ping_cron_last', time());
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Call hook_ping() in all modules to notify remote sites that there is
|
|
* new content at this one.
|
|
*/
|
|
function _ping_notify($name, $url) {
|
|
module_invoke_all('ping', $name, $url);
|
|
}
|
|
|
|
/**
|
|
* Implementation of hook_ping().
|
|
*
|
|
* Notifies pingomatic.com, blo.gs, and technorati.com of changes at this site.
|
|
*/
|
|
function ping_ping($name = '', $url = '') {
|
|
|
|
$feed = url('node/feed', NULL, NULL, TRUE);
|
|
$client = new xmlrpc_client('/', 'rpc.pingomatic.com', 80);
|
|
$message = new xmlrpcmsg('weblogUpdates.ping', array(new xmlrpcval($name), new xmlrpcval($url)));
|
|
$result = $client->send($message);
|
|
|
|
if (!$result || $result->faultCode()) {
|
|
watchdog('directory ping', t('Failed to notify pingomatic.com (site).'), WATCHDOG_WARNING);
|
|
}
|
|
}
|
|
|
|
?>
|