From b06cb421198add2f39455ec5c81ea36ef432b327 Mon Sep 17 00:00:00 2001
From: lace <>
Date: Fri, 16 Jul 2010 07:17:42 +0000
Subject: [PATCH] Remove any LMTP.

---
 perlmail-accept | 58 ---------------------------------------------------------
 1 file changed, 58 deletions(-)

diff --git a/perlmail-accept b/perlmail-accept
index 2f7df60..f2afff1 100755
--- a/perlmail-accept
+++ b/perlmail-accept
@@ -752,64 +752,6 @@ my($header,$map)=@_;
 	$Audit->replace_header($header,$text);
 }
 
-# LMTP engine:
-use Net::Cmd qw(CMD_OK CMD_MORE);
-{
-	package My::Net::SMTP::LMTP;
-	require Net::SMTP;
-	our @ISA=qw(Net::SMTP);
-	use Net::SMTP;
-	use Net::Cmd qw(CMD_OK);
-	use Carp qw(confess cluck);
-
-	# Do not: sub _HELO
-	# as it would not set {'net_smtp_esmtp'}
-	sub _EHLO { shift->command("LHLO", @_)->response()  == CMD_OK }
-
-	sub clucked
-	{
-	my($self,$func,@args)=@_;
-
-		do { return $_ if defined $_; } for $self->$func(@args);
-		cluck $func;
-		return;
-	}
-}
-
-
-sub lmtp_deliver
-{
-my($admin_user,$admin_pwd,$user_from,$user_to)=@_;
-
-	my $lmtp=My::Net::SMTP::LMTP->clucked("new","localhost","Port"=>"lmtp",
-#			"Debug"=>1,
-			) or return;
-	bless $lmtp,"My::Net::SMTP::LMTP";
-# Prevent:
-# due to:
-#	$lmtp->auth(Authen::SASL->new(
-#			"mechanism"=>"PLAIN",
-#			"callback"=>{
-#					"user"=>$admin_user,
-#					"pass"=>$admin_pwd,
-#					# Prevent: "authname"=>$admin_user
-#					# as it causes: DIE: Unknown callback: 'authname'. (user|auth|language|pass)
-#					}));
-	# FIXME: Authentication hack:
-	$lmtp->command("AUTH PLAIN")->response()==CMD_MORE
-			or do { cluck "auth announce"; return; };
-	$lmtp->clucked("command",encode_base64($user_from."\x00".$admin_user."\x00".$admin_pwd)) or return;
-	$lmtp->clucked("mail",$user_from) or return;
-	$lmtp->clucked("to",$user_to) or return;
-	$lmtp->clucked("data");	# Do not: or return;
-	# Prevent: 554 5.6.0 Message contains invalid header
-	(my $data=$Message)=~s/\AFrom .*\r?\n//;
-	$lmtp->clucked("datasend",$data) or return;
-	$lmtp->clucked("dataend") or return;
-	$lmtp->clucked("quit") or return;
-}
-
-
 # MAIN
 
 $Getopt::Long::ignorecase=0;
-- 
1.8.3.1