# Copyright (c) 2009 bivio Software, Inc. All Rights Reserved. # # Visit http://www.bivio.biz for more info. # # This library is free software; you can redistribute it and/or modify # it under the terms of the GNU Lesser General Public License as # published by the Free Software Foundation; either version 2.1 of the # License, or (at your option) any later version. # # This library is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # Lesser General Public License for more details. # # You should have received a copy of the GNU Lesser General Public # License along with this library; If not, you may get a copy from: # http://www.opensource.org/licenses/lgpl-license.html # # $Id: UnadornedPage.pm,v 1.2 2009/03/07 04:23:36 nagler Exp $ package Bivio::Biz::Action::UnadornedPage; use strict; use Bivio::Base 'Biz.Action'; our($VERSION) = sprintf('%d.%02d', q$Revision: 1.2 $ =~ /\d+/g); sub execute { my($proto, $req) = @_; my($reply) = b_use('AgentEmbed.Dispatcher') ->call_task($req, $req->format_uri({ uri => $req->unsafe_get('path_info') || '/', path_info => undef, query => $req->unsafe_get('query'), anchor => undef, no_context => 1, })); my($ot) = $reply->get_output_type; my($o) = $reply->get_output; $o = \("$$o") if $ot eq 'text/html' && $$o !~ //i; $req->get('reply')->set_output($o)->set_output_type($ot); return 1; } 1;