stable-update to amispammer package

[Julián Moreno Patiño]

Hi,

amispammer package does not work anymore in Gnu Debian Squeeze, I attach the 
patch to fix it.

Thank you for your help.

Kind regards,

-- 
Julián Moreno Patiño
 .''`. Debian GNU/{Linux,KfreeBSD}
: :' : Free Operating Systems
`. `'  http://debian.org/
  `-   PGP KEY ID 6168BF60
Registered GNU Linux User ID 488513

Description: Fix detection of the IP address
Forwarded: no
Author: Julián Moreno Patiño <darkju...@gmail.com
Last-Update: 2011-07-19
--- a/amispammer	2010-04-30 11:42:33.000000000 -0500
+++ b/amispammer	2011-05-16 16:39:47.000000000 -0500
@@ -16,12 +16,12 @@
 {
         my $detected_ip="NULL";
         my $browser = LWP::UserAgent->new;
-        my $response = $browser->get("http://www.cualesmiip.es/";);
+        my $response = $browser->get("http://checkip.dyndns.org/";);
         $respuesta=$response->content;
         if ($response->is_success)
         {
-                my @trozos_init=split (/Tu IP es\<\/h1\>\<h1 align\=\"center\"\>/,$respuesta);
-                my @trozos_end=split (/\<\/h1\>\<h2/,$trozos_init[1]);
+                my @trozos_init=split (/Current IP Address: /,$respuesta);
+                my @trozos_end=split (/\<\/body\>\<\/html\>/,$trozos_init[1]);
                 $detected_ip=$trozos_end[0];
         }
         return ($detected_ip);

signature.asc
Description: Digital signature