#!/usr/bin/perl
use strict;
use warnings;
use CGI ':standard';
use LWP::UserAgent;
use HTML::Form;
use HTML::LinkExtor;

my $browser    = LWP::UserAgent->new;
my $browse_url = 'http://browseusers.myspace.com/Browse/Browse.aspx';
my $response   = $browser->get($browse_url);
my @forms      = HTML::Form->parse($response);

# Pull ACTION out of JavaScript function
my $content    = $response->content;
$content       =~ m{document\.frmBrowse\.action = "(.*?)"};
my $action_url = "http://browseusers.myspace.com/Browse/" . "$1";
$forms[1]->action($action_url);
my $action     = $forms[1]->action;

# Get Form Elements
my $zipRadius         = $forms[1]->find_input("zipRadius", "option");
my $zipCode           = $forms[1]->find_input("zipCode", "text");
my $minAge            = $forms[1]->find_input("minAge", "option");
my $maxAge            = $forms[1]->find_input("maxAge", "option");
my $showHasPhotoOnly  = $forms[1]->find_input("showHasPhotoOnly", "checkbox");
my $showNamePhotoOnly = $forms[1]->find_input("showNamePhotoOnly", "checkbox");

# Get Hidden Values
my $update          = $forms[1]->find_input("update", "submit");
my $__EVENTTARGET   = $forms[1]->find_input("__EVENTTARGET");		
my $Page            = $forms[1]->find_input("Page");
		
# Assign Values
$zipRadius->value("Any");
$zipCode->value("");
$minAge->value("18");
$maxAge->value("100");
$showHasPhotoOnly->value("on");
$showNamePhotoOnly->value("on");

# Assign Hidden Values
$update->value("");
$__EVENTTARGET->value("update");
$Page->value("1");

# Update Form
my $filled_out_request = $forms[1]->click;
# print $filled_out_request->as_string; 			
$response = $browser->request($filled_out_request);

# Parse Content For Links
my $p = HTML::LinkExtor->new;
$p->parse($response->content);
my @links = $p->links;
push my @urls, map {$_->[2]} @links;

# Remove Duplicates
my %saw;
@saw{@urls} = ();
my @unique_urls = sort keys %saw;

# Parse Urls
my @pages;
foreach my $sorted_url (@unique_urls) {
  # Friend Urls
  if ($sorted_url =~ m{http://profile.myspace.com/index.cfm\?fuseaction=user.viewProfile&friendID=(.*?)&}) {
    my $friend_id = $1;
    #print "$friend_id\n";
  }
  # Page Urls
  if ($sorted_url =~ m{javascript:GotoPage\((.*?)\)\;}) {
    my $page = $1;
    push(@pages, $page);
  }
}

# Get Last Page
my $lastpage = pop @pages;
#print "$lastpage\n";