#!/usr/bin/env ruby

#

# This script delivers a pile-o-test email to a local list.

#

# ** The list should first be configured to deliver to an additional

# Maildir. **

#

# After an initial delivery run, you can generate test replies.

#

require 'mail'

require 'faker'

require 'pathname'

abort "Usage: #{$0} send <listaddress> <message count>\n" +

	"       #{$0} reply </path/to/maildir> <message count>" if ARGV.size < 3

mode, list, count = ARGV

SENDERS = count.to_i.times.each_with_object( [] ) do |i, acc|

	acc << "%s %s <%s>" % [

		Faker::Name.first_name,

		Faker::Name.last_name,

		Faker::Internet.safe_email

	]

end

SUBJECTS = count.to_i.times.each_with_object( [] ) do |i, acc|

	intro = if rand(3).zero?

		"%s %s" % [

			[ 'Trying to', 'How do I', 'Help -' ].sample,

			Faker::Hacker.verb

		]

	else

		Faker::Hacker.ingverb.capitalize

	end

	acc << "%s %s %s %s%s" % [

		intro,

		( rand(2).zero? ? Faker::Hacker.noun : Faker::Hacker.abbreviation ),

		[ 'for a', 'on', 'on the', 'with some' ].sample,

		Faker::Hacker.noun,

		[ '?', '.', '?????'].sample

	]

end

Mail.defaults { delivery_method :sendmail }

case mode

	when 'send'

		until SENDERS.empty?

			mail = Mail.new do

				to      list

				from    SENDERS.pop

				subject SUBJECTS.pop

				body    Faker::Hacker.say_something_smart

			end

			mail.deliver

		end

	when 'reply'

		maildir = Pathname.new( list ) + 'new'

		abort "%s doesn't exist." unless maildir.exist?

		count.to_i.times do

			orig = Mail.read( maildir.children.sample.to_s )

			mail = Mail.new do

				to          orig.to

				from        SENDERS.sample

				subject     "Re: %s" % [ orig.subject ]

				body        Faker::Hacker.say_something_smart

				in_reply_to "<%s>" % [ orig.message_id ]

				references  "<%s>" % [ orig.message_id ]

			end

			mail.deliver

		end

end