#!/usr/bin/perl -w
# Return the page the passed friendID is on.
#
# usage: get_friend_page friendID

use WWW::Myspace;

my ( $friend_id ) = @ARGV;

unless ( ( defined $friend_id ) && ( $friend_id =~ /^[0-9]+$/ ) ) {
	die "usage: get_friend_page friendID\n";
}

my $myspace = new WWW::Myspace;
die "Login failed\n" unless $myspace->logged_in;

my $friends = $myspace->get_friends;

if ( exists $friends->{ $friend_id } ) {
	print $friends->{ $friend_id }->{'page_no'} . "\n";
} else {
	print "Friend $friend_id not found in friend list\n";
}