use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("Subject: Your cloud has been approved\n\nDear $C->{User}{name}, \nYour cloud has just been approved by admin:\n\nTitle:\n$C->{Cloud}{title}\n\nMessage:\n$C->{Cloud}{message}\n\nYou can review it at:\n$C->{PageLink}");}