use Myspacehacker;
use HtmlDebug;
use LWP::UserAgent;
use URI::Escape;

my $m = Myspacehacker::new;

$m->useproxy('127.0.0.1','8888');
$m->setdebug('dbg.html',1);

$m->login('useridm','passwd');

#my $s = "<img onload";
#for (my $i=1;$i<9985;$i++){
#    $s .= ' ';
#}
##$s.='=';
#$m->send_message('15222390','suject',uri_escape($s));
#sleep(4);
#my @messages = $m->check_messages;
#print length($messages[0]->{body});

#
#my $bigstr = "oh what happened, bitch?<img src=http:\/\/dcwomenscare.com\/2004\/nav\/shim.gif width=1000000 height=1>";
##for (my $ii=0;$ii<100;$ii++){
#    for (my $i=0;$i<1950;$i++){
#        $bigstr .= " "
#    }
#    $bigstr .= "\x0a\x0d";
##}
##$m->post_comment('90435641',$bigstr);
##$bigstr="<b>real<\/b> funny, prick.";
#$m->post_comment('111545374',$bigstr);
#my $ua = LWP::UserAgent->new;
#my $resp = $ua->get('http://en.wikipedia.org/wiki/Myspace');
#my $rtext = $resp->decoded_content;
#$rtext =~  s/<(?:[^>'"]|'.*?'|".*?")*>//gs;
#$rtext =~ s/\x0d\x0a//gs;
#my @text;
#for (my $i=0;$i<length($rtext)/25;$i+=25){
#    push @text, substr($rtext, $i,25);  
#}
my $hd = HtmlDebug::new;
my $el_list = '';
#
my @elements = $hd->elements;
my $elcnt = @elements;
#print $elcnt."\n";
#getc;


#for (my $i=0;$i<$elcnt/11;$i++) {
#    $el_list='';
#    for (my $ii=0;$ii<11;$ii++){
#
#        my $ind=$ii+(11*$i);
#       
#        $el_list .= "<$elements[$ind]>$elements[$ind]"."\n";
#        
#    }
#    $m->send_message('15222390','element list, hi!', "hi joe! ".$el_list);
#    print "$el_list\n";
#}

#foreach my $el ($hd->elements) {
#    
#    $el_list .= uri_escape("<$el>")."___".$text[$iter++].'___';
#    #print "$iter\n";
#    #$iter++;
#    my $sz=@text;
#    if ($iter >= $sz) { $iter=0; }
#}
#print $el_list;

#$m->send_message('15222390','element list, hi!',"hi!");#$el_list);
#
#$m->post_comment('90435641',$el_list);
sleep(5);
my @messages = $m->check_messages;
open FH, ">message-test-results.txt";
for (my $i=0;$i<9;$i++){
    my $results = $messages[$i]->{subject};
    print "x$results\n";
    $results =~ s/hi.joe\!.//gs;
    print FH $results;
    print "y$reults\n";
}
#$results =~ s/___.*?___//g;
#print length $results;
#$results =~ s/<br \/>/\x0d\x0a/gs;
#$results =~ s/\.\./NOPE/gs;

#
#my $rt = $comments[0]->{comment_html};
#$rt =~ s/<br \/>/\x0d\x0a/gs;
#print $rt;
##foreach $comment (@comments) {
#    print FH "$comment->{comment_html}\n";
#    print FH "$comment->{comment_text}\n\n\n";
#
#}
    

close FH;

#my $comment_text = $comments[0]{comment_text};
#my @results = split(/<br \/>/,$comment_text);
#print "\n";
#foreach my $item (@results) {
#    
#    print "$item\n";
#    
#}


#$m->post_thread_text('101399667','27807681','helloooooooooooooooooooo');
#$m->print_friendslist("1522390");
#my $body;

#my @ret = $m->get_userinfo("email",'rmikew420@yahoo.com');

=head
my $bigsp=" ";
for ($i=0;$i<20500;$i++){
	$bigsp .= " ";
}

$body = "xxx<img src=\"hello.jpg\">yyy hey there";

print $body."\n";	
	
$m->post_bulletin("hello", $body);

sleep 10;
while (!$m->check_bulletin($subject)) {

	print "not found after 5 seconds...reposting\n\n";
	$m->post_bulletin($subject, "bodyssss");
	
	sleep 10;
	
}
=cut