Changeset 489 for wiki-toolkit-plugin-ping/trunk/lib/Wiki/Toolkit/Plugin/Ping.pm

Timestamp:

01/31/09 14:16:16 (3 years ago)

Author:

dom

Message:

Support configurable user-agent (also update copyright year and fix hard-coding the test port number in four places)

Files:

• wiki-toolkit-plugin-ping/trunk/lib/Wiki/Toolkit/Plugin/Ping.pm (modified) (6 diffs)

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

@@ -11 +11 @@
 
 @ISA = qw( Wiki::Toolkit::Plugin );
-$VERSION = '0.01';
+$VERSION = '0.02';
 
 
@@ -37 +37 @@
     }
     $self->{node_to_url} = $args{node_to_url};
+    $self->{agent} = $args{agent} || "Wiki::Toolkit::Plugin::Ping $VERSION";
     
 
@@ -98 +99 @@
         # Get a LWP instance
         my $ua = LWP::UserAgent->new;
-        $ua->agent("Wiki::Toolkit::Plugin::Ping $version");        
+        $ua->agent($self->{agent});
 
         # Ping each service
@@ -141 +142 @@
             services => {
                     "geourl" => 'http://geourl.org/ping?p=$url'
-            }
+            },
+            agent    => "My Wiki ping agent",
   );
   $wiki->register_pugin( plugin => $ping );
@@ -152 +154 @@
 
 You need to tell it how to turn a node into a URL (node_to_url), and what
-services to ping (services).
+services to ping (services). You can optionally pass a custom user-agent
+string
 
 =head1 AUTHOR
@@ -160 +163 @@
 =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.
+Copyright (C) 2003-2004 I. P. Williams (ivorw_openguides [at] xemaps {dot} com).
+Copyright (C) 2006-2009 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