#!/usr/bin/perl -w -I../lib
######################################################################
# send_message
# Sccsid:  %Z%  %M%  %I%  Delta: %G%
# $Id: send_message,v 1.3 2006/01/18 01:59:34 grant Exp $
######################################################################
# Copyright (c) 2004 Grant Grueninger, Commercial Systems Corp.
#
# Description:
# Interface to WWW::Myspace's send_message method.

#---------------------------------------------------------------------
# Setup Variables

# Debugging?
#$DEBUG=0;

#---------------------------------------------------------------------
# Libraries

use WWW::Myspace;

######################################################################
# Main Program

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

print $myspace->send_message( @ARGV ) . "\n";
if ( $myspace->error ) { warn $myspace->error . "\n"; }