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/Modules.pm

@@ -0,0 +1,71 @@
+package SrvMngr::Controller::Modules;
+
+use strict;
+use warnings;
+use Mojo::Base 'Mojolicious::Controller';
+
+use Locale::gettext;
+use SrvMngr::I18N;
+
+#
+# routes : end
+#----------------------------------------------------------------------
+use SrvMngr qw(theme_list init_session);
+
+
+sub bugreport {
+    my $c = shift;
+
+    $c->app->log->info($c->log_req);
+
+    my $modul = $c->render_to_string( inline => "<p>#    my (\$lang, \$releaseVersion,
+<br>#	\$c->stash\(\'lang\', \'releaseVer\'
+#	\'navigation\'</p>");
+
+    $c->stash( modul => $modul );
+
+};
+
+
+sub support {
+    my $c = shift;
+
+    $c->app->log->info($c->log_req);
+    my $modul = $c->stash('modul');
+    $modul .= 'Mail result is 1 + 8.';
+
+    $c->stash( modul => $modul, PwdSet => '0', Unsafe => '0' );
+
+    #$c->render('modules/support');
+};
+
+
+sub modsearch {
+    my $c = shift;
+    my $module = $c->param('module');
+
+    $c->app->log->info($c->log_req);
+
+    my $redirect_url = SrvMngr->get_mod_url($module);
+    if($redirect_url ne "-1"){
+	#$c->render(text => "mod_search: $module to $redirect_url");
+        return $c->redirect_to($redirect_url);
+        #return $c->redirect_to( url_for($redirect_url) );
+    }
+    #$c->render(text => "mod_search: $module to 'welcome'");
+    return $c->redirect_to( $c->home_page );
+
+};
+
+
+sub whatever {
+    my $c = shift;
+    my $whatever = $c->param('whatever');
+
+    $c->app->log->info($c->log_req . ' ' . $whatever);
+
+    $c->render(text => "whatever: /$whatever did not match.", status => 404);
+};
+
+
+1;