1 84c190b6 2021-12-17 jrmu #!/usr/bin/perl
  2 84c190b6 2021-12-17 jrmu 
  3 84c190b6 2021-12-17 jrmu package Mail;
  4 84c190b6 2021-12-17 jrmu 
  5 84c190b6 2021-12-17 jrmu use strict;
  6 84c190b6 2021-12-17 jrmu use warnings;
  7 84c190b6 2021-12-17 jrmu use OpenBSD::Pledge;
  8 84c190b6 2021-12-17 jrmu use OpenBSD::Unveil;
  9 84c190b6 2021-12-17 jrmu use MIME::Base64;
 10 84c190b6 2021-12-17 jrmu use Digest::SHA qw(sha256_hex);
 11 84c190b6 2021-12-17 jrmu 
 12 84c190b6 2021-12-17 jrmu my %conf = %main::conf;
 13 84c190b6 2021-12-17 jrmu my $staff = $conf{staff};
 14 84c190b6 2021-12-17 jrmu my $hostname = $conf{hostname};
 15 84c190b6 2021-12-17 jrmu my $mailfrom = $conf{mailfrom};
 16 84c190b6 2021-12-17 jrmu my $mailname = $conf{mailname};
 17 84c190b6 2021-12-17 jrmu main::cbind("msg", "-", "mail", \&mmail);
 18 84c190b6 2021-12-17 jrmu 
 19 84c190b6 2021-12-17 jrmu sub init {
 20 84c190b6 2021-12-17 jrmu 	#dependencies for encrypt
 21 84c190b6 2021-12-17 jrmu 	unveil("/usr/bin/encrypt", "rx") or die "Unable to unveil $!";
 22 84c190b6 2021-12-17 jrmu 	#dependencies for mail
 23 84c190b6 2021-12-17 jrmu 	unveil("/usr/sbin/sendmail", "rx") or die "Unable to unveil $!";
 24 84c190b6 2021-12-17 jrmu 	unveil("/usr/lib/libutil.so.13.1", "r") or die "Unable to unveil $!";
 25 84c190b6 2021-12-17 jrmu 	unveil("/bin/sh", "rx") or die "Unable to unveil $!";
 26 84c190b6 2021-12-17 jrmu }
 27 84c190b6 2021-12-17 jrmu sub mmail {
 28 84c190b6 2021-12-17 jrmu 	my ($bot, $nick, $host, $hand, $text) = @_;
 29 84c190b6 2021-12-17 jrmu 	if ($staff !~ /$nick/) { return; }
 30 84c190b6 2021-12-17 jrmu 	if ($text =~ /^([-_0-9a-zA-Z~@!\.]{3,})\s+([-_0-9a-zA-Z~@!\.]{3,})/) {
 31 84c190b6 2021-12-17 jrmu 		my ($from, $to) = ($1, $2);
 32 84c190b6 2021-12-17 jrmu 		if (mail($from, $to, "support", "alpha bravo", "charlie delta echo foxtrot")) {
 33 84c190b6 2021-12-17 jrmu 			main::putserv($bot, "PRIVMSG $nick :mail sent from $from to $to");
 34 84c190b6 2021-12-17 jrmu 		} else {
 35 84c190b6 2021-12-17 jrmu 			main::putserv($bot, "PRIVMSG $nick :ERROR: failed to send mail");
 36 84c190b6 2021-12-17 jrmu 		}
 37 84c190b6 2021-12-17 jrmu 	}
 38 84c190b6 2021-12-17 jrmu }
 39 84c190b6 2021-12-17 jrmu 
 40 84c190b6 2021-12-17 jrmu sub mail {
 41 84c190b6 2021-12-17 jrmu 	my( $from, $to, $fromname, $subject, $body )=@_;
 42 84c190b6 2021-12-17 jrmu my $msg = <<"EOF";
 43 84c190b6 2021-12-17 jrmu From: $from
 44 84c190b6 2021-12-17 jrmu To: $to
 45 84c190b6 2021-12-17 jrmu Subject: $subject
 46 84c190b6 2021-12-17 jrmu MIME-Version: 1.0 
 47 84c190b6 2021-12-17 jrmu Content-Type: text/plain; charset=us-ascii
 48 84c190b6 2021-12-17 jrmu Content-Disposition: inline
 49 84c190b6 2021-12-17 jrmu 
 50 84c190b6 2021-12-17 jrmu $body
 51 84c190b6 2021-12-17 jrmu EOF
 52 84c190b6 2021-12-17 jrmu open(my $fh, "| /usr/sbin/sendmail -tv -F '$fromname' -f $from") or die "Could not send mail $!";
 53 84c190b6 2021-12-17 jrmu print $fh $msg;
 54 84c190b6 2021-12-17 jrmu close $fh;
 55 84c190b6 2021-12-17 jrmu return "true";
 56 84c190b6 2021-12-17 jrmu }
 57 84c190b6 2021-12-17 jrmu 
 58 84c190b6 2021-12-17 jrmu 
 59 84c190b6 2021-12-17 jrmu #sub mailfinish {
 60 84c190b6 2021-12-17 jrmu #	my( $username, $password, $email, $service )=@_;
 61 84c190b6 2021-12-17 jrmu #my $msg = <<"EOF";
 62 84c190b6 2021-12-17 jrmu #From: support \<support\@ircnow.org\>
 63 84c190b6 2021-12-17 jrmu #To: $email
 64 84c190b6 2021-12-17 jrmu #Subject: Welcome to IRCNow!
 65 84c190b6 2021-12-17 jrmu #MIME-Version: 1.0 
 66 84c190b6 2021-12-17 jrmu #Content-Type: text/plain; charset=us-ascii
 67 84c190b6 2021-12-17 jrmu #Content-Disposition: inline
 68 84c190b6 2021-12-17 jrmu #
 69 84c190b6 2021-12-17 jrmu #Welcome to IRCNow!
 70 84c190b6 2021-12-17 jrmu #
 71 84c190b6 2021-12-17 jrmu #Your account $username with password $password is now activated.
 72 84c190b6 2021-12-17 jrmu #
 73 84c190b6 2021-12-17 jrmu #For instructions on how to connect, please visit: https://ircnow.org
 74 84c190b6 2021-12-17 jrmu #
 75 84c190b6 2021-12-17 jrmu #For help, please visit our support channel on irc.ircnow.org #ircnow.
 76 84c190b6 2021-12-17 jrmu #
 77 84c190b6 2021-12-17 jrmu #IRCNow
 78 84c190b6 2021-12-17 jrmu #EOF
 79 84c190b6 2021-12-17 jrmu #open(my $fh, '| /usr/sbin/sendmail -tv -F support -f support@ircnow.org') or die "Could not send mail $!";
 80 84c190b6 2021-12-17 jrmu #print $fh $msg;
 81 84c190b6 2021-12-17 jrmu #close $fh;
 82 84c190b6 2021-12-17 jrmu #open($fh, '>>', "$database") or die "Could not open file '$database' $!";
 83 84c190b6 2021-12-17 jrmu #print $fh $msg;
 84 84c190b6 2021-12-17 jrmu #close $fh;
 85 84c190b6 2021-12-17 jrmu #}
 86 84c190b6 2021-12-17 jrmu #
 87 84c190b6 2021-12-17 jrmu 
 88 84c190b6 2021-12-17 jrmu #sub createmail {
 89 84c190b6 2021-12-17 jrmu #	my ($password, $username) = @_;
 90 84c190b6 2021-12-17 jrmu #	my $encrypted = `encrypt $password`;
 91 84c190b6 2021-12-17 jrmu #	chomp($encrypted);
 92 84c190b6 2021-12-17 jrmu #	my $line = "${username}\@ircnow.org:${encrypted}::::::userdb_quota_rule=*:storage=1G";
 93 84c190b6 2021-12-17 jrmu #	$line =~ s{\$}{\\\$}g;
 94 84c190b6 2021-12-17 jrmu #	my $line2 = "${username}\@ircnow.org	vmail";
 95 84c190b6 2021-12-17 jrmu #	my $line3 = "${username}:   ${username}\@ircnow.org";
 96 84c190b6 2021-12-17 jrmu #	`doas sh -c 'echo $line >> /etc/mail/passwd'`;
 97 84c190b6 2021-12-17 jrmu #	`doas sh -c 'echo $line2 >> /etc/mail/virtuals'`;
 98 84c190b6 2021-12-17 jrmu #	`doas sh -c 'echo $line3 >> /etc/mail/aliases'`;
 99 84c190b6 2021-12-17 jrmu #	`doas rcctl restart smtpd`;
100 84c190b6 2021-12-17 jrmu #	`doas rcctl reload dovecot`;
101 84c190b6 2021-12-17 jrmu #}
102 84c190b6 2021-12-17 jrmu 
103 84c190b6 2021-12-17 jrmu 1; # MUST BE LAST STATEMENT IN FILE