| Next: Yawns::News | Previous: Yawns::Mailer | [Table of Contents] |
Yawns::Messages - A module for dealing with user-messaging.
#!/usr/bin/perl -w
use Yawns::Messages;
use strict;
my $msg = Yawns::Messages->new( username => $username );
my ( $new, $total) = $msg->messageCounts();
my $i = 0;
while( $i < $total )
{
my ( $to, $from, $text ) = $msg->getMessage( $i );
$i += 1;
}
This module deals with the static "about" pages we contain.
Create a new instance of this object.
Send a new message to a user.
Get the total of the messages.
Return an individual message. TODO: Caching.
Mark a message as read.
Mark a message a replied..
Return an array of all the messages for the given user.
Delete a given message.
Delete messages older than the given number of days
Delete all messages for the given user.
Clean any cached content we might have.
Steve Kemp
http://www.steve.org.uk/
Copyright (c) 2005,2006 by Steve Kemp. All rights reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. The LICENSE file contains the full text of the license.