File: test_message

package info (click to toggle)
libwww-myspace-perl 0.82-1
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 728 kB
  • ctags: 170
  • sloc: perl: 4,646; makefile: 10
file content (32 lines) | stat: -rwxr-xr-x 906 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#!/usr/bin/perl -w -I../lib
######################################################################
# test_message
# Sccsid:  %Z%  %M%  %I%  Delta: %G%
# $Id: test_message,v 1.3 2006/01/18 01:59:34 grant Exp $
######################################################################
# Copyright (c) 2006 Grant Grueninger, Commercial Systems Corp.
#
# Description:

use WWW::Myspace;
use WWW::Myspace::Message;

my $myspace = new WWW::Myspace;
print "Creating message...\n";
my $message = new WWW::Myspace::Message(
	$myspace, '-s', 'test subject',
	'-m', 'test message', 30204716, 30903772 );

print "Delay time: " . $message->delay_time . "\n";
$message->save('message.yaml');
$message->load('message.yaml');

print "Subject: " . $message->subject . "\n";

print "Message: " .  $message->message . "\n";

print "Delay Time: " . $message->delay_time . "\n";

print "Friends: " .
$message->friend_ids . "\n";