sub {


use XML::Simple;
use LWP::Simple;
#use Data::Dumper;


my $DEBUG = 0;

my $additional_keyword = q|wholesale|;

my $query = $_[0] ||$IN->param('query') ;
$query =~ s/^\s//g;
$query =~ s/\s$//g;
$query =~ s/ /\+/g;
$query =~ s/\//\+/g;
$query =~ s/\W/+/g;
$query =~ s/\+$//g;
$query = lc($query);

# Section 1....
my $url = "http://www.wholesale411.com/cgi-bin/core/xml.cgi?cb=wholesaleroom&q=" . $query;

if ($DEBUG) { print $url . "<BR>"; }

my $page = get($url);
$page =~ s/^.*<\?xml.*\?>//s;

$page =~ s|\Q<BR>||sig;
$page =~ s|\Q<CR>||sig;


if (length($page) < 1) {
return;
}
$page =~ s/([\x7E-\xFF])/"#" . ord($1) . ";"/sge;

$page =~ s// /sig;

my $ref = XMLin($page);
my $link_count = $ref->{searchinfo}->{count};

print "Results: $link_count <BR>" if $DEBUG > 0;

if ($link_count < 1) {
my $back = redo_grab($query,$_[1]);
return $back;
} else {
my $back = grab_results($ref,$_[1]);
return $back;
}


# routine that will try and grab just one of the words from the entry, otherwise it will just use "wholesale"
sub redo_grab {

my $query = $_[0];

my @cut = split /\+/, $query;
push @cut, 'wholesale'; # hard-code the last option...

foreach (@cut) {

chomp;
my $query = $_;

if (length($_) < 4) { next }

$query =~ s/^\s//g;
$query =~ s/\s$//g;
$query =~ s/ /\+/g;
$query =~ s/\//\+/g;
$query =~ s/\W/+/g;
$query =~ s/\+$//g;
$query = lc($query);

# Section 1....
my $url = "";

if ($DEBUG) { print $url . "<BR>"; }

my $page = get($url);
$page =~ s|\Q<BR>||sig;
$page =~ s|\Q<CR>||sig;

if (length($page) < 1) {
return;
}

$page =~ s// /sig;

my $ref = XMLin($page);
my $link_count = $ref->{searchinfo}->{count};

print "Results: $link_count <BR>" if $DEBUG > 0;

if ($link_count < 1) {
next;
} else {
my $back = grab_results($ref,$_[1]);
return $back;
}

}

}

# call with: Links::Utils::grab_results($hashref,$count)
sub grab_results {

my $html_links;
my $count = 0;
my $hashref = $_[0];
my $link_count = $hashref->{searchinfo}->{count};

# if ($link_count && $DEBUG) {
# use Data::Dumper;
# return "<PRE>" . Dumper($hashref) . "</PRE>";
# }


if ($link_count > 1) {
$link_count = $_[1] if($_[1] && $link_count>$_[1]);
for ($count = 0; $count < $link_count; $count++) {

if (!$hashref->{results}->{listing}[$count]->{title}) { next; }

# get the variables all setup...
my $results;
$results->{Description} = $hashref->{results}->{listing}[$count]->{description};
$results->{Title} = $hashref->{results}->{listing}[$count]->{title};
$results->{ShowURL} = $hashref->{results}->{listing}[$count]->{url};
$results->{Links_PPC_Bid}= $hashref->{results}->{listing}[$count]->{bid};
$results->{URL} = $hashref->{results}->{listing}[$count]->{redirect};
$results->{PPCXML} = 'wholesale411.com';

# put the links into HTML format...
$html_links .= Links::SiteHTML::display('link', $results );

}

} else {

if (!$hashref->{results}->{listing}->{title}) { next; }

# get the variables all setup...
my $results;
$results->{Description} = $hashref->{results}->{listing}->{description};
$results->{Title} = $hashref->{results}->{listing}->{title};
$results->{ShowURL} = $hashref->{results}->{listing}->{url};
$results->{Links_PPC_Bid}= $hashref->{results}->{listing}->{bid};
$results->{URL} = $hashref->{results}->{listing}->{redirect};
$results->{PPCXML} = 'wholesale411.com';

# put the links into HTML format...
$html_links .= Links::SiteHTML::display('link', $results );
}

return $html_links;
}


}