use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");$this->out(Zen::PerlHandler->get("II5ee2d01bf61cb2798d6e05181923ad0d->mnt_list")->do($this->{C}));$this->out("");$this->out(Zen::PerlHandler->get("II5ee2d01bf61cb2798d6e05181923ad0d->act_set_viewed")->do($this->{C}));$this->out("<div class=\"card mb-4\">\n    <div class=\"card-header py-3\">\n        <h6 class=\"m-0 font-weight-bold text-primary\">\n            Messages\n        </h6>\n    </div>\n    <div class=\"card-body\">\n        <div class=\"table-responsive\">\n            <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100\%\" class=\"table table-bordered\">\n                <thead>\n                    <tr>\n                        <th>Date</th>\n                        <th>Author</th>\n                        <th>Message</th>\n                    </tr>\n                </thead>\n                <tbody>\n");my $in = $C->{messageList};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{msg} = -1;for my $f (@$loop) {$C->{ITERATION}{msg}++;$C->{msg} = $f;$this->out("                    <tr>\n                        <td>$C->{msg}{date_formated}</td>\n                        <td>$C->{msg}{author}</td>\n                        <td>$C->{msg}{text}</td>\n                    </tr>\n");}$this->out("                </tbody>\n            </table>\n        </div>\n    </div>\n</div>\n\n");{my $G = (ref $this)->get("/headfoot/hf_main.html", $this->{param}) or die "no skel /headfoot/hf_main.html";my $out1 = $this->getOutput;$C->{central_content} = join('', @$out1);@$out1 = ();my $out2 = $G->execute($C);$this->out(@$out2) if $out2;}$this->out("");}