Changeset 354

Timestamp:

11/10/06 19:53:16 (5 years ago)

Author:

nick

Message:

Add setup and first test

Location:

wiki-toolkit-plugin-ping

Files:

• lib/Wiki/Toolkit/Plugin/Ping.pm (modified) (1 diff)
• t/01_init.t (added)

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

@@ -9 +9 @@
 use LWP;
 
+
+
 sub new {
     my $class = shift;
+    my %services = @_;
 
+    my $self = {};
+    bless $self, $class;
+
+    # Check the services
+    foreach my $service (keys %services) {
+        my $url = $services{$service};
+
+        # Make valid
+        unless($url =~ /^http:\/\//) {
+            $url = "http://".$url;
+            $services{$service} = $url;
+        }
+        unless($url =~ /\$url/) {
+            die("For $service, URL '$url' didn't contain \$url anywhere\n");
+        }
+    }
+
+    # Save
+    $self->{services} = \%services;
+
+    # Done setup
+    return $self;
 }
 
 1;
+__END__
+
+=head1 NAME
+
+Wiki::Toolkit::Plugin::Ping - "ping" various services when nodes are written
+
+=head1 SYNOPSIS
+
+  use Wiki::Toolkit::Plugin::Ping;
+  my $ping = Wiki::Toolkit::Plugin::Ping->new( 
+                    "geourl" => 'http://geourl.org/ping?p=$url'
+  );
+  $wiki->register_pugin( plugin => $ping );
+
+=head1 DESCRIPTIOn
+
+A plug-in for Wiki::Toolkit sites, which will "ping" various external services
+when a node is written. A list of the services to ping, and where in their
+URLs to add the URL of the node, are supplied when the plugin is created.
+
+=head1 AUTHOR
+
+The Wiki::Toolkit team (http://www.wiki-toolkit.org/)
+
+=head1 COPYRIGHT
+
+     Copyright (C) 2003-2004 I. P. Williams (ivorw_openguides [at] xemaps {dot} com).
+     Copyright (C) 2006 the Wiki::Toolkit team (http://www.wiki-toolkit.org/)
+     All Rights Reserved.
+
+This module is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+L<Wiki::Toolkit>, L<Wiki::Toolkit::Plugin>, L<OpenGuides>
+
+=cut