Skip to content

Updated to use newest version of Reddit-API instead of the version from CPAN #13

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
earth-tone wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Updated to use newest version of Reddit-API instead of the version from CPAN #13

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
28 changes: 28 additions & 0 deletions lib/Reddit/Client.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -38,6 +38,7 @@ use constant VOTE_NONE => 0;

use constant SUBMIT_LINK => 'link';
use constant SUBMIT_SELF => 'self';
use constant SUBMIT_MESSAGE => 'message';

use constant API_ME => 0;
use constant API_INFO => 1;
Expand All @@ -54,6 +55,7 @@ use constant API_SUBREDDITS => 11;
use constant API_LINKS_FRONT => 12;
use constant API_LINKS_OTHER => 13;
use constant API_DEL => 14;
use constant API_MESSAGE => 15;

use constant SUBREDDITS_HOME => '';
use constant SUBREDDITS_MINE => 'mine';
Expand Down Expand Up @@ -86,6 +88,7 @@ $API[API_SUBREDDITS ] = ['GET', '/reddits/%s' ];
$API[API_LINKS_OTHER] = ['GET', '/%s' ];
$API[API_LINKS_FRONT] = ['GET', '/r/%s/%s' ];
$API[API_DEL ] = ['POST', '/api/del' ];
$API[API_MESSAGE ] = ['POST', '/api/compose' ];

#===============================================================================
# Package routines
Expand Down Expand Up @@ -511,6 +514,31 @@ sub submit_comment {
return $result->{data}{things}[0]{data}{id};
}

#===============================================================================
# Private messages
#===============================================================================

sub send_message {
my ($self, %param) = @_;
my $to = $param{to} || croak 'Expected "to"';
my $subject = $param{subject} || croak 'Expected "subject"';
my $text = $param{text} || croak 'Expected "text"';

croak '"subject" cannot be longer than 100 characters' if length $subject > 100;

$self->require_login;
DEBUG('Submit message to %s: %s', $to, $subject);

my $result = $self->api_json_request(api => API_MESSAGE, data => {
to => $to,
subject => $subject,
text => $text,
kind => SUBMIT_MESSAGE,
});

return $result;
}

#===============================================================================
# Voting
#===============================================================================
Expand Down