#!/usr/bin/perl -w -I../lib
# Display the messages in your inbox.  If passed a friendID, display
# messages from that friend only.

use WWW::Myspace;

my ( $friend_id ) = @ARGV;

$myspace = new WWW::Myspace;
die $myspace->error if $myspace->error;

print "Getting inbox...\n";
my $messages = $myspace->inbox;

foreach $message ( @{$messages} ) {
  if ( ( ! $friend_id ) || ( $friend_id == $message->{sender} ) ) {
    print "Sender: " . $message->{sender} . "\n";
    print "Status: " . $message->{status} . "\n";
    print "messageID: " . $message->{message_id} . "\n";
    print "Subject: " . $message->{subject} . "\n\n";
  }
}