juust ~ php oddities » xml-rpc http://www.juust.org Unordered list of one element Wed, 28 Jul 2010 14:26:26 +0000 http://wordpress.org/?v=2.8 en hourly 1 p2p with wordpress xml-rpc http://www.juust.org/index.php/p2p-with-wordpress-xml-rpc/2010/02/ http://www.juust.org/index.php/p2p-with-wordpress-xml-rpc/2010/02/#comments Mon, 08 Feb 2010 15:49:54 +0000 juust http://www.juust.org/?p=1233 Simple fun with Wordpress xml-rpc. I want a way to return a welcome message to interested blog owners.

To get that done, I make a new plugin that adds a new method to the xml-rpc server.

The method ‘p2p.welcome’ is mapped to the plugin function ‘p2p_welcome’, which returns the “about yourself” description of the admin profile.

  1. /*
  2. Plugin Name: P2P rpc
  3. Description: RPC Peer to Peer stuff
  4. Version: 1.0.0  
  5. Author: Juust
  6. Author URI: http://www.juust.org/
  7. */
  8.  
  9. /* xmlrpc_methods hooks into IXR_Server */    
  10. add_filter( 'xmlrpc_methods', 'p2p_xmlrpc_methods' );
  11.  
  12. /* pass the $methods array and add a new one */    
  13. function p2p_xmlrpc_methods( $methods ) {
  14.      $methods['p2p.whoami'] = 'p2p_whoami';
  15.      return $methods;
  16. }
  17.  
  18. /* the function that returns the profile description of user 1 (admin) */    
  19. function p2p_whoami() {
  20.  return get_the_author_meta( 'user_description', 1 );
  21. }

I plug that into the wordpress blog.

Then I can make a small test program :

  • include class-IXR.php which has the IXR_Client class
  • extend IXR_Client as P2PClient
  • add a function P2PClient->whoareyou()
  • …that calls the new method p2p.whoami on the blog
  • echo the returned data : the admin profile description
  1. include_once('/absolute/path/to/class-IXR.php');
  2.  
  3. Class P2PClient extends IXR_Client {
  4.  
  5. var $MyPeerConnection;
  6. var $response;
  7. var $url;
  8.  
  9. function __construct($url="") {
  10.                  $this->url = $url;
  11.     if(!$this->connect($url)) return false;
  12.      }
  13.      
  14. //see if there is an xml rpc endpoint
  15. function connect($url)
  16.      {
  17.        if(!$this->MyPeerConnection = new IXR_Client($this->url)) return false;
  18.      }
  19.  
  20.  //query 'p2p.whoami', store the response
  21. function whoareyou() {
  22.   $this->MyPeerConnection->query('p2p.whoami');
  23.   $this->response = $this->MyPeerConnection->getResponse();
  24.      }
  25. }
  26.  
  27. //init the client, query, echo response
  28. $p2p = new P2PClient('http://loaneys.com/xmlrpc.php');
  29. $p2p->whoareyou();
  30. echo "resp ". $p2p->response;

That returns :

Hi I am juust, admin of loaneys.com. I worked as business economist at project control and proces automation in engineering and utilities. These days, I do some scripting as a hobby and stick to painting as job.

That is a basic way to exchange blog data by extending the xml-rpc endpoint.

]]> http://www.juust.org/index.php/p2p-with-wordpress-xml-rpc/2010/02/feed/ 0 metaWeblog.newPost posting to Wordpress from Word http://www.juust.org/index.php/metaweblog-newpost-posting-to-wordpress-from-word/2009/10/ http://www.juust.org/index.php/metaweblog-newpost-posting-to-wordpress-from-word/2009/10/#comments Mon, 26 Oct 2009 11:14:37 +0000 juust http://www.juust.org/?p=1027 Quick and dirty : posting to Wordpress from Word with VBA. I put the text source on the server.

It works, to a point. You can take a Word document, run the PostToWordpress macro (with your own blogs settings) and it puts the content in Wordpress.

I haven’t worked with Word for a few years, you’d have to ask someone with up-to-date Word vba skills how to grab the document title, and sanitize and format the document text into proper html-output. For the tests I grabbed a snippet off the net, it does not do a perfect job but the basic idea is kosher.

metaWeblog.newPost

Most sites (including blogger) have skipped from blogger.newPost to newer formats. I prefer using the metaWeblog.newPost rpc method, it is a bit more versatile, and supported by Wordpress as well.

(ref. msdn library article on metaWeblog.newPost)

The methodcall is structured like this :

  • methodname : metaWeblog.newPost
  • blogid
  • blog user name
  • blog password
  • the post struct with it’s members
    • categories array
    • description (the doc text)
    • title
    • date created
  • publish (0=save as draft, 1=publish immediately)

So let’s build that step by step as vba routine :

  1.  
  2. Sub PostToWordpress()
  3.  
  4. 'the basic blog settings
  5.     txtURL = "http://www.blog.com/xmlrpc.php"
  6.     txtBlogId = "1"
  7.     txtUserName = "MyUserName"
  8.     txtPassWord = "MyPassword"
  9.  
  10. 'the document settings
  11.     txtTitle = "MyTitle"
  12.     'note : you can use the documents creation date here
  13.     txtDateCreated = Format(Now(), "yyyyMMdd") & "T" & Format(Now(), "hh:mm:ss")
  14.    
  15.     'Categories is an array in the post,
  16.     'you can use category names,
  17.     'and you can always use "Uncategorized"
  18.     'as all wordpress blogs have it
  19.  
  20.     Dim MyCategories(2) As String
  21.     MyCategories(1) = "Uncategorized"
  22.     MyCategories(2) = "example_category_one"
  23.  
  24.     'note: this function grabs the document text,
  25.     'replaces linebreaks with html linebreaks etc.
  26.  
  27.     'it needs a lot more work
  28.     txtDocument = getCurrentDocAsSimpleHtml()

Once I have the blog settings and the content + attributes for the new Wordpress post, I set up the XMLHttpRequest object :

  1.      
  2.     Dim objSvrHTTP As ServerXMLHTTP
  3.     Dim strT As String
  4.     Set objSvrHTTP = New ServerXMLHTTP
  5.  
  6.     objSvrHTTP.Open "POST", txtURL, False, CStr(txtUserName), _
  7.     CStr(txtPassWord)
  8.  
  9.     objSvrHTTP.setRequestHeader "Accept", "application/xml"
  10.     objSvrHTTP.setRequestHeader "Content-Type", "application/xml"

Then I start building the XML to send to Wordpress,

  1.  
  2. 'methodcall    
  3.     strT = strT & "<methodcall>"
  4.  
  5. 'methodname
  6.     strT = strT & "<methodname>metaWeblog.newPost</methodname>"
  7.  
  8. 'parameters : blog settings
  9.     strT = strT & "<params>"
  10.     strT = strT & "<param><value><string>" & txtBlogId & "</string></value></param>"
  11.     strT = strT & "<param><value><string>" & txtUserName & "</string></value></param>"
  12.     strT = strT & "<param><value><string>" & txtPassWord & "</string></value></param>"
  13.  
  14. 'parameters : the post structure
  15.     strT = strT & "<param>"
  16.         strT = strT & "<struct>"
  17.  
  18. 'parameters : post : category array
  19.             strT = strT & "<member><name>categories</name>"
  20.                 strT = strT & "<value>"
  21.                     strT = strT & "<array>"
  22.                         strT = strT & "<data>"
  23.  
  24.    For i = 1 To UBound(MyCategories)
  25.                             strT = strT & "<value>" & MyCategories(i) & "</value>"
  26.    Next i
  27.                         strT = strT & "</data>"
  28.                     strT = strT & "</array>"
  29.                 strT = strT & "</value>"
  30.             strT = strT & "</member>"
  31.  
  32. 'parameters : post : the content
  33.         strT = strT & "<member><name>description</name>"
  34.             strT = strT & "<value>< [!CDATA[" & txtDocument & "]]></value>"
  35.         strT = strT & "</member>"
  36.  
  37. 'parameters : post : title
  38.         strT = strT & "<member><name>title</name><value>" & txtTitle & "</value></member>"
  39.  
  40. 'parameters : post : date created
  41.         strT = strT & "<member><name>dateCreated</name><value><datetime .iso8601>" &  txtDateCreated & "</datetime></value></member>"
  42.         strT = strT & "</struct>"
  43.     strT = strT & "</param>"
  44.  
  45. 'parameters : post : store as draft (0) or publish immediately (1)
  46.     strT = strT & "<param><value><boolean>0</boolean></value></param>"
  47.  
  48. 'end parameters
  49.     strT = strT & "</params>"
  50.  
  51. 'end methodcall
  52.     strT = strT & "</methodcall>"
  53.  
  54. 'send it to wordpress
  55.     objSvrHTTP.send strT
  56.  
  57. 'send the response to the debug window
  58.     Debug.Print objSvrHTTP.responseText
  59.  
  60. End Sub

conversion to html

The main practical problem is converting the Word document content to html. I grabbed two quick functions to select the current document text, convert the most common html entities and replace linebreaks with their html counterparts, but it is far from perfect.

  1. Private Function getCurrentDocAsSimpleHtml() As String
  2. '… see source text
  3. End Function
  4.  
  5. ' simple HTML entity encoder
  6. Private Function encode(ByVal s As String) As String
  7.     If s = "&" Then
  8.         encode = "&amp;"
  9.     ElseIf s = "< " Then
  10.         encode = "&lt;"
  11.     ElseIf s = ">" Then
  12.         encode = "&gt;"
  13.     ElseIf s = Chr(13) Then
  14.         encode = "<br />"
  15.     Else
  16.         encode = s
  17.     End If
  18. End Function

The Wordpress Incutio xml-parser will not pass content it cannot make sense of, which leaves you with an empty post.

using CDATA

A rather common hack I used above is using < ![CDATA[ ]]> to wrap the post content, which indicates to the wordpress xml-parser that I pass a string of raw character data as content. The parser ignores it, and Wordpress stuffs everything in the database.

Works great, but it can backfire and slip stuff in the database that wordpress cannot handle and display correctly.

I’d test without using CDATA if you want to post from Word on a regular basis, or use a more professional html-converter on the word documents first.

]]> http://www.juust.org/index.php/metaweblog-newpost-posting-to-wordpress-from-word/2009/10/feed/ 9 RpSequel : rfc sql crud with wordpress http://www.juust.org/index.php/rpsequel-rfc-sql-crud-with-wordpress/2009/10/ http://www.juust.org/index.php/rpsequel-rfc-sql-crud-with-wordpress/2009/10/#comments Fri, 23 Oct 2009 09:50:07 +0000 juust http://www.juust.org/?p=1011 I set out to use MsAccess with xhr/ajax to maintain tables I added to my wordpress database, from my desktop. (Because I suck at html forms backends and consider them a waste of time.)

I used a similar technique ten years ago, setting up msaccess as reporting tool for SAP R/3 with RFC dll’s and ActiveX. That remained stable for eight years without maintenance. Hey, I might get lucky with Wordpress xml-rpc and xhr/ajax.

I called the example RpSequel.

adding sql rpc functions

To sync the data sets, I will duplicate a list with sequel operations from my desktop database as rfc call to my blog’s xmlrpc-endpoint. To handle that list, I plug a sql crud method into the xml-rpc method array in Wordpress :

  1. add_filter( 'xmlrpc_methods', 'rpsequel_methods' );
  2.  
  3. function rpsequel_methods( $methods ) {
  4.     $methods['rpsequel.rpsequelInsert'] = 'rpsequelInsert';
  5.     return $methods;
  6. }
  7.  
  8. function rpsequelInsert($args) {
  9. }

The basic INSERT method itself can be simple:

  1. function rpsequelInsert($args) {
  2.         global $wpdb;
  3.  
  4. //the first parameters
  5.         $blog_id = (int) $args[0];
  6.         $username = $args[1];
  7.         $password = $args[2];
  8.         $tablename      = $args[3];
  9.  
  10. //get the structs
  11.         $structs        = $args[4];
  12.  
  13. //pick the first
  14.         $struct = $structs[0];
  15.  
  16. //compose the mysql insert statement    
  17.         foreach($struct as $key => $value){
  18.             $SqlFields .= " `".$key . "`,";
  19.             $SqlValues .= " '".$value . "',";
  20.         }
  21.  
  22.         $SqlFields=substr($SqlFields, 0, strlen($SqlFields)-1);
  23.         $SqlValues=substr($SqlValues, 0, strlen($SqlValues)-1);
  24.    
  25.         $SqlStatement .= "INSERT INTO ".$wpdb->prefix.$tablename. " (". $SqlFields .  ") VALUES (".$SqlValues . ")";
  26.        
  27. //execute the query        
  28.         $wpdb->query($wpdb->prepare($SqlStatement));
  29.  
  30. //return the record id
  31.        return $wpdb->insert_id;
  32. }

That in itself is not very exciting, it stuffs records in the host’s database. Which is fine, however, I want the blog to respond to individual operations.

I can write rpc-functions for every single function I want the blog to perform, that means truckloads of rpc-functions, on both client and server end. I am incredibly lazy, so I ain’t gonna go there.

adding hooks to sql rpc functions

Lucky for me, Wordpress has hooks, hooks are cool.

Adding action hooks (before_insert and after_insert) to the crud method makes it more powerful. Two hooks are enough to separate the business logic of the desktop database from the blogs reporting logic.

  1. function rpsequelInsert($args) {
  2.         global $wpdb;
  3.  
  4. //the first parameters
  5.         $blog_id = (int) $args[0];
  6.         $username = $args[1];
  7.         $password = $args[2];
  8.         $tablename      = $args[3];
  9.  
  10. //get the structs
  11.         $structs        = $args[4];
  12.  
  13. //here is the first action hook,
  14. //it hands the tablename and the records over to any
  15. //function that 'listens' on the action hook
  16.  
  17. do_action('rpsequel_before_insert',  $tablename, $structs);
  18.  
  19. //the rest of the rather dull method
  20.  
  21.         $struct = $structs[0];
  22. //….
  23. //execute the query        
  24.         $wpdb->query($wpdb->prepare($SqlStatement));
  25.  
  26. //here is the second action hook,
  27. //it hands the table name with the new record id
  28. //to any function that 'listens' on the action hook
  29.  
  30. do_action('rpsequel_after_insert',  $tablename, $wpdb->insert_id);
  31.  
  32. //return the record id
  33.        return $wpdb->insert_id;
  34. }

Now it is more exciting.

  • I can send a list of records and a rfc insert-method to the blogs xmlrpc endpoint
  • the rfc crud-plugin can process the records one by one
  • Before and after each insert operation, the method triggers an action.
  • Before inserting, it exposes the record data.
  • After inserting, it exposes the record id.

And the last two, was exactly what I wanted.

adding functionality with plugins

Now I can add tiny plugins, that ‘listen’ on the action hooks in the rfc-methods. If there is an INSERT into the database, my plugins read which table it affects. They can perform actions, either before the insert, with the new record data, or after the insert, with the new record id.

  1. add_action ( 'rpsequel_before_insert', 'before_insert_logic', 10, 2);
  2. add_action ( 'rpsequel_after_insert', 'after_insert_logic', 10, 2);
  3.  
  4. function before_insert_logic($rpc_tablename, $rpc_array) {
  5.    if($rpc_tablename=="ships") {
  6. //do some stuff before inserting incoming records
  7.    }
  8. }
  9.  
  10. function after_insert_logic($rpc_tablename, $rpc_insert_id) {
  11.    if($rpc_tablename=="ships") {
  12. //do some stuff after inserting incoming records
  13.    }
  14. }

That’s basically all it takes. As technique, it has it’s limitations, but it can come in handy sometimes.

]]> http://www.juust.org/index.php/rpsequel-rfc-sql-crud-with-wordpress/2009/10/feed/ 1 integrating ms office and wordpress with vba and xml-rpc http://www.juust.org/index.php/integrating-ms-office-and-wordpress-with-vba-and-xml-rpc/2009/10/ http://www.juust.org/index.php/integrating-ms-office-and-wordpress-with-vba-and-xml-rpc/2009/10/#comments Tue, 20 Oct 2009 11:20:53 +0000 juust http://www.juust.org/?p=979 Okay.

Yesterday I made some basic stuff to grab my Wordpress blog data with visual basic for applicationsn cos I don’t feel like programming php admin pages for tables.

So let’s make a basic xml-rpc crud plugin and put my agenda on vba remote control.

The basic xml-rpc plugin is simple, plug extra methods into the xml-rpc method array, and write a function per crud-method.

  1.  
  2. add_filter( 'xmlrpc_methods', 'add_agenda_xmlrpc_methods' );
  3.  
  4. function add_agenda_xmlrpc_methods( $methods ) {
  5.     $methods['agenda.addAgendaItem'] = 'addAgendaItem';
  6.     $methods['agenda.updateAgendaItem'] = 'updateAgendaItem';
  7.     $methods['agenda.deleteAgendaItem'] = 'deleteAgendaItem';
  8.     $methods['agenda.reportAgendaItem'] = 'reportAgendaItem';
  9.     return $methods;
  10. }
  11.  
  12. function addAgendaItem($args) { }
  13.  
  14. function updateAgendaItem($args) { }
  15.  
  16. function deleteAgendaItem($args) { }
  17.  
  18. function reportAgendaItem($args) { }
  19.  
  20. //basic login helper function
  21. function CheckLogin($user, $pwd) {}

There now, if I call on the xmlrpc.php file, the extra methods are added to the callback array and I can use the table CRUD functions from my vba desktop.

  1. function addAgendaItem($args) {
  2.  
  3.         $blog_id = (int) $args[0];
  4.         $username = $args[1];
  5.         $password = $args[2];
  6.         $AgendaItem     = $args[3];
  7.  
  8. //remember : add a login check
  9. //(for the example it is irrelevant)
  10.  
  11.         global $wpdb;
  12.         $sql = "INSERT INTO ".$wpdb->prefix."Agenda (
  13.                `userid`, `tags`, `description`, `firstdate`, `enddate`, `link`, `price`, `location`
  14.                ) VALUES (
  15.                '".$AgendaItem[0]['userid']."',
  16.                '".$AgendaItem[0]['tags']."',
  17.                '".$AgendaItem[0]['description']."',
  18.                '".$AgendaItem[0]['firstdate']."',
  19.                '".$AgendaItem[0]['enddate']."',
  20.                '".$AgendaItem[0]['link']."',
  21.                '".$AgendaItem[0]['price']."',
  22.                '".$AgendaItem[0]['location']."'                
  23.                )";
  24.         $wpdb->query($wpdb->prepare($sql));
  25.  
  26.         return $wpdb->insert_id;
  27. }

note : the agendaitem is a struct in an array (see below), I use [0] to get the first struct (which is the actual array with field-value pairs, my record with agenda info).

Activate the plugin, and write a simple test

  1.  
  2. 'Type to hold an agenda info record
  3. Type AgendaItem
  4.     userid As String
  5.     tags As String
  6.     Description As String
  7.     firstdate As String
  8.     enddate As String
  9.     link As String
  10.     price As String
  11.     location As String
  12. End Type
  13.  
  14.  
  15. Function AddAgendaItem()
  16.  
  17. txtURL = "http://wwwblog.com/xmlrpc.php"
  18. txtUserName = "MyUsername"
  19. txtPassword = "MyPassword"
  20.  
  21.   Dim objSvrHTTP As ServerXMLHTTP
  22.   Dim strT As String
  23.   Set objSvrHTTP = New ServerXMLHTTP
  24.  
  25.   objSvrHTTP.Open "POST", txtURL, False, CStr(txtUserName), _
  26.    CStr(txtPassword)
  27.  
  28.   objSvrHTTP.setRequestHeader "Accept", "application/xml"
  29.   objSvrHTTP.setRequestHeader "Content-Type", "application/xml"
  30.  
  31.     strT = ""
  32.     strT = strT & "<methodcall>"
  33.     strT = strT & "<methodname>agenda.addAgendaItem</methodname>"
  34.    
  35.     strT = strT & "<params>"
  36.     strT = strT & "<param><value><string>" & txtBlogId & "</string></value></param>"
  37.     strT = strT & "<param><value><string>" & txtUserName & "</string></value></param>"
  38.     strT = strT & "<param><value><string>" & txtPassword & "</string></value></param>"
  39.  
  40. 'now we go make the struct, I use a Type (stdobject), normally
  41. 'you'd use a recordset
  42.  
  43. Dim a As AgendaItem
  44.  
  45. With a
  46.     .userid = 1
  47.     .Description = "rpc testing"
  48.     .firstdate = "2009/10/14"
  49.     .enddate = "2009/10/14"
  50.     .link = "http://www.juust.org/"
  51.     .price = "rpc testing"
  52.     .location = "limmen"
  53.     .tags = "php, xml-rpc"
  54. End With
  55.  
  56.     strT = strT & "<param><value><array>"
  57.     strT = strT & "<data>"
  58.    
  59.     strT = strT & "<value><struct>"
  60.  
  61.     strT = strT & "<member><name>userid</name><value><string>" & a.userid & "</string></value></member>"
  62.     strT = strT & "<member><name>tags</name><value><string>" & a.tags & "</string></value></member>"
  63.     strT = strT & "<member><name>description</name><value><string>" & a.Description & "</string></value></member>"
  64.     strT = strT & "<member><name>firstdate</name><value><string>" & a.firstdate & "</string></value></member>"
  65.     strT = strT & "<member><name>enddate</name><value><string>" & a.enddate & "</string></value></member>"
  66.     strT = strT & "<member><name>link</name><value><string>" & a.link & "</string></value></member>"
  67.     strT = strT & "<member><name>price</name><value><string>" & a.price & "</string></value></member>"
  68.     strT = strT & "<member><name>location</name><value><string>" & a.location & "</string></value></member>"
  69.  
  70. 'close the struct    
  71.     strT = strT & "</struct></value>"
  72.     strT = strT & "</data>"
  73.  
  74. 'close the struct array
  75.     strT = strT & "</array></value></param>"
  76.  
  77. 'end parameters
  78.     strT = strT & "</params>"
  79.  
  80. 'end method
  81.     strT = strT & "</methodcall>"
  82.  
  83. 'send the lot to the blog  
  84.   objSvrHTTP.send strT
  85.  
  86. 'print the response to debug
  87.   Debug.Print  objSvrHTTP.responseText
  88.  
  89. End function

Et voila :

agenda rpc

That’s yer basic Office-Wordpress XML-RPC integration.

]]> http://www.juust.org/index.php/integrating-ms-office-and-wordpress-with-vba-and-xml-rpc/2009/10/feed/ 0 more vba and wordpress xml rpc http://www.juust.org/index.php/more-vba-and-wordpress-xml-rpc/2009/10/ http://www.juust.org/index.php/more-vba-and-wordpress-xml-rpc/2009/10/#comments Mon, 19 Oct 2009 16:23:58 +0000 juust http://www.juust.org/?p=976 Basic Example II, vba wordpress remote control, demo.ayHello is fun but quite useless, so let’s proceed to wp.getUsersBlogs.

I make a table in access (id, isAdmin, blogid, url, blogName, xmlrpc) and then query wordpress, parse the xml response in store it in the database.

So here we go query Wordpress :

  1.     methodname = "wp.getUsersBlogs"
  2.  
  3. 'xmlrpc url
  4.     txtURL = "http://www.blog.com/xmlrpc.php"
  5.  
  6. 'authorization
  7.     txtUserName = "user"
  8.     txtPassword = "pass"
  9.  
  10. 'XML http request  
  11.     Dim objSvrHTTP As ServerXMLHTTP
  12.     Dim strT As String
  13.     Set objSvrHTTP = New ServerXMLHTTP
  14.    
  15.     objSvrHTTP.Open "POST", txtURL, False, CStr(txtUserName), _
  16.      CStr(txtPassword)
  17.    
  18.     objSvrHTTP.setRequestHeader "Accept", "application/xml"
  19.     objSvrHTTP.setRequestHeader "Content-Type", "application/xml"
  20.  
  21. 'here is the bit with the wp.getUserBlogs methodname,
  22. 'and the username and password    
  23.     strT = ""
  24.     strT = strT & "<methodcall>"
  25.     strT = strT & "<methodname>" & methodname & "</methodname>"
  26.     strT = strT & "<params>"
  27.     strT = strT & "<param><value><string>" & txtUserName & "</string></value></param>"
  28.     strT = strT & "<param><value><string>" & txtPassword & "</string></value></param>"
  29.     strT = strT & "</params>"
  30.     strT = strT & "</methodcall>"
  31.    
  32.     objSvrHTTP.send strT

that’s pretty straight forward.

I get an xml message back with the data stored in an array of STRUCT types.

  1. 'Create the DomDocument Object
  2. Dim oDoc As MSXML2.DOMDocument
  3. Set oDoc = CreateObject("MSXML2.DOMDocument")
  4. oDoc.async = False
  5. oDoc.validateOnParse = False
  6.  
  7. 'Load the response in the DomDocument Object
  8. Dim fSuccess As Boolean
  9. fSuccess = oDoc.loadXML(objSvrHTTP.responseText)
  10. If Not fSuccess Then
  11.     MsgBox "failed"
  12.     Exit Function
  13. End If
  14.        
  15. 'counters
  16. ct = 1
  17. cs = 1
  18.  
  19. 'array to story the field values
  20. Dim SArray(1 To 5) As String
  21.  
  22. 'open the table as recordset
  23. Dim d As DAO.Recordset
  24. Set d = CurrentDb.OpenRecordset("blogs", dbOpenTable)
  25.  
  26. 'lets get the structs
  27. Set oChildren = oDoc.selectNodes("//struct")
  28. For Each oStruct In oChildren
  29.  
  30. 'the struct has members,
  31.  
  32.    Set Members = oStruct.childNodes
  33.    For Each Member In Members
  34.  
  35. 'each member has a param pair (field, value)
  36. 'skip the first param, and store the field value
  37. 'in an array
  38.  
  39.        Set Params = Member.childNodes
  40.        For Each Param In Params
  41.             ct = ct + 1
  42.             If ct / 2 <> Int(ct / 2) Then
  43.                 SArray(ct / 2) = Param.Text
  44.                 cs = cs + 1
  45.             End If
  46.        Next
  47.  
  48.     Next
  49.  
  50.     'we got the struct data,
  51.     'now add the array to the database
  52.    
  53.      With d
  54.         .AddNew
  55.         !isAdmin = SArray(1)
  56.         !url = SArray(2)
  57.         !blogid = SArray(3)
  58.         !blogName = SArray(4)
  59.         !xmlrpc = SArray(5)
  60.         .Update
  61.     End With
  62.  
  63. Next
  64.  
  65. 'close up shop
  66. d.Close
  67. Set d = Nothing
  68.  
  69. End Function

The other worpdress api calls work quite the same.

]]> http://www.juust.org/index.php/more-vba-and-wordpress-xml-rpc/2009/10/feed/ 0 wordpress xmlrpc and microsoft access vba http://www.juust.org/index.php/wordpress-xmlrpc-and-microsoft-access-vba/2009/10/ http://www.juust.org/index.php/wordpress-xmlrpc-and-microsoft-access-vba/2009/10/#comments Mon, 19 Oct 2009 13:05:25 +0000 juust http://www.juust.org/?p=972 I was building a database in Wordpress but their table interface lacks completely and I dont want to spend 200 hours developing a backend for a once-off project.

I always used MsAccess for RAD blueprinting and I reckon you can build a better more flexible interface in 20 hours. With XHR MsAccess has some better internet capabilities these days, a nice simple XMLHttp library.

You can use it for any http rest api in the cloud.

Ajax for Access :) here’s the most basic wordpress xml-rpc call, sayHello.

  1. Sub PutXML()
  2.  
  3. txtURL = "http://www.blog.com/xmlrpc.php"
  4. txtUserName = "user"
  5. txtPassword = "pwd"
  6.  
  7.   Dim objSvrHTTP As ServerXMLHTTP
  8.   Dim strT As String
  9.   Set objSvrHTTP = New ServerXMLHTTP
  10.  
  11.   objSvrHTTP.Open "POST", txtURL, False, CStr(txtUserName), _
  12.    CStr(txtPassword)
  13.  
  14.   objSvrHTTP.setRequestHeader "Accept", "application/xml"
  15.   objSvrHTTP.setRequestHeader "Content-Type", "application/xml"
  16.  
  17.   strT = ""
  18.   strT = strT & "<methodcall>"
  19.   strT = strT & "<methodname>demo.sayHello</methodname>"
  20.   strT = strT & "</methodcall>"
  21.  
  22.   objSvrHTTP.send strT
  23.  
  24.   MsgBox objSvrHTTP.responseText
  25.  
  26. End Sub

For pre-Vista you need the MSXML 6.0 library from microsoft, in Vista I already had it installed so you can add a reference to the library and off you go.

]]> http://www.juust.org/index.php/wordpress-xmlrpc-and-microsoft-access-vba/2009/10/feed/ 5 a social spider http://www.juust.org/index.php/a-social-spider/2009/01/ http://www.juust.org/index.php/a-social-spider/2009/01/#comments Sat, 24 Jan 2009 04:10:22 +0000 juust http://www.juust.org/?p=310 I was reading about the BloGee project and some other stuff and then I thought “how much trouble would it be writing a Wordpress plugin to do some basic ’social spidering’”. BloGee is about a micro-content format and that’s a bit out of my scope.

I want a simple ’social’ spider for Wordpress so I am going to take some functions of simpleTags and add them to the Wordpress xml-rpc server methods, to get some basic functionality I can call upon through the xml-rpc endpoint.

I don’t know if I mentioned that, adding methods to Wordpress XML-RPC differs from the straight forward use of Incutio because Wordpress uses its own filter/hook system, the actual IXR_Server instance is made and managed by Wordpress itself.

I hence don’t use the

  1. class PeekAtYouServer extends IXR_Server {

style class instancing, in stead I make a class where I hook the function I would normally hand to the IXR_Server as callback into wordpress by adding method/callback to the ‘xmlrpc_methods’ filter array.

  1.  class PeekAtYouServer {
  2.  
  3.   function PeekAtYouServer() {
  4.   //  add callbacks as methods to the array (filter) xmlrpc_methods
  5.    add_filter('xmlrpc_methods', array(&$this, 'filterXmlrpcMethods'));
  6.   }
  7.  
  8.   /**
  9.    * Here I connect the methodName pay.PeekAtYou to a custom function
  10.    *
  11.    * This is the array that is added (as pair) to the xmlrpc_methods filter
  12.    **/
  13.  
  14.   function filterXmlrpcMethods(&$methods) {
  15.    $methods['pay.PeekAtYou'] = array(&$this, 'onXmlRpcpayPeekAtYou');
  16.    return $methods;
  17.   }
  18.  
  19.   /**
  20.    * the custom function used as callback for pay.PeekAtYou
  21.    **/
  22.  
  23.   function onXmlRpcpayPeekAtYou($args) {
  24.     global $wpdb;
  25. //grab posts
  26.     $sql = "SELECT ID, post_title FROM " . $wpdb->posts . " WHERE post_status = 'publish'";
  27.     $posts = $wpdb->get_results($sql);
  28. //cycle through all posts and grab the IDs
  29.  
  30.     $result = array();
  31.     if (!empty($posts)) {
  32.      foreach ($posts as $post) $this->postids[] = $post->ID;
  33. //I got all the ids in an array,
  34. //now I grab the tags (query is from the simpleTags plugin)
  35.      $this->getTagsFromCurrentPosts();
  36.     } else {
  37.      return new IXR_Error(404, 'no posts for the selected criterium.');
  38.     }
  39.     return $this->tags_currentposts;
  40.   }
  41.  
  42.  /**
  43.   * Get tags from current post views
  44.   * (SimpleTags plugin)
  45.   * @return boolean
  46.   */
  47.  function getTagsFromCurrentPosts() {
  48.   if ( is_array($this->postids) && count($this->postids) > 0 ) {
  49.  
  50.    // Generate SQL from post id
  51.    $postlist = implode( "', '", $this->postids);
  52.  
  53.    global $wpdb;
  54.    $results = $wpdb->get_results("
  55.    SELECT t.name AS name, t.term_id AS term_id, tt.count AS count
  56.    FROM {$wpdb->term_relationships} AS tr
  57.    INNER JOIN {$wpdb->term_taxonomy} AS tt ON (tr.term_taxonomy_id = tt.term_taxonomy_id)
  58.    INNER JOIN {$wpdb->terms} AS t ON (tt.term_id = t.term_id)
  59.    WHERE tt.taxonomy = 'post_tag'
  60.    AND ( tr.object_id IN ('{$postlist}') )
  61.    GROUP BY t.term_id
  62.    ORDER BY tt.count DESC");
  63.  
  64.    $this->tags_currentposts = $results;
  65.    unset($results, $key);
  66.   }
  67.   return true;
  68.  }
  69.  }

I saved the file as PeekAtYouServer.class.php.

Now I need a simple file for Wordpress to ’spot the plugin’, so I can activate it and make the class instance, that adds the custom method and callback function.

  1.  /*
  2.  Plugin Name: PeekAtYou XMLRPC Server
  3.  Plugin URI: http://www.juust.org/
  4.  Description: Adds Social Spidering to your blog
  5.  Author: juust
  6.  Author URI: http://www.juust.org/
  7.  License: GPL
  8.  Version: 1.1
  9.  */
  10.  
  11.  require_once 'PeekAtYouServer.class.php';
  12.  $PeekAtYouServer = new PeekAtYouServer();

I save that as PeekAtYouServer.php and upload the lot to a directory /wp-plugins/pay-xmlrpc-server.

In the Plugin screen (wp 2.5) I can activate the plugin, and then make a call to the xmlrpc-endpoint of the blog using pay.PeekAtYou as methodName.

  1.  include('wp-includes/class-IXR.php');
  2.         $client = new IXR_Client('http://www.juust.org/xmlrpc.php');
  3.  $client->query('pay.PeekAtYou');
  4.  $response = &$client->getResponse();
  5.  print_r( $response);

That returns all tags the blog uses.

Next week : adding some basic social blog-spider functions.

]]> http://www.juust.org/index.php/a-social-spider/2009/01/feed/ 1