use utf8;
use strict;
use warnings; no warnings "redefine";
use Loader qw(get_mailadr);
use Cf qw($WDESCR $MAILDOM);

sub ipnr_mail_ripe($;$$) {
	my($txt,$flag,$ticket) = @_;

	if($ticket) {
		$ticket = "[$WDESCR #$ticket]";
	} else {
		$ticket = "";
	}
	my $sender = get_mailadr();

#Sender: $sender
	$txt = <<END .$txt;
Subject: NEW $ticket
From: $sender
To: auto-dbm\@ripe.net
END
	if($flag & 4) {
		($txt,$sender,$sender);
	} else {
		($txt,"hostmaster\@$MAILDOM","auto-dbm\@ripe.net","mr.ripe\@$MAILDOM");
	}
}
1;
