72 lines
1.5 KiB
Perl
72 lines
1.5 KiB
Perl
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;
|