smeserver-manager/root/usr/share/smanager/lib/SrvMngr/Controller/Legacypanel.pm

package SrvMngr::Controller::Legacypanel;

#----------------------------------------------------------------------
# heading     : Legacy
# description : Legacy panel
# navigation  : 99999 9999
#----------------------------------------------------------------------
#----------------------------------------------------------------------
# name   : legacypanel,    method : get,   url : /legacypanel,     ctlact : Legacypanel#main
#
# routes : end
#----------------------------------------------------------------------

use strict;
use warnings;

use Mojo::Base 'Mojolicious::Controller';

use Locale::gettext;
use SrvMngr::I18N;
use SrvMngr qw(theme_list init_session);

#use SrvMngr::Model::Main;


sub main {

    my $c = shift;
    $c->app->log->info($c->log_req);

    my $title = $c->l('legacy panel');
    my $legacy_url = $c->param('url');
    my $legacy_height = $c->param('height') | 600;
    $c->stash( title => $title, modul => $legacy_url, height => $legacy_height );
    $c->render(template => 'embedded');

}

sub getlegacyurl {
	my $c = shift;
	my $url = shift;
	return "/smanager/legacypanel?url=$url";
}


1;