.. ..
use WWW::Myspace; use WWW::Myspace::Comment;my $myspace = new WWW::Myspace;my $comment = WWW::Myspace::Comment-new( $myspace ); my $response = ""; # Post our comment until we're done - may take several days if we're # popular. while ( 1 ) { $response = $comment-post_comments( "Hey it's your girl Roxanne, thank you so much for showing my page some love!!! Have a fantastic day! " ); if ( $response eq "DONE" ) { # We're done sending this message - reset the exclusions # file, except for people who approve their comment posts. # This causes us to start over, posting only if we don't # already have a comment on their page (i.e. if it's been # pushed off). $comment-reset_exclusions; last; } # (If response is CAPTCHA or COUNTER, we wait then continue # until we're done). Note that you can probably sleep for 12 hours # instead of 24. sleep 24*60*60; #Sleep for a day, or run using cron }# (Also see post_all below, which implements this loop).