initial commit of file from CVS for smeserver-manager on Fri Mar 22 14:54:28 AEDT 2024

root/usr/share/smanager/lib/SrvMngr/Controller/Legacypanel.pm

@@ -0,0 +1,41 @@
+package SrvMngr::Controller::Legacypanel;
+
+#----------------------------------------------------------------------
+# 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;