--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/messagingfw/msgtestfw/Configurations/EmailMessage/smtp_send.pl	Mon Jan 18 20:36:02 2010 +0200
@@ -0,0 +1,83 @@
+# Copyright (c) 2004-2009 Nokia Corporation and/or its subsidiary(-ies).
+# All rights reserved.
+# This component and the accompanying materials are made available
+# under the terms of "Eclipse Public License v1.0"
+# which accompanies this distribution, and is available
+# at the URL "http://www.eclipse.org/legal/epl-v10.html".
+#
+# Initial Contributors:
+# Nokia Corporation - initial contribution.
+#
+# Contributors:
+#
+# Description:
+#
+
+#!/usr/bin/perl
+
+
+use strict;
+use IO::Socket;
+
+
+if(scalar @ARGV !=3) {
+  die "syntax <smtp host> <username> <rfc file>";
+}
+
+my $host=@ARGV[0];
+my $username=@ARGV[1];
+
+open RFC,"@ARGV[2]" or die "Couldn't open @ARGV[2]: $@";
+my @rfcfile = <RFC>;
+close RFC;
+
+my $socket = IO::Socket::INET->new(PeerAddr => $host, PeerPort => 25,  Proto => "tcp", Type => SOCK_STREAM) or die "Couldn't connect to $host : $@\n";
+
+
+my $welcome = <$socket>;
+print "<< $welcome";
+
+sendWait($socket,"HELO [127.0.0.1]");
+sendWait($socket,"RSET");
+sendWait($socket,"MAIL FROM:<$username>");
+sendWait($socket,"RCPT TO:<$username>");
+sendWait($socket,"DATA");
+
+
+foreach my $line (@rfcfile) {
+  chomp $line;
+  sendNoWait($socket,$line);
+}
+
+sendWait($socket,".");
+
+print $socket "QUIT\r\n";
+print ">> QUIT\n";
+close($socket);
+
+exit;
+
+sub sendWait($$)
+  {
+    my $socket;
+    my $line;
+    ($socket,$line) = @_;
+
+    print $socket "$line\r\n";
+    print ">> \"$line\"\n";
+    my $result;
+    chomp ($result = <$socket>);
+    print "<< $result\n";
+  }
+    
+
+sub sendNoWait($$)
+  {
+    my $socket;
+    my $line;
+    ($socket,$line) = @_;
+
+    print $socket "$line\r\n";
+    print ">> \"$line\"\n";
+  }
+