#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::Display::Command::Show;

use lib '/app/tools/common/lib';
use RSApache::Response::XSLT;

use lib '/app/tools/rps/lib';
use RPS::Command;
use base 'RPS::Command';

sub cmd  { return "show"; }
sub area { return "display"; }

sub execute {
    my ($self) = @_;

    # Give any inherited methods the first crack at this.
    # (This checks for login and basic access permissions).
    #
    my $response = $self->SUPER::execute();
    return $response if $response;

    my $page = $self->getParam("p") || 'index';
    my $subDir = $self->getParam("d");

    # !!! jpk - I don't actually understand what is going on here.
    # I am afraid that this violates my architecture.
    #

    my $template = '/app/tools/rps/templates/static';
    if ($subDir) {

        # let's be careful about this
        #
        $subDir =~ s/\W//g;
        $template .= '/' . $subDir;
    }

    # let's be careful about this
    #
    $page =~ s/\W//g;
    $template .= '/' . $page . '.xsl';

    # let's make sure this file exists
    #
    if ( !-e $template ) {

        # Sorry, you can't be here...
        #
        $self->addMessageXML( type => "error", code => kMsgAccessDenied );
        return RSApache::Response::XSLT->new( $self->{xml}, RPS::Command::kAccessDeniedTemplate );
    } else {
        $response = RSApache::Response::XSLT->new( $self->{xml}, $template );
        return $response;
    }
}

1;