#!/usr/bin/ruby
# vim: set nosta noet ts=4 sw=4:

require 'pathname'
require 'ezmlm' unless defined?( Ezmlm )


# A collection of messages for a specific archive thread.
#
#    thread = Ezmlm::List::Thread.new( list, 'acgcbmbmeapgpfckcdol' )
#    thread.subject         #=> "Help - navigate on interface?"
#    thread.first.date.to_s #=> "2017-05-07T14:55:05-07:00"
#
#---
class Ezmlm::List::Thread
	#  $Id$
	include Enumerable

	### Instantiate a new thread of messages given
	### a +list+ and a +thread_id+.
	###
	def initialize( list, thread_id )
		raise ArgumentError, "Unknown list object." unless list.respond_to?( :listdir )
		raise ArgumentError, "Malformed Thread ID." unless thread_id =~ /^\w{20}$/
		raise "Archiving is not enabled." unless list.archived?

		@list     = list
		@id       = thread_id
		@subject  = nil
		@messages = nil

		self.load_thread
	end


	# The list object this message is stored in.
	attr_reader :list

	# The thread's identifier.
	attr_reader :id

	# The subject line of the thread.
	attr_reader :subject

	# An array of member messages.
	attr_reader :messages

	# An array of member authors.
	attr_reader :authors


	### Enumerable API:  Lazy load each message ID as a
	### Ezmlm::List::Message, yielding it to the block.
	###
	def each
		self.load_thread # refresh for any thread updates since object was created
		self.messages.each do |id|
			yield Ezmlm::List::Message.new( self.list, id )
		end
	end
	alias_method :each_message, :each


	### Lazy load each author ID as a Ezmlm::List::Author, yielding it
	### to the block.
	###
	def each_author
		self.load_thread # refresh for any thread updates since object was created
		self.authors.each do |id|
			yield Ezmlm::List::Author.new( self.list, id )
		end
	end


	#########
	protected
	#########

	### Parse the subject index into an array of Messages.
	###
	def load_thread
		@messages = []
		@authors  = []
		path = self.thread_path
		raise "Unknown thread: %p" % [ self.id ] unless path.exist?

		path.open( 'r', encoding: Encoding::ISO8859_1 ) do |fh|
			fh.each_line.with_index do |line, i|
				if i.zero?
					@subject = line.match( /^\w+ (.+)/ )[1]
				else
					match = line.match( /^(\d+):\d+:(\w+) / ) or next
					self.messages << match[1].to_i
					self.authors  << match[2]
				end
			end
		end
	end


	### Return the path on disk for the thread index.
	###
	def thread_path
		prefix = self.id[ 0 ..  1 ]
		hash   = self.id[ 2 .. -1 ]
		return self.list.listdir + 'archive' + 'subjects' + prefix + hash
	end

end # class Ezmlm::List::Thread