...
36:   use Everything::MAIL;
37:   my $addr = node2mail($$haverow{email},$n);
38:   $n = getNodeById(getId($n), 'force');
39:   $str.="<BR><H3>Your password and username should be on its way;</H3>";
40:   $str.= "Addr7: " . $addr;
...

##</code><code>##

sub node2mail
{
        my ($addr, $node) = @_;
        my @addresses = (ref $addr eq "ARRAY") ? @$addr:($addr);
        my $user = getNode($$node{author_user});
        my $subject = $$node{title};
        my $body = $$node{doctext};
        use Mail::Sender;

        my $SETTING = getNode('mail settings', 'setting');
        my ($mailserver, $from);
        if ($SETTING) {   
                my $MAILSTUFF = $SETTING->getVars();
                $mailserver = $$MAILSTUFF{mailServer};
                $from = $$MAILSTUFF{systemMailFrom};
        } else {
                $mailserver = "localhost";
                $from = "root\@localhost";
        }
 
        
        my $sender = new Mail::Sender{smtp => $mailserver, from => $from};
        $sender->MailMsg({to=>$addr,
                        subject=>$subject,
                        msg => $body});
        $sender->Close();
        my $value = "1...";
        return $value;
}