#!/usr/bin/perl -w -I../lib
# Display the comments left for the specified user.
use WWW::Myspace;
my ( $friend_id, $filter ) = @ARGV;
$myspace = new WWW::Myspace;
print "Getting comments...\n";
my $comments = $myspace->get_comments( friend_id => $friend_id );
die $myspace->error if $myspace->error;
foreach $comment ( @{$comments} ) {
next if ( $filter && ( $filter != $comment->{sender} ) );
print "Comment ID: " . $comment->{comment_id} . "\n";
print "Sender: " . $comment->{sender} . "\n";
print "Sender Name: " . $comment->{sendername} . "\n";
print "Date: " . $comment->{date} . "\n";
print "Comment: " . $comment->{comment} . "\n";
}