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

@@ -0,0 +1,51 @@
+package SrvMngr::Controller::Swttheme;
+
+#
+# routes : end
+#----------------------------------------------------------------------
+use strict;
+use warnings;
+
+use Mojo::Base 'Mojolicious::Controller';
+
+#use SrvMngr qw(theme_list init_session);
+
+our $db = esmith::ConfigDB->open() || die "Couldn't open config db";
+
+sub main {
+
+    my $c = shift;
+
+    my $from = $c->param('From') || '/';
+    my $theme = $c->param('Theme');
+
+    $c->app->log->info(" swt theme '$from'  '$theme' ");
+
+    my $oldTheme = $c->session->{CurrentTheme};
+
+    if ( $theme ne $oldTheme ) {
+#	$c->app->renderer->paths([$c->app->home->rel_file('themes/default/templates')]);
+#	$c->app->static->paths([$c->app->home->rel_file('themes/default/public')]);
+#	if ( $theme ne 'default' ) {
+#        # Put the new theme first
+#	    my $t_path = $c->app->home->rel_file('themes/'.$theme);
+#	    unshift @{$c->app->renderer->paths}, $t_path.'/templates' if -d $t_path.'/templates';
+#	    unshift @{$c->app->static->paths},   $t_path.'/public' if -d $t_path.'/public';
+#	}
+        $c->session->{CurrentTheme} = $theme;
+
+	$db->get('smanager')->set_prop('Theme', $theme);
+	system ("/sbin/e-smith/signal-event smanager-theme-change") == 0
+	    or warn "$c->l('ERROR_UPDATING')";
+    }
+
+## (not sure)     $c->flash( warning => $c->l('swt_LOGIN_AGAIN') );
+    $from = '/initial' if $from eq '/';
+    $from = '/' . $from if ( $from !~ m|^\/| );
+
+    $c->redirect_to( $from);
+
+}
+
+
+1;