| Next: Yawns::Tags | Previous: Yawns::Submission::Notes | [Table of Contents] |
Yawns::Submission - A module for interfacing with queued polls/articles
#!/usr/bin/perl -w
use Yawns::Submissions;
use strict;
my $queue = Yawns::Submissions->new();
#
# Get counts of pending things.
#
my $articles = $queue->articleCount();
my $polls = $queue->pollCount();
This module will interface with the submissions queue, allowing the number of polls and articles in the queues to be determined and worked with.
Create a new instance of this object.
Return the maximum ID of the submissions.
Find and return the number of pending articles in the queue.
Find and return the number of pending articles in the queue by the given user.
Return a hash-ref of all the articles that the given user has posted.
Return the author of the submitted article with the given ID, this is used to see if a logged in user may edit the given submission.
Find and return the number of pending polls in the submission queue.
Return all the polls in the submission queue.
Return the name, title, author and lead text off a pending article. This is used for the submissions list.
Return all the pending submissions in a form suitable for use in an RSS feed. This correctly escapes the HTML in the submission title and body.
Add a new article to the article queue.
Return details about the specified submission.
Get the notes associated with the given submission.
Add a note to a submission
Update an article in the submissions queue. This means that we'll change the text, title, etc.
Send the site administrator an email telling them of the new article submission.
Reject an article from the submissions queue - it is silently deleted.
Post an article from the submissions queue to the front page.
Add a new poll to the submissions queue.
Delete a pending poll from the queue.
Edit a pending poll
Get the given pending poll details from the submission queue.
Post a poll from the pending queue onto the live site.
Clean any cached content we might have.
Steve Kemp
http://www.steve.org.uk/
Copyright (c) 2005-2007 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.