use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");$this->out(Zen::PerlHandler->get("IIc7a1102a58c38cc35c941ca362362583->mnt_opt_out_mail")->do($this->{C}));$this->out("\n<center>\n\n");if ( $C->{Success} ) {$this->out("\nWe received your request. You will not receive a message from $C->{UpUser}{name} in the future.\n\nAttention: If you have subscribed to ANY other list owned by $C->{UpUser}{name} NOT maintained by a DELAVO system, then you need to unsubscribe from those lists by following the opt-out link that must exist to all outgoing messages. In simple words: your unsubscription from a DELAVO list does not equal to a global opt-out from $C->{UpUser}{name}`s list/s.\n\nIf you change your mind and want to continue receiving message from $C->{UpUser}{name} through the DELAVO system, you can modify your opt-out status through your Profile inside your customer/affiliate account.\n\n");} else {$this->out("\nAn error occured\n\n");}$this->out("\n\n</center>\n\n");{my $G = (ref $this)->get("/headfoot/hf_auth.html", $this->{param}) or die "no skel /headfoot/hf_auth.html";my $out1 = $this->getOutput;$C->{central_content} = join('', @$out1);@$out1 = ();my $out2 = $G->execute($C);$this->out(@$out2) if $out2;}$this->out("");}