r20628 - in /branches/upstream/libwww-myspace-perl/current: Changes META.yml lib/WWW/Myspace.pm

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Mon Jun  2 15:52:42 2008
New Revision: 20628

URL: http://svn.debian.org/wsvn/?sc=1&rev=20628
Log:
[svn-upgrade] Integrating new upstream version, libwww-myspace-perl (0.80)

Modified:
    branches/upstream/libwww-myspace-perl/current/Changes
    branches/upstream/libwww-myspace-perl/current/META.yml
    branches/upstream/libwww-myspace-perl/current/lib/WWW/Myspace.pm

Modified: branches/upstream/libwww-myspace-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libwww-myspace-perl/current/Changes?rev=20628&op=diff
==============================================================================
--- branches/upstream/libwww-myspace-perl/current/Changes (original)
+++ branches/upstream/libwww-myspace-perl/current/Changes Mon Jun  2 15:52:42 2008
@@ -1,4 +1,9 @@
 Revision history for WWW::Myspace
+
+0.80    2008-05-24
+        - Applied patch from RT#35703 by steven [...] pyro.eu.org
+        - Applied patch from RT#35702 by steven [...] pyro.eu.org
+        - Applied patch from RT#36100 by steven [...] pyro.eu.org
 
 0.79    2008-04-30
         - Updated get_friends method to work with current myspace paging system.

Modified: branches/upstream/libwww-myspace-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libwww-myspace-perl/current/META.yml?rev=20628&op=diff
==============================================================================
--- branches/upstream/libwww-myspace-perl/current/META.yml (original)
+++ branches/upstream/libwww-myspace-perl/current/META.yml Mon Jun  2 15:52:42 2008
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         WWW-Myspace
-version:      0.79
+version:      0.80
 version_from: lib/WWW/Myspace.pm
 installdirs:  site
 requires:
@@ -18,4 +18,4 @@
     YAML:                          0.39
 
 distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
+generated_by: ExtUtils::MakeMaker version 6.17

Modified: branches/upstream/libwww-myspace-perl/current/lib/WWW/Myspace.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libwww-myspace-perl/current/lib/WWW/Myspace.pm?rev=20628&op=diff
==============================================================================
--- branches/upstream/libwww-myspace-perl/current/lib/WWW/Myspace.pm (original)
+++ branches/upstream/libwww-myspace-perl/current/lib/WWW/Myspace.pm Mon Jun  2 15:52:42 2008
@@ -1,7 +1,7 @@
 ######################################################################
 # WWW::Myspace.pm
 # Sccsid:  %Z%  %M%  %I%  Delta: %G%
-# $Id: Myspace.pm 578 2008-05-01 02:43:47Z grantg $
+# $Id: Myspace.pm 580 2008-05-24 16:18:57Z oalders $
 ######################################################################
 # Copyright (c) 2005 Grant Grueninger, Commercial Systems Corp.
 #
@@ -42,11 +42,11 @@
 
 =head1 VERSION
 
-Version 0.79
-
-=cut
-
-our $VERSION = '0.79';
+Version 0.80
+
+=cut
+
+our $VERSION = '0.80';
 
 =head1 WARNING
 
@@ -633,6 +633,22 @@
     my $submitted="";
     $self->get_page( 'http://www.myspace.com/' );
     if ( $self->current_page->decoded_content =~
+       /ctl00\$ctl00\$Main\$cpMain\$SplashDisplay\$ctl01\$Email_Textbox/io )
+    {
+        # 2008-05-22 -- slight change to form input names; this could easily
+        #  change back in the future (it has done so previously)
+        $submitted = $self->submit_form( {
+#            page => 'http://www.myspace.com/',
+            form_name => 'aspnetForm',
+            fields_ref => { 'ctl00$ctl00$Main$cpMain$SplashDisplay$ctl01$Email_Textbox' => $self->account_name,
+                            'ctl00$ctl00$Main$cpMain$SplashDisplay$ctl01$Password_Textbox' => $self->password,
+    #                        '__EVENTTARGET' => 'ctl00$ctl00$Main$cpMain$SplashDisplay$ctl01$Login_ImageButton',
+    #                        '__EVENTARGUMENT' => '',
+                          },
+            action => 'http://secure.myspace.com/index.cfm?fuseaction=login.process',
+    #        no_click => 1,
+        } ) ;
+    } elsif ( $self->current_page->decoded_content =~
             /ctl00\$ctl00\$Main\$cpMain\$SplashDisplay\$ctl00\$Email_Textbox/io )
     {
         # 2008-04-11 -- they added an extra ctl00$ and cpMain$ to the names of
@@ -1378,6 +1394,11 @@
 #           $line =~ s/\+/ /g;
 #           $line =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
             $self->{user_name} = $2;
+
+	        # 2008-04-14 -- have noticed Myspace inserting <wbr/> randomly
+	        #  in the middle of the user's name on the homepage; these need to
+	        #  be stripped out
+	        $self->{user_name} =~ s/<w?br\s?\/>//ig;
         }
     }
     
@@ -6496,7 +6517,17 @@
         $content = $self->current_page->decoded_content;
     }
 
-    $content =~ /">\s*Next\s*((<\/a>)?((\s|&nbsp;)+(\&gt;|>))?|&rsaquo;\s*<\/a>)/io;
+    # Example HTML for 'Next' button in messaging inbox:
+    #  <a class="pagingLink" href="javascript:__doPostBack('ctl00$ctl00$Main$messagingMain$MessageList$pagingTop','2')">Next &rsaquo;</a>
+    #
+    # Example HTML for 'Next' button in friends list:
+    #  <a href="javascript: GotoPage(6);" class="nextPagingLink">next</a>
+    #
+    # Example HTML for a *disabled* 'Next' button in friends list -- we do not
+    # want to match this:
+    #  <a class="nextPagingLink disabledPaging">next</a>
+ 
+    $content =~ /<a [^>]*href=\"[^\"]*\"[^>]*>(\s|&nbsp;)*Next(\s|&nbsp;|&rsaquo;|&gt;)*<\/a>/io;
 
 }