#!/bin/sh

#
# test-smtp-auth.sh
#
# Developed by Ondrej Jombik <nepto@platon.sk>
# Copyright (c) 2005 Platon Group, http://platon.sk/
# Licensed under terms of GNU General Public License.
# All rights reserved.
#
# Changelog:
# 2005-10-19 - created
#

# $Platon$

#
# Add more BASE64 encoding functions if neccessary
#

encode_base64()
{
	encode_base64_perl
}

encode_base64_perl()
{
	perl -e '
		use MIME::Base64 qw(encode_base64);
		local($/) = undef;
		print encode_base64(<STDIN>);';
}

if [ "$#" -lt 3 ]; then
	echo
	echo "Usage:";
	echo "  $0 <hostname> <username> <password>";
	echo
	echo "Example:";
	echo "  $0 smtp.platon.sk rajo@opelclub.sk kofola";
	echo
	exit 1;
fi

host="$1";
user="$2";
pass="$3";

user_base64="` echo -n \"$user\" | encode_base64 `";
pass_base64="` echo -n \"$pass\" | encode_base64 `";

(
	sleep 2;
	echo "EHLO maxim.platon.sk";
	sleep 2;
	echo "AUTH LOGIN";
	sleep 2;
	echo "$user_base64";
	sleep 2;
	echo "$pass_base64";
	sleep 10;
) | telnet "$host" 25