Changeset 356

Timestamp:

Nov 10, 2006, 8:28:52 PM (14 years ago)

Author:

nick

Message:

Get nearly to the point of doing some work

Location:

wiki-toolkit-plugin-ping

Files:

• lib/Wiki/Toolkit/Plugin/Ping.pm (modified) (2 diffs)
• t/02_call.t (added)

wiki-toolkit-plugin-ping/lib/Wiki/Toolkit/Plugin/Ping.pm

@@ -4 +4 @@
 use warnings;
 
-our $VERSION = '0.01';
+use vars qw( @ISA $VERSION );
 
-use base 'Wiki::Toolkit::Plugin';
+use Wiki::Toolkit::Plugin;
 use LWP;
 
+@ISA = qw( Wiki::Toolkit::Plugin );
+$VERSION = '0.01';
 
 
+# Set things up
 sub new {
     my $class = shift;
@@ -37 +40 @@
     # Done setup
     return $self;
+}
+
+# Define our post_write plugin, which does the ping
+# Happens in another thread, to stop it slowing things down
+sub post_write {
+    my $self = shift;
+
+    my %args = @_;
+    my ($node,$node_id,$version,$content,$metadata) =
+        @args{ qw( node node_id version content metadata ) };
+
+    # Spawn a new thread
+
+    # Build the ping URL
+    # Ping
 }