From 4050feefce577a48a476e8dfcf4a631d97dbf48b Mon Sep 17 00:00:00 2001
From: Dries Buytaert <dries@buytaert.net>
Date: Tue, 2 Oct 2001 20:15:21 +0000
Subject: - a small module to notify or ping weblogs.com

---
 modules/weblogs.module | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 modules/weblogs.module

(limited to 'modules/weblogs.module')

diff --git a/modules/weblogs.module b/modules/weblogs.module
new file mode 100644
index 000000000..5490572cf
--- /dev/null
+++ b/modules/weblogs.module
@@ -0,0 +1,24 @@
+<?
+
+function weblogs_cron() {
+
+  if (db_num_rows(db_query("SELECT nid FROM node WHERE status = '". node_status("posted") ."' AND timestamp > '". variable_get("weblogs_cron_last", time()) ."'", 1))) {
+    weblogs_notify(variable_get("site_name", "drupal") , path_uri());  
+  }
+  variable_set("weblogs_cron_last", time());
+}
+
+function weblogs_notify($name, $url) {
+
+  $client = new xmlrpc_client("/RPC2", "rpc.weblogs.com", 80);
+
+  $message = new xmlrpcmsg("weblogUpdates.ping", array(new xmlrpcval($name), new xmlrpcval($url)));
+ 
+  $result = $client->send($message);
+
+  if (!$result || $result->faultCode()) {
+    watchdog("error", "failed to notify 'weblogs.com'");
+  }
+}
+
+?>
\ No newline at end of file
-- 
cgit v1.2.3