#!/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;