51 lines
1.4 KiB
Perl
51 lines
1.4 KiB
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
# DW::Controller::API::REST::Icons
|
||
|
|
#
|
||
|
|
# API controls for the icon system
|
||
|
|
#
|
||
|
|
# Authors:
|
||
|
|
# Allen Petersen <allen@suberic.net>
|
||
|
|
#
|
||
|
|
# Copyright (c) 2016 by Dreamwidth Studios, LLC.
|
||
|
|
#
|
||
|
|
# This program is free software; you may redistribute it and/or modify it under
|
||
|
|
# the same terms as Perl itself. For a copy of the license, please reference
|
||
|
|
# 'perldoc perlartistic' or 'perldoc perlgpl'.
|
||
|
|
#
|
||
|
|
|
||
|
|
package DW::Controller::API::Rest::Icons;
|
||
|
|
use DW::Controller::API::REST;
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use JSON;
|
||
|
|
|
||
|
|
my $icons_all = DW::Controller::API::REST->path( 'icons_all.yaml', 1, { 'get' => \&rest_get } );
|
||
|
|
my $icons = DW::Controller::API::REST->path( 'icons.yaml', 1, { 'get' => \&rest_get } );
|
||
|
|
|
||
|
|
sub rest_get {
|
||
|
|
my ( $self, $args ) = @_;
|
||
|
|
|
||
|
|
my $u = LJ::load_user( $args->{path}{username} );
|
||
|
|
return $self->rest_error("404") unless defined $u;
|
||
|
|
|
||
|
|
# if we're given a picid, try to load that userpic
|
||
|
|
if ( defined( $args->{path}{picid} ) && $args->{path}{picid} ne "" ) {
|
||
|
|
my $userpic = LJ::Userpic->get( $u, $args->{path}{picid} );
|
||
|
|
if ( defined $userpic ) {
|
||
|
|
return $self->rest_ok($userpic);
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
return $self->rest_error("404");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
# otherwise, load all userpics.
|
||
|
|
my @icons = grep { !( $_->inactive || $_->expunged ) } LJ::Userpic->load_user_userpics($u);
|
||
|
|
return $self->rest_ok( \@icons );
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|