NAME

VERSION

WARNING

SYNOPSIS

 use WWW::Myspace;
 use WWW::Myspace::Message;
 
 my $myspace = new WWW::Myspace;
 
 my $message = new WWW::Myspace::Message( $myspace );
 
 $message->subject("Hi there!");
 $message->message("I'm sending you a message!\nIsn't that cool?\n");
 $message->add_to_friends( 1 );
 $message->friend_ids( $myspace->get_friends );
 $message->send_message;

The above will send a message to all our myspace friends, stopping if it sends max_count messages or if it receives a CAPTCHA request. Running the same routine again will continue sending where it left off, so if you have a lot of friends you could run it from a cron job.

WWW::Myspace::Message lets you create a message and send it to a group of friends. It implements a counter to avoid tripping WWW::Myspace anti-spam features. If you want to circumvent anti-spam features, this is not the module for you.

EXAMPLES

Since you may have more than 300 people to message, the following script will send a message to all of your friends, and then reset the exclusions file. This allows it to run as a sort of daemon. It will run for days if necessary and stop when finished.

 use WWW::Myspace;
 use WWW::Myspace::Message;

 my $myspace = new WWW::Myspace;

 my $message = WWW::Myspace::Message->new( $myspace );
 $message->subject("Hi there!");
 $message->message("I'm sending you a message!\nIsn't that cool?\n");
 $message->friend_ids( $myspace->get_friends );

 my $response = "";

 # Send our message to our friends until we're done - may take
 # several days if we're popular.
 while ( $response ne "DONE" ) {
        # Send to as many as we can right now. Will stop either
        # because it's DONE, it was asked for a CAPTCHA response,
        # or because it maxed out the COUNTER.
        $response = $message->send_message;

        # Wait for a day. (You can probably wait for just 12 hours).
        sleep 24*60*60;
 }

 # We're done sending this message - reset the exclusions file
 # completely.
 $message->reset_exclusions;

Note that because of the log WWW::Myspace::Message keeps, either script could be interrupted and restarted without re-sending to anyone.

The "while" loop above can be replaced with the "send_all" convenience method:

 $message->send_all;

This is probably the most practical example:

 # Set up
 use WWW::Myspace;
 use WWW::Myspace::Message;

 my $myspace = new WWW::Myspace;

 # Create the message
 my $message = WWW::Myspace::Message->new( $myspace );
 $message->subject("Hi there!");
 $message->message("I'm sending you a message!\nIsn't that cool?\n");
 $message->friend_ids( $myspace->get_friends );

 # Send our message to our friends until we're done - may take
 # several days if we're popular.
 $message->send_all;

 # We're done sending this message - reset the exclusions file
 # completely.
 $message->reset_exclusions;

Again, you could kill and restart this script and it'd pick up where it left off (and even incorporiate any changes in your friend list!). Of course if it finished and you restarted it, it'd re-message everyone.

ACCESSOR METHODS

 $message->add_to_friends( 1 );

 $message->skip_re( 'i hate everybody!* ?(<br>)?' );

 $message->friend_ids( 12345, 12347, 123456 ); # Set the list of friends
 
 @friend_ids = $message->friend_ids; # Retreive the list of friends

METHODS

 CAPTCHA if a CAPTCHA image code was requested.
 USAGE if we got a message saying we've exceeded our daily usage.
 COUNTER if it posted max_count comments and stopped.
 FAILURES if it keeps getting errors (more than 50 in a row).
 DONE if it posted everywhere it could.

 my $myspace = new WWW::Myspace;
 my $message = new WWW::Myspace::Message( $myspace );

 $message->subject("Hi there!");
 $message->message("This is a great message wraught with meaning.");
 $message->friend_ids( $myspace->get_friends );
 $message->send_all;

AUTHOR

BUGS

• new method should probably accept a hash of arguments to set all accessable settings (i.e. cache_file). Should also be callable with no arguments.
• If cache_file is called with no arguments and cache_file has not been set, it will create the cache dir by invoking the make_cache_dir method of the myspace object. It should probably not create the directory until it's actually writing to the file. Of course, if you don't set cache_file, the first time the method is called would be when writing to the cache file.
• If the myspace object hasn't been passed to the WWW::Myspace::Message object yet, and cache_file is called to retreive the default cache_file, the method will croak (as it's trying to call $myspace->make_cache_dir).
• If you somehow write to the exclusions file before the exclusions file has been read, $self->messaged will not read the exclusions cache file, and will therefore have an incomplete list. This shouldn't happen in normal operation as the send_message method reads the exclusions file when it's called.

Please report any bugs or feature requests to "bug-www-myspace at rt.cpan.org", or through the web interface at <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=WWW-Myspace>. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

    perldoc WWW::Myspace::Message

You can also look for information at:

• AnnoCPAN: Annotated CPAN documentation

  <http://annocpan.org/dist/WWW-Myspace>

• CPAN Ratings

  <http://cpanratings.perl.org/d/WWW-Myspace>

• RT: CPAN's request tracker

  <http://rt.cpan.org/NoAuth/Bugs.html?Dist=WWW-Myspace>

• Search CPAN

  <http://search.cpan.org/dist/WWW-Myspace>

ACKNOWLEDGEMENTS

COPYRIGHT & LICENSE

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.