File Coverage

blib/lib/POE/Filter/Slim/CLI.pm

Criterion	Covered	Total	%
statement	43	44	97.7
branch	3	4	75.0
condition			n/a
subroutine	8	8	100.0
pod	3	3	100.0
total	57	59	96.6

package POE::Filter::Slim::CLI;

#
# $Id: CLI.pm 26 2007-09-07 04:32:54Z andy $
#
# Filter lines according to SlimServer's CLI spec:
# Any combination of CR, LF, and \0 is accepted, and
# the same line-ending must be used for the response
#
# This filter also splits and unescapes any CLI commands

use strict;
use base 'POE::Filter::Line';

use Carp qw(carp croak);
use Clone qw(clone);
use URI::Escape qw(uri_escape);

sub DEBUG () { 0 }

sub FRAMING_BUFFER   () { 0 }
sub INPUT_REGEXP     () { 1 }
sub OUTPUT_LITERAL   () { 2 }

if ( DEBUG ) {
    require Data::Dump;
}

our $VERSION = '0.02';

sub new {
    my $type = shift;

    my $input_regexp = qr/[\x0D|\x0A|\x00]+/;

    my $self = $type->SUPER::new(
        InputRegexp => $input_regexp,
    );

    return $self;
}

sub get_one {
    my $self = shift;

    LINE:
    while (1) {
        last LINE
            unless $self->[FRAMING_BUFFER] =~ s/^(.*?)($self->[INPUT_REGEXP])//s;

        DEBUG && warn "using line ending: << ", unpack('H*', $2), " >>\n";

        # Save line-ending used in the request, it will be sent in the response
        $self->[OUTPUT_LITERAL] = $2;

        # Split and unescape CLI command
        my @elements = split / /, $1;
        s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg for @elements;

        return [ \@elements ];
    }

    return [];
}

sub put {
    my ( $self, $lines ) = @_;

    $lines = clone($lines);

    my @raw;
    foreach my $line ( @{$lines} ) {
        if ( ref $line eq 'ARRAY' ) {
            # Send an array of CLI commands
            my @output;
            for my $item ( @{$line} ) {
                $item = uri_escape($item);
                push @output, $item;
            }
            push @raw, join( ' ', @output ) . $self->[OUTPUT_LITERAL];
        }
        else {
            push @raw, $line . $self->[OUTPUT_LITERAL];
        }
    }

    DEBUG && warn "CLI Filter sent: " . Data::Dump::dump(\@raw) . "\n";

    return \@raw;
}

1;
__END__