pidgin2adium 1.0.0-universal-darwin

data/bin/pidgin2adium_logs

@@ -0,0 +1,67 @@
+#!/usr/bin/ruby -w
+
+=begin
+Author: Gabe Berke-Williams, 2008
+This is the shell script, which is a wrapper around Pidgin2Adium::Logs.
+Call it like so:
+<tt>pidgin2adium_logs.rb -i ~/in_logs/ -o ~/out_logs/ -l AIM.myscreenname -a me,screenname,my_pidgin_alias,other_pidgin_alias</tt>
+For <tt>-a/--aliases</tt>, there is no need to use spaces or capitalization, since spaces will be stripped out and the aliases will
+be lowercased anyway.
+=end
+
+require 'pidgin2adium/logs'
+require 'optparse'
+
+options = {}
+OptionParser.new do |opts|
+    opts.banner = "Usage: #{File.basename($0)} [options]"
+    opts.on('-i IN_DIR', '--in IN_DIR', 'Specify directory where pidgin logs are stored') do |v|
+	options[:in] = v
+    end
+    opts.on('-o', '--out OUT_DIR', 'Specify directory where Adium logs will be stored (not the Adium directory in ~/Library)') do |out|
+	options[:out] = out
+    end
+    opts.on('-l', '--libdir LIBRARY_DIR',
+	    'Specify dirname where Adium logs are stored (eg "AIM.<username>" for',
+	    '~/Library/Application Support/Adium 2.0/Users/Default/Logs/AIM.<username>)') do |ld|
+	options[:libdir] = ld
+    end
+    opts.on('-d', '--debug', 'Turn debug on.') do |lf|
+	options[:debug] = true
+    end
+    opts.on('-t', "--time-zone [TIME ZONE]",
+	    "Set time zone like \"EST\". Defaults to local time zone: #{Time.now.zone}") do |tz|
+	options[:timezone] = tz
+    end
+    opts.on('-a', "--aliases MY_ALIASES_AND_SNs",
+	    "A comma-separated list of your aliases and screenname(s) so this script knows which person in a chat is you.",
+	    "Whitespace is removed and aliases are lowercased.") do |aliases|
+	options[:aliases] = aliases.split(',')
+    end
+    opts.on_tail("-h", "--help", "Show this message") do
+	puts opts
+	exit
+    end
+end.parse!
+
+need_opts = false
+required_opts = [[:i, :in], [:o, :out], [:l, :libdir], [:a, :aliases]]
+required_opts.each do |short, long|
+    if options.has_key?(short) or options.has_key?(long)
+	next
+    else
+	need_opts = true
+	puts "Required option -#{short}/--#{long} missing."
+    end
+end
+exit 1 if need_opts
+
+log_converter  =  Pidgin2Adium::Logs.new(options[:in],
+					 options[:out],
+					 options[:aliases],
+					 options[:libdir],
+					 options[:timezone],
+					 options[:debug]
+					)
+
+log_converter.start

data/bin/pidgin2adium_status

@@ -0,0 +1,15 @@
+#!/usr/bin/ruby
+
+# Shell script wrapper for Pidgin2Adium::Status
+
+require 'pidgin2adium/status'
+
+xml_file = ARGV[0]
+
+unless File.readable?(xml_file)
+    puts "XML file (#{xml_file}) is not readable. Exiting."
+    exit 1
+end
+
+status_converter = Pidgin2Adium::Status.new(xml_file)
+status_converter.start

data/lib/pidgin2adium/ChatFileGenerator.rb

@@ -0,0 +1,59 @@
+# ADD DOCUMENTATION
+require 'pidgin2adium/balance-tags.rb'
+
+module Pidgin2Adium
+    class ChatFileGenerator
+	def initialize(service, userSN, partnerSN, adiumChatTimeStart, destDirBase)
+	    @service = service
+	    @userSN = userSN
+	    @partnerSN = partnerSN
+	    @adiumChatTimeStart = adiumChatTimeStart
+	    @destDirBase = destDirBase
+
+	    # @chatLines is an array of Message, Status, and Event objects
+	    @chatLines = []
+	    # key is for Pidgin, value is for Adium
+	    # Just used for <service>.<screenname> in directory structure
+	    @SERVICE_NAME_MAP = {'aim' => 'AIM',
+		'jabber' =>'jabber',
+		'gtalk'=> 'GTalk',
+		'icq' => 'ICQ',
+		'qq' => 'QQ',
+		'msn' => 'MSN',
+		'yahoo' => 'Yahoo'}
+	end
+
+	# Add a line to @chatLines.
+	# It is its own method because attr_writer creates the method
+	# 'chatMessage=', which doesn't help for chatMessage.push
+	def appendLine(line)
+	    @chatLines.push(line)
+	end
+
+	# Returns path of output file
+	def convert()
+	    serviceName = @SERVICE_NAME_MAP[@service.downcase]
+	    destDirReal = File.join(@destDirBase, "#{serviceName}.#{@userSN}", @partnerSN, "#{@partnerSN} (#{@adiumChatTimeStart}).chatlog")
+	    FileUtils.mkdir_p(destDirReal)
+	    destFilePath = destDirReal << '/' << "#{@partnerSN} (#{@adiumChatTimeStart}).xml"
+	    if File.exist?(destFilePath)
+		return Pidgin2Adium::Logs::FILE_EXISTS
+	    end
+
+	    allMsgs = ""
+	    # TODO: inject?
+	    @chatLines.each { |obj| allMsgs << obj.getOutput() }
+	    # xml is done.
+	    
+	    # no \n before </chat> because allMsgs has it already
+	    ret = sprintf('<?xml version="1.0" encoding="UTF-8" ?>'<<"\n"+
+		      '<chat xmlns="http://purl.org/net/ulf/ns/0.4-02" account="%s" service="%s">'<<"\n"<<'%s</chat>', @userSN, serviceName, allMsgs)
+
+	    # we already checked to see if the file previously existed.
+	    outfile = File.new(destFilePath, 'w')
+	    outfile.puts(ret)
+	    outfile.close
+	    return destFilePath
+	end
+    end
+end

data/lib/pidgin2adium/SrcFileParse.rb

@@ -0,0 +1,485 @@
+# =SrcFileParse
+# The class +SrcFileParse+ has 2 subclasses, +SrcTxtFileParse+ and +SrcHtmlFileParse+
+# It parses the file passed into it and extracts the following
+# from each line in the chat: time, alias, and message and/or status.
+
+require 'parsedate'
+
+module Pidgin2Adium
+    # The two subclasses of +SrcFileParse+,
+    # +SrcTxtFileParse+ and +SrcHtmlFileParse+, only differ
+    # in that they have their own @lineRegex, @lineRegexStatus,
+    # and most importantly, createMsg and createStatusOrEventMsg, which take
+    # the +MatchData+ objects from matching against @lineRegex or
+    # @lineRegexStatus, respectively and return object instances.
+    # +createMsg+ returns a +Message+ instance (or one of its subclasses).
+    # +createStatusOrEventMsg+ returns a +Status+ or +Event+ instance.
+    class SrcFileParse
+	def initialize(srcPath, destDirBase, userAliases, userTZ, userTZOffset)
+	    @srcPath = srcPath
+	    # these two are to pass to chatFG in parseFile
+	    @destDirBase = destDirBase
+	    @userAliases = userAliases
+	    @userTZ = userTZ
+	    @userTZOffset = userTZOffset
+	    @tzOffset = getTimeZoneOffset()
+
+	    # Used in @lineRegex{,Status}. Only one group: the entire timestamp.
+	    @timestampRegexStr = '\(((?:\d{4}-\d{2}-\d{2} )?\d{1,2}:\d{1,2}:\d{1,2}(?: .{1,2})?)\)'
+	    # the first line is special: it tells us
+	    # 1) who we're talking to 
+	    # 2) what time/date
+	    # 3) what SN we used
+	    # 4) what protocol (AIM, icq, jabber...)
+	    @firstLineRegex = /Conversation with (.+?) at (.+?) on (.+?) \((.+?)\)/
+
+	    # Possible formats for timestamps:
+	    # "2007-04-17 12:33:13" => %w{2007, 04, 17, 12, 33, 13}
+	    @timeRegexOne = /(\d{4})-(\d{2})-(\d{2}) (\d{2}):(\d{2}):(\d{2})/
+	    # "4/18/2007 11:02:00 AM" => %w{4, 18, 2007, 11, 02, 00, AM}
+	    @timeRegexTwo = %r{(\d{1,2})/(\d{1,2})/(\d{4}) (\d{1,2}):(\d{2}):(\d{2}) ([AP]M)}
+	    # sometimes a line in a chat doesn't have a full timestamp
+	    # "04:22:05 AM" => %w{04 22 05 AM}
+	    @minimalTimeRegex = /(\d{1,2}):(\d{2}):(\d{2}) ?([AP]M)?/
+	    
+	    # {user,partner}SN set in parseFile() after reading the first line
+	    @userSN = nil
+	    @partnerSN = nil
+	    
+	    # @basicTimeInfo is for files that only have the full timestamp at
+	    # the top; we can use it to fill in the minimal per-line timestamps.
+	    # It has only 3 elements (year, month, dayofmonth) because
+	    # you should be able to fill everything else in.
+	    # If you can't, something's wrong.
+	    @basicTimeInfo = []
+
+	    # @userAlias is set each time getSenderByAlias is called. Set an
+	    # initial value just in case the first message doesn't give us an
+	    # alias.
+	    @userAlias = @userAliases[0]
+	    
+	    # @statusMap, @libPurpleEvents, and @events are used in
+	    # createStatusOrEventMessage.
+	    @statusMap = {
+		/(.+) logged in\.$/ => 'online',
+		/(.+) logged out\.$/ => 'offline',
+		/(.+) has signed on\.$/ => 'online',
+		/(.+) has signed off\.$/ => 'offline',
+		/(.+) has gone away\.$/ => 'away',
+		/(.+) is no longer away\.$/ => 'available',
+		/(.+) has become idle\.$/ => 'idle',
+		/(.+) is no longer idle\.$/ => 'available'
+	    }
+
+	    # libPurpleEvents are all of eventType libPurple
+	    @libPurpleEvents = [
+		# file transfer
+		/Starting transfer of .+ from (.+)/,
+		/^Offering to send .+ to (.+)$/,
+		/(.+) is offering to send file/,
+		/^Transfer of file .+ complete$/,
+		/Error reading|writing|accessing .+: .+/,
+		/You cancelled the transfer of/,
+		/File transfer cancelled/,
+		/(.+) cancelled the transfer of/,
+		/(.+) cancelled the file transfer/,
+		# Direct IM - actual (dis)connect events are their own types
+		/^Attempting to connect to (.+) at .+ for Direct IM\./,
+		/^Asking (.+) to connect to us at .+ for Direct IM\./,
+		/^Attempting to connect via proxy server\.$/,
+		/^Direct IM with (.+) failed/,
+		# encryption
+		/Received message encrypted with wrong key/,
+		/^Requesting key\.\.\.$/,
+		/^Outgoing message lost\.$/,
+		/^Conflicting Key Received!$/,
+		/^Error in decryption- asking for resend\.\.\.$/,
+		/^Making new key pair\.\.\.$/,
+		# file transfer - these are in this (non-used) list because you can't get the alias out of matchData[1]
+		/^You canceled the transfer of .+$/,
+		# sending errors
+		/^Last outgoing message not received properly- resetting$/,
+		/'Resending\.\.\./,
+		# connection errors
+		/Lost connection with the remote user:.+/,
+		# chats
+		/^.+ entered the room\.$/,
+		/^.+ left the room\.$/
+	    ]
+
+	    # non-libpurple events
+	    # Each key maps to an eventType string. The keys will be matched against a line of chat
+	    # and the partner's alias will be in regex group 1, IF the alias is matched.
+	    @eventMap = {
+		# .+ is not an alias, it's a proxy server so no grouping
+		/^Attempting to connect to .+\.$/ => 'direct-im-connect',
+		# NB: pidgin doesn't track when Direct IM is disconnected, AFAIK
+		/^Direct IM established$/ => 'directIMConnected',
+		/Unable to send message. The message is too large./ => 'chat-error',
+		/You missed .+ messages from (.+) because they were too large./ => 'chat-error'
+	    }
+	end
+
+	def getTimeZoneOffset()
+	    tzMatch = /([-\+]\d+)[A-Z]{3}\.txt|html?/.match(@srcPath)
+	    tzOffset = tzMatch[1] rescue @userTZOffset
+	    return tzOffset
+	end
+
+	# Adium time format: YYYY-MM-DD\THH.MM.SS[+-]TZ_HRS like:
+	# 2008-10-05T22.26.20-0800
+	def createAdiumTime(time)
+	    # parsedDate = [year, month, day, hour, min, sec]
+	    parsedDate = case time
+			 when @timeRegexOne
+			     [$~[1].to_i, # year
+			     $~[2].to_i,  # month
+			     $~[3].to_i,  # day
+			     $~[4].to_i,  # hour
+			     $~[5].to_i,  # minute
+			     $~[6].to_i]  # seconds
+			 when @timeRegexTwo
+			     hours = $~[4].to_i
+			     if $~[7] == 'PM' and hours != 12
+				 hours += 12
+			     end
+			     [$~[3].to_i, # year
+			      $~[1].to_i, # month
+			      $~[2].to_i, # day
+			      hours,
+			      $~[5].to_i, # minutes
+			      $~[6].to_i] # seconds
+			 when @minimalTimeRegex
+			     # "04:22:05" => %w{04 22 05}
+			     hours = $~[1].to_i
+			     if $~[4] == 'PM' and hours != 12
+				 hours += 12
+			     end
+			     @basicTimeInfo + # [year, month, day]
+			     [hours,
+			      $~[2].to_i, # minutes
+			      $~[3].to_i] # seconds
+			 else
+			     Pidgin2Adium.logMsg("You have found an odd timestamp.", true)
+			     Pidgin2Adium.logMsg("Please report it to the developer.")
+			     Pidgin2Adium.logMsg("The timestamp: #{time}")
+			     Pidgin2Adium.logMsg("Continuing...")
+
+			     ParseDate.parsedate(time)
+			 end
+	    return Time.local(*parsedDate).strftime("%Y-%m-%dT%H.%M.%S#{@tzOffset}")
+	end
+
+	# parseFile slurps up @srcPath into one big string and runs
+	# SrcHtmlFileParse.cleanup if it's an HTML file.
+	# It then uses regexes to break up the string, uses create(Status)Msg
+	# to turn the regex MatchData into data hashes, and feeds it to
+	# ChatFileGenerator, which creates the XML data string.
+	# This method returns a ChatFileGenerator object.
+	def parseFile()
+	    file = File.new(@srcPath, 'r')
+	    # Deal with first line.
+	    firstLine = file.readline()
+	    firstLineMatch = @firstLineRegex.match(firstLine)
+	    if firstLineMatch.nil?
+		file.close()
+		Pidgin2Adium.logMsg("Parsing of #{@srcPath} failed (could not find valid first line).", true)
+		return false
+	    else
+		# one big string, without the first line
+		if self.class == SrcHtmlFileParse
+		    fileContent = self.cleanup(file.read())
+		else
+		    fileContent = file.read()
+		end
+		file.close()
+	    end
+	    
+	    service = firstLineMatch[4]
+	    # userSN is standardized to avoid "AIM.name" and "AIM.na me" folders
+	    @userSN = firstLineMatch[3].downcase.gsub(' ', '')
+	    @partnerSN = firstLineMatch[1]
+	    pidginChatTimeStart = firstLineMatch[2]
+	    @basicTimeInfo = case firstLine
+			     when @timeRegexOne: [$1.to_i, $2.to_i, $3.to_i]
+			     when @timeRegexTwo: [$3.to_i, $1.to_i, $2.to_i]
+			     end
+
+	    chatFG = ChatFileGenerator.new(service,
+					   @userSN,
+					   @partnerSN,
+					   createAdiumTime(pidginChatTimeStart),
+					   @destDirBase)
+	    fileContent.each_line do |line|
+		case line
+		when @lineRegex
+		    chatFG.appendLine( createMsg($~.captures) )
+		when @lineRegexStatus
+		    msg = createStatusOrEventMsg($~.captures)
+		    # msg is nil if we couldn't parse the status line
+		    chatFG.appendLine(msg) unless msg.nil?
+		end
+	    end
+	    return chatFG
+	end
+
+	def getSenderByAlias(aliasName)
+	    if @userAliases.include? aliasName.downcase.sub(/^\*{3}/,'').gsub(/\s+/, '')
+		# Set the current alias being used of the ones in @userAliases
+		@userAlias = aliasName.sub(/^\*{3}/, '')
+		return @userSN
+	    else
+		return @partnerSN
+	    end
+	end
+
+	# createMsg takes an array of captures from matching against @lineRegex
+	# and returns a Message object or one of its subclasses.
+	# It can be used for SrcTxtFileParse and SrcHtmlFileParse because
+	# both of them return data in the same indexes in the matches array.
+	def createMsg(matches)
+	    msg = nil
+	    # Either a regular message line or an auto-reply/away message.
+	    time = createAdiumTime(matches[0])
+	    aliasStr = matches[1]
+	    sender = getSenderByAlias(aliasStr)
+	    body = matches[3]
+	    if matches[2] # auto-reply
+		msg = AutoReplyMessage.new(sender, time, aliasStr, body)
+	    else
+		# normal message
+		msg = XMLMessage.new(sender, time, aliasStr, body)
+	    end
+	    return msg
+	end
+
+	# createStatusOrEventMsg takes an array of +MatchData+ captures from
+	# matching against @lineRegexStatus and returns an Event or Status.
+	def createStatusOrEventMsg(matches)
+	    # ["22:58:00", "BuddyName logged in."]
+	    # 0: time
+	    # 1: status message or event
+	    msg = nil
+	    time = createAdiumTime(matches[0])
+	    str = matches[1]
+	    regex, status = @statusMap.detect{|regex, status| str =~ regex}
+	    if regex and status
+		# Status message
+		aliasStr = regex.match(str)[1]
+		sender = getSenderByAlias(aliasStr)
+		msg = StatusMessage.new(sender, time, aliasStr, status)
+	    else
+		# Test for event
+		regex = @libPurpleEvents.detect{|regex| str =~ regex }
+		eventType = 'libpurpleEvent' if regex
+		unless regex and eventType
+		    # not a libpurple event, try others
+		    regexAndEventType = @eventMap.detect{|regex,eventType| str =~ regex}
+		    if regexAndEventType.nil?
+			Pidgin2Adium.logMsg("You have found an odd status line. Please send this line to the developer.", true)
+			Pidgin2Adium.logMsg("The line is: #{str}", true)
+			return nil
+		    else
+			regex = regexAndEventType[0]
+			eventType = regexAndEventType[1]
+		    end
+		end
+		if regex and eventType
+		    regexMatches = regex.match(str)
+		    # Event message
+		    if regexMatches.size == 1
+			# No alias - this means it's the user
+			aliasStr = @userAlias
+			sender = @userSN
+		    else
+			aliasStr = regex.match(str)[1]
+			sender = getSenderByAlias(aliasStr)
+		    end
+		    msg = Event.new(sender, time, aliasStr, str, eventType)
+		end
+	    end
+	    return msg
+	end
+    end
+
+    class SrcTxtFileParse < SrcFileParse
+	def initialize(srcPath, destDirBase, userAliases, userTZ, userTZOffset)
+	    super(srcPath, destDirBase, userAliases, userTZ, userTZOffset)
+	    # @lineRegex matches a line in a TXT log file other than the first
+	    # @lineRegex matchdata:
+	    # 0: timestamp
+	    # 1: screen name or alias, if alias set
+	    # 2: "<AUTO-REPLY>" or nil
+	    # 3: message body
+	    @lineRegex = /#{@timestampRegexStr} (.*?) ?(<AUTO-REPLY>)?: (.*)$/o
+	    # @lineRegexStatus matches a status line
+	    # @lineRegexStatus matchdata:
+	    # 0: timestamp
+	    # 1: status message
+	    @lineRegexStatus = /#{@timestampRegexStr} ([^:]+?)[\r\n]/o
+	end
+
+    end
+
+    class SrcHtmlFileParse < SrcFileParse
+	def initialize(srcPath, destDirBase, userAliases, userTZ, userTZOffset)
+	    super(srcPath, destDirBase, userAliases, userTZ, userTZOffset)
+	    # @lineRegex matches a line in an HTML log file other than the first
+	    # time matches on either "2008-11-17 14:12" or "14:12"
+	    # @lineRegex match obj:
+	    # 0: timestamp, extended or not
+	    # 1: screen name or alias, if alias set
+	    # 2: "&lt;AUTO-REPLY&gt;" or nil
+	    # 3: message body
+	    #  <span style='color: #000000;'>test sms</span>
+	    @lineRegex = /#{@timestampRegexStr} ?<b>(.*?) ?(&lt;AUTO-REPLY&gt;)?:?<\/b> ?(.*)<br ?\/>/o
+	    # @lineRegexStatus matches a status line
+	    # @lineRegexStatus match obj:
+	    # 0: timestamp
+	    # 1: status message
+	    @lineRegexStatus = /#{@timestampRegexStr} ?<b> (.*?)<\/b><br ?\/>/o
+	end
+
+	# Removes <font> tags, empty <a>s, and spans with either no color
+	# information or color information that just turns the text black.
+	# Returns a string.
+	def cleanup(text)
+	    # Pidgin and Adium both show bold using
+	    # <span style="font-weight: bold;"> except Pidgin uses single quotes
+	    # and Adium uses double quotes
+	    text.gsub!(/<\/?(html|body|font).*?>/, '')
+	    # These empty links are sometimes appended to every line in a chat,
+	    # for some weird reason. Remove them.
+	    text.gsub!(%r{<a href='.+?'>\s*?</a>}, '')
+	    text.gsub!(%r{(.*?)<span.+style='(.+?)'>(.*?)</span>(.*)}) do |s|
+		# before = text before match
+		# style = style declaration
+		# innertext = text inside <span>
+		# after = text after match
+		before, style, innertext, after = *($~[1..4])
+		# TODO: remove after from string then see what balanceTags does
+		# Remove empty spans.
+		nil if innertext == ''
+		# Only allow some style declarations
+		# We keep:
+		# font-weight: bold
+		# color (except #000000)
+		# text-decoration: underline
+		styleparts = style.split(/; ?/)
+		styleparts.map! do |p|
+		    # Short-circuit for common declaration
+		    # Yes, sometimes there's a ">" before the ";".
+		    if p == 'color: #000000;' or p == 'color: #000000>;'
+			nil
+		    else
+			case p
+			when /font-family/: nil
+			when /font-size/: nil
+			when /background/: nil
+			end
+		    end
+		end
+		styleparts.compact!
+		if styleparts.empty?
+		    style = ''
+		elsif styleparts.size == 1
+		    style = styleparts[0] << ';'
+		else
+		    style = styleparts.join('; ') << ';'
+		end
+		if style != ''
+		    innertext = "<span style=\"#{style}\">#{innertext}</span>"
+		end
+		before + innertext + after
+	    end
+	    # Pidgin uses <em>, Adium uses <span>
+	    if text.gsub!('<em>', '<span style="italic">')
+		text.gsub!('</em>', '</span>')
+	    end
+	    return text
+	end
+    end
+
+    # A holding object for each line of the chat.
+    # It is subclassed as appropriate (eg AutoReplyMessage).
+    # All Messages have senders, times, and aliases.
+    class Message
+	def initialize(sender, time, aliasStr)
+	    @sender = sender
+	    @time = time
+	    @aliasStr = aliasStr
+	end
+    end
+   
+    # Basic message with body text (as opposed to pure status messages, which
+    # have no body).
+    class XMLMessage < Message
+	def initialize(sender, time, aliasStr, body)
+	    super(sender, time, aliasStr)
+	    @body = body
+	    normalizeBody!()
+	end
+
+	def getOutput
+	    return sprintf('<message sender="%s" time="%s" alias="%s">%s</message>' << "\n",
+			   @sender, @time, @aliasStr, @body)
+	end
+
+	def normalizeBody!
+	    normalizeBodyEntities!()
+	    # Fix mismatched tags. Yes, it's faster to do it per-message
+	    # than all at once.
+	    @body = Pidgin2Adium.balanceTags(@body)
+	    if @aliasStr[0,3] == '***'
+		# "***<alias>" is what pidgin sets as the alias for a /me action
+		@aliasStr.slice!(0,3)
+		@body = '*' << @body << '*'
+	    end
+	    @body = '<div><span style="font-family: Helvetica; font-size: 12pt;">' <<
+	    @body << 
+	    '</span></div>'
+	end
+
+	def normalizeBodyEntities!
+	    # Convert '&' to '&amp;' only if it's not followed by an entity.
+	    @body.gsub!(/&(?!lt|gt|amp|quot|apos)/, '&amp;')
+	    # replace single quotes with '&apos;' but only outside <span>s.
+	    @body.gsub!(/(.*?)(<span.*?>.*?<\/span>)(.*?)/) do
+		before, span, after = $1, ($2||''), $3||''
+		before.gsub("'", '&aquot;') <<
+		    span <<
+		    after.gsub("'", '&aquot;')
+	    end
+	end
+    end
+
+    # An auto reply message, meaning it has a body.
+    class AutoReplyMessage < XMLMessage
+	def getOutput
+	    return sprintf('<message sender="%s" time="%s" auto="true" alias="%s">%s</message>' << "\n", @sender, @time, @aliasStr, @body)
+	end
+    end
+
+    # A message saying e.g. "Blahblah has gone away."
+    class StatusMessage < Message
+	def initialize(sender, time, aliasStr, status)
+	    super(sender, time, aliasStr) 
+	    @status = status
+	end
+	def getOutput
+	    return sprintf('<status type="%s" sender="%s" time="%s" alias="%s"/>' << "\n", @status, @sender, @time, @aliasStr)
+	end
+    end
+  
+    # An <event> line of the chat
+    class Event < XMLMessage
+	def initialize(sender, time, aliasStr, body, type="libpurpleMessage")
+	    super(sender, time, aliasStr, body)
+	    @type = type
+	end
+
+	def getOutput
+	    return sprintf('<event type="%s" sender="%s" time="%s" alias="%s">%s</event>', @type, @sender, @time, @aliasStr, @body)
+	end
+    end
+end # end module

data/lib/pidgin2adium/balance-tags.rb

@@ -0,0 +1,115 @@
+
+module Pidgin2Adium
+    #From Wordpress's formatting.php; rewritten in Ruby by Gabe Berke-Williams, 2009.
+    #Balances tags of string using a modified stack.
+    #
+    # @author Leonard Lin <leonard@acm.org>
+    # @license GPL v2.0
+    # @copyright November 4, 2001
+    # @return string Balanced text.
+    def Pidgin2Adium.balanceTags( text )
+	tagstack = []
+	stacksize = 0
+	tagqueue = ''
+	newtext = ''
+	single_tags = ['br', 'hr', 'img', 'input', 'meta'] # Known single-entity/self-closing tags
+	nestable_tags = ['blockquote', 'div', 'span'] # Tags that can be immediately nested within themselves
+	tag_regex = /<(\/?\w*)\s*([^>]*)>/
+
+	# WP bug fix for comments - in case you REALLY meant to type '< !--'
+	text.gsub!('< !--', '<    !--')
+
+	# WP bug fix for LOVE <3 (and other situations with '<' before a number)
+	text.gsub!(/<([0-9]{1})/, '&lt;\1')
+
+	while ( regex = text.match(tag_regex) )
+	    regex = regex.to_a
+	    newtext << tagqueue
+	    i = text.index(regex[0])
+	    l = regex[0].length
+
+	    # clear the shifter
+	    tagqueue = ''
+	    # Pop or Push
+	    if (regex[1][0,1] == "/") # End Tag
+		tag = regex[1][1,regex[1].length].downcase
+		# if too many closing tags
+		if(stacksize <= 0)
+		    tag = ''
+		    #or close to be safe tag = '/' . tag
+		    # if stacktop value = tag close value then pop
+		elsif (tagstack[stacksize - 1] == tag) # found closing tag
+		    tag = '</' << tag << '>'; # Close Tag
+		    # Pop
+		    tagstack.pop
+		    stacksize -= 1
+		else # closing tag not at top, search for it
+		    (stacksize-1).downto(0) do |j|
+			if (tagstack[j] == tag)
+			    # add tag to tagqueue
+			    ss = stacksize - 1
+			    ss.downto(j) do |k|
+				tagqueue << '</' << tagstack.pop << '>'
+				stacksize -= 1
+			    end
+			    break
+			end
+		    end
+		    tag = ''
+		end
+	    else
+		# Begin Tag
+		tag = regex[1].downcase
+
+		# Tag Cleaning
+		if( (regex[2].slice(-1,1) == '/') || (tag == '') )
+		    # If: self-closing or '', don't do anything.
+		elsif ( single_tags.include?(tag) )
+		    # ElseIf: it's a known single-entity tag but it doesn't close itself, do so
+		    regex[2] << '/'
+		else
+		    # Push the tag onto the stack
+		    # If the top of the stack is the same as the tag we want to push, close previous tag
+		    if ((stacksize > 0) &&
+			! nestable_tags.include?(tag) &&
+			(tagstack[stacksize - 1] == tag))
+			tagqueue = '</' << tagstack.pop << '>'
+			stacksize -= 1
+		    end
+		    stacksize = tagstack.push(tag).length
+		end
+
+		# Attributes
+		attributes = regex[2]
+		if(attributes != '')
+		    attributes = ' ' << attributes
+		end
+		tag = '<' << tag << attributes << '>'
+		#If already queuing a close tag, then put this tag on, too
+		if (tagqueue)
+		    tagqueue << tag
+		    tag = ''
+		end
+	    end
+	    newtext << text[0,i] << tag
+	    text = text[i+l, text.length - (i+l)]
+	end
+
+	# Clear Tag Queue
+	newtext << tagqueue
+
+	# Add Remaining text
+	newtext << text
+
+	# Empty Stack
+	while(x = tagstack.pop)
+	    newtext << '</' << x << '>'; # Add remaining tags to close
+	end
+
+	# WP fix for the bug with HTML comments
+	newtext.gsub!("< !--", "<!--")
+	newtext.gsub!("<    !--", "< !--")
+
+	return newtext
+    end
+end

data/lib/pidgin2adium/logs.rb

@@ -0,0 +1,250 @@
+#!/usr/bin/ruby -w
+
+#Author: Gabe Berke-Williams, 2008
+#With thanks to Li Ma, whose blog post at
+#http://li-ma.blogspot.com/2008/10/pidgin-log-file-to-adium-log-converter.html
+#helped tremendously.
+#
+#A ruby program to convert Pidgin log files to Adium log files, then place
+#them in the Adium log directory with allowances for time zone differences.
+
+require 'pidgin2adium/SrcFileParse'
+require 'pidgin2adium/ChatFileGenerator'
+require 'fileutils'
+
+class Time
+    ZoneOffset = {
+	'UTC' => 0,
+	# ISO 8601
+	'Z' => 0,
+	# RFC 822
+	'UT' => 0, 'GMT' => 0,
+	'EST' => -5, 'EDT' => -4,
+	'CST' => -6, 'CDT' => -5,
+	'MST' => -7, 'MDT' => -6,
+	'PST' => -8, 'PDT' => -7,
+	# Following definition of military zones is original one.
+	# See RFC 1123 and RFC 2822 for the error in RFC 822.
+	'A' => +1, 'B' => +2, 'C' => +3, 'D' => +4,  'E' => +5,  'F' => +6, 
+	'G' => +7, 'H' => +8, 'I' => +9, 'K' => +10, 'L' => +11, 'M' => +12,
+	'N' => -1, 'O' => -2, 'P' => -3, 'Q' => -4,  'R' => -5,  'S' => -6, 
+	'T' => -7, 'U' => -8, 'V' => -9, 'W' => -10, 'X' => -11, 'Y' => -12
+    }
+    # Returns offset in hours, e.g. '+0900'
+    def Time.zone_offset(zone, year=Time.now.year)
+	off = nil
+	zone = zone.upcase
+	if /\A([+-])(\d\d):?(\d\d)\z/ =~ zone
+	    off = ($1 == '-' ? -1 : 1) * ($2.to_i * 60 + $3.to_i) * 60
+	elsif /\A[+-]\d\d\z/ =~ zone
+	    off = zone.to_i
+	elsif ZoneOffset.include?(zone)
+	    off = ZoneOffset[zone]
+	elsif ((t = Time.local(year, 1, 1)).zone.upcase == zone rescue false)
+	    off = t.utc_offset / 3600
+	elsif ((t = Time.local(year, 7, 1)).zone.upcase == zone rescue false)
+	    off = t.utc_offset / 3600
+	end
+	off
+    end
+end
+
+module Pidgin2Adium
+    # put's content. Also put's to @LOG_FILE_FH if @debug == true.
+    def Pidgin2Adium.logMsg(str, isError=false)
+	content = str.to_s
+	if isError == true
+	    content= "ERROR: #{str}"
+	end
+	puts content
+    end
+
+    class Logs
+	# FILE_EXISTS is returned by ChatFileGenerator.buildDomAndOutput() if the output logfile already exists.
+	FILE_EXISTS = 42
+	def initialize(src, out, aliases, libdir, tz=nil, debug=false)
+	    # These files/directories show up in Dir.entries(x)
+	    @BAD_DIRS = %w{. .. .DS_Store Thumbs.db .system}
+	    @src_dir = File.expand_path(src)
+	    @out_dir = File.expand_path(out)
+	    # Whitespace is removed for easy matching later on.
+	    @my_aliases = aliases.map{|x| x.downcase.gsub(/\s+/,'') }.uniq
+	    # @libdir is the directory in
+	    # ~/Library/Application Support/Adium 2.0/Users/Default/Logs/.
+	    # For AIM, it's like "AIM.<screenname>"
+	    # FIXME: don't make the user pass in libdir - we can and SHOULD change it on a per-service/screenname basis
+	    @libdir = libdir
+	    @DEFAULT_TIME_ZONE = tz || Time.now.zone
+	    @debug = debug
+	    unless File.directory?(@src_dir)
+		puts "Source directory #{@src_dir} does not exist or is not a directory."
+		raise Errno::ENOENT
+	    end
+	    unless File.directory?(@out_dir)
+		begin
+		    FileUtils.mkdir_p(@out_dir)
+		rescue
+		    puts "Output directory #{@out_dir} does not exist or is not a directory and could not be created."
+		    raise Errno::ENOENT
+		end
+	    end
+
+	    # local offset, like "-0800" or "+1000"
+	    @DEFAULT_TZ_OFFSET = '%+03d00'%Time.zone_offset(@DEFAULT_TIME_ZONE)
+	end
+
+	def start
+	    Pidgin2Adium.logMsg "Begin converting."
+	    begin
+		filesPath = getAllChatFiles(@src_dir)
+	    rescue Errno::EACCES => bang
+		Pidgin2Adium.logMsg("Sorry, permission denied for getting Pidgin chat files from #{@src_dir}.", true)
+		Pidgin2Adium.logMsg("Details: #{bang.message}", true)
+		raise Errno::EACCES
+	    end
+
+	    Pidgin2Adium.logMsg("#{filesPath.length} files to convert.")
+	    totalFiles = filesPath.size
+	    filesPath.each_with_index do |fname, i|
+		Pidgin2Adium.logMsg(
+		    sprintf("[%d/%d] Converting %s...",
+			(i+1), totalFiles, fname)
+		)
+		convert(fname)
+	    end
+
+	    copyLogs()
+	    deleteSearchIndexes()
+
+	    Pidgin2Adium.logMsg "Finished converting! Converted #{filesPath.length} files."
+	end
+
+
+	# Problem: imported logs are viewable in the Chat Transcript Viewer, but are not indexed,
+	# so a search of the logs doesn't give results from the imported logs.
+	# To fix this, we delete the cached log indexes, which forces Adium to re-index.
+	def deleteSearchIndexes()
+	    Pidgin2Adium.logMsg "Deleting log search indexes in order to force re-indexing of imported logs..."
+	    dirtyFile=File.expand_path("~/Library/Caches/Adium/Default/DirtyLogs.plist")
+	    logIndexFile=File.expand_path("~/Library/Caches/Adium/Default/Logs.index")
+	    [dirtyFile, logIndexFile].each do |f|
+		if File.exist?(f)
+		    if File.writable?(f)
+			File.delete(f)
+		    else
+			Pidgin2Adium.logMsg("#{f} exists but is not writable. Please delete it yourself.", true)
+		    end
+		end
+	    end
+	    Pidgin2Adium.logMsg "...done."
+	    Pidgin2Adium.logMsg "When you next start the Adium Chat Transcript Viewer, it will re-index the logs, which may take a while."
+	end
+
+	# <tt>convert</tt> creates a new SrcHtmlFileParse or SrcTxtFileParse object,
+	# as appropriate, and calls its parse() method.
+	# Returns false if there was a problem, true otherwise
+	def convert(srcPath)
+	    ext = File.extname(srcPath).sub('.', '').downcase
+	    if(ext == "html" || ext == "htm")
+		srcFileParse = SrcHtmlFileParse.new(srcPath, @out_dir, @my_aliases, @DEFAULT_TIME_ZONE, @DEFAULT_TZ_OFFSET)
+	    elsif(ext == "txt")
+		srcFileParse = SrcTxtFileParse.new(srcPath, @out_dir, @my_aliases, @DEFAULT_TIME_ZONE, @DEFAULT_TZ_OFFSET)
+	    elsif(ext == "chatlog")
+		# chatlog FILE, not directory
+		Pidgin2Adium.logMsg("Found chatlog FILE - moving to chatlog DIRECTORY.")
+		# Create out_dir/log.chatlog/
+		begin
+		    toCreate = "#{@out_dir}/#{srcPath}" 
+		    Dir.mkdir(toCreate)
+		rescue => bang
+		    Pidgin2Adium.logMsg("Could not create #{toCreate}: #{bang.class} #{bang.message}", true)
+		    return false
+		end
+		fileWithXmlExt = srcPath[0, srcPath.size-File.extname(srcPath).size] << ".xml"
+		# @src_dir/log.chatlog (file) -> @out_dir/log.chatlog/log.xml
+		File.cp(srcPath, File.join(@out_dir, srcPath, fileWithXmlExt))
+		Pidgin2Adium.logMsg("Copied #{srcPath} to " << File.join(@out_dir, srcPath, fileWithXmlExt))
+		return true
+	    else
+		Pidgin2Adium.logMsg("srcPath (#{srcPath}) is not a txt, html, or chatlog file. Doing nothing.")
+		return false
+	    end
+
+	    chatFG = srcFileParse.parseFile()
+	    return false if chatFG == false
+
+	    destFilePath = chatFG.convert()
+	    return \
+		case destFilePath
+		when false
+		    Pidgin2Adium.logMsg("Converting #{srcPath} failed.", true); 
+		    false
+		when FILE_EXISTS
+		    Pidgin2Adium.logMsg("File already exists.")
+		    true
+		else
+		    Pidgin2Adium.logMsg("Output to: #{destFilePath}")
+		    true
+		end
+	end
+
+	def getAllChatFiles(dir)
+	    return [] if File.basename(dir) == ".system"
+	    # recurse into each subdir
+	    return (Dir.glob(File.join(@src_dir, '**', '*.{htm,html,txt}')) - @BAD_DIRS)
+	end
+
+	# Copies logs, accounting for timezone changes
+	def copyLogs
+	    Pidgin2Adium.logMsg "Copying logs with accounting for different time zones..."
+	    # FIXME: not all logs are AIM logs, libdir may change
+	    realSrcDir = File.expand_path('~/Library/Application Support/Adium 2.0/Users/Default/Logs/') << "/#{@libdir}/"
+	    realDestDir = File.join(@out_dir, @libdir) << '/'
+
+	    src_entries =  Dir.entries(realSrcDir)
+	    dest_entries =  Dir.entries(realDestDir)
+	    both_entries = (src_entries & dest_entries) - @BAD_DIRS
+
+	    both_entries.each do |name|
+		my_src_entries = Dir.entries(realSrcDir << name) - @BAD_DIRS
+		my_dest_entries = Dir.entries(realDestDir << name) - @BAD_DIRS
+
+		in_both = my_src_entries & my_dest_entries
+		in_both.each do |logdir|
+		    FileUtils.cp(
+			File.join(realSrcDir, name, logdir, logdir.sub('chatlog', 'xml')),
+			File.join(realDestDir, name, logdir) << '/',
+				 :verbose => false)
+		end
+		# The logs that are only in one of the dirs are not necessarily
+		# different logs than the dest.  They might just have different
+		# timestamps. Thus, we use regexes.
+		only_in_src  = my_src_entries - in_both
+		only_in_dest = my_dest_entries - in_both
+		# Move files from realSrcDir that are actually in both, but
+		# just have different time zones.
+		only_in_src.each do |srcLogDir|
+		    # Match on everything except the timezone ("-0400.chatlog")
+		    fileBeginRegex = Regexp.new('^'<<Regexp.escape(srcLogDir.sub(/-\d{4}.\.chatlog$/, '')) )
+		    targetChatlogDir = only_in_dest.find{|d| d =~ fileBeginRegex}
+		    if targetChatlogDir.nil?
+			# Only in source, so we can copy it without fear of
+			# overwriting.
+			targetChatlogDir = srcLogDir
+			FileUtils.mkdir_p(File.join(realDestDir, name, targetChatlogDir))
+		    end
+		    # Move to targetChatlogDir so we overwrite the destination
+		    # file but still use its timestamp
+		    # (if it exists; if it doesn't, then we're using our own
+		    # timestamp).
+		    FileUtils.cp(
+			File.join(realSrcDir, name, srcLogDir, srcLogDir.sub('chatlog', 'xml')),
+			File.join(realDestDir, name, targetChatlogDir, targetChatlogDir.sub('chatlog', 'xml')),
+			:verbose => false
+		    )
+		end
+	    end
+	    Pidgin2Adium.logMsg "Log files copied!"
+	end
+    end
+end

data/lib/pidgin2adium/status.rb

@@ -0,0 +1,113 @@
+#!/usr/bin/ruby
+
+# Author: Gabe Berke-Williams 2008-11-25
+# Requires rubygems and hpricot (http://wiki.github.com/why/hpricot)
+
+# Script to import pidgin logs into Adium. It uses Applescript to create new statuses in Adium.
+# Stupid binary status file format. Thanks a lot, Adium.
+# It doesn't work in Mac OSX 10.5 (Leopard).
+# See: http://trac.adiumx.com/ticket/8863
+# It should work in Mac OSX 10.4 (Tiger), but is untested.
+#
+# TODO: check adium version in
+# /Applications/Adium.app/Contents
+# with this:
+#         <key>CFBundleShortVersionString</key>
+#         <string>1.3.4</string>
+# For Mac 10.5+, needs to be 1.4; should work for 10.4 with 1.3.x
+
+require 'rubygems'
+require 'hpricot'
+
+module Pidgin2Adium
+    class Status
+	def initialize(xml_file)
+	    @xml_file = File.expand_path(xml_file)
+	    #xml_file=File.expand_path("~/Desktop/purple/status.xml")
+	    # Unescape for Adium.
+	    @TRANSLATIONS = {
+		'&amp;' => '&',
+		'&lt;' => '<',
+		'&gt;' => '>',
+		# escape quotes for shell quoting in tell -e 'blah' below
+		'&quot;' => '\"',
+		'&apos;' => "\\'",
+		"<br>" => "\n"
+	    }
+	end
+	
+	def start
+	    # For some reason Hpricot doesn't like entities in attributes,
+	    # but since that only affects the status name, which only we see,
+	    # that's not really a problem.
+	    doc = Hpricot( File.read(xml_file) )
+	    $max_id = get_max_status_id
+	    # remove <substatus>'s because sometimes their message is different
+	    # from the actual message, and we don't want to grab them accidentally
+	    doc.search('substatus').remove
+
+	    doc.search('status').each do |status|
+		next if status.search('message').empty?
+		add_status_to_adium(status)
+	    end
+
+	    puts "All statuses have been migrated. Enjoy!"
+	end
+
+
+	def unescape(str)
+	    unescaped_str = str.clone
+	    # Unescape the escaped entities in Pidgin's XML.
+	    # translate "&amp;" first because sometimes the entities are
+	    # like "&amp;gt;"
+	    unescaped_str.gsub!('&amp;', '&')
+	    TRANSLATIONS.each do |k,v|
+		unescaped_str.gsub!(k, v)
+	    end
+	    return unescaped_str
+	end
+
+	def get_max_status_id
+	    # osascript line returns like so: "-1000, -8000, -1001, 24, -1002\n"
+	    # Turn the single String into an array of Fixnums.
+	    script = `osascript -e 'tell application "Adium" to get id of every status'`
+	    id = script.split(',').map{ |x| x.to_i }.max
+	    return id
+	end
+
+	def add_status_to_adium(elem)
+	    # pass in <status> element
+	    id = ($max_id += 1)
+	    # status_type is invisible/available/away
+	    status_type = elem.search('state').inner_html
+	    title = unescape( elem[:name] )
+	    status_message = unescape( elem.search(:message).inner_html )
+	    puts '-' * 80
+	    puts "status_type: #{status_type}"
+	    puts "title: #{title}"
+	    puts "status_message: #{status_message}"
+	    puts '-' * 80
+	    # TODO: when it actually works, remove this line
+	    command="osascript -e 'tell application \"Adium\" to set myStat to (make new status with properties {id:#{id}, saved:true, status type:#{status_type}, title:\"#{title}\", message:\"#{status_message}\", autoreply:\"#{status_message}\"})'"
+	    # TODO: popen[123]?
+	    p `#{command}`
+	    if $? != 0
+		puts "*" * 80
+		puts "command: #{command}"
+		puts "Uh-oh. Something went wrong."
+		puts "The command that failed is above."
+		# given 10.x.y, to_f leaves off y
+		if `sw_vers -productVersion`.to_f == 10.5
+		    puts "You are running Mac OS X 10.5 (Leopard)."
+		    puts "This script does not work for that version."
+		    puts "It should work for Mac OS X 10.4 (Tiger),"
+		    puts "but is untested."
+		    puts "See: http://trac.adiumx.com/ticket/8863"
+		end
+		puts "Return status: #{$?}"
+		puts "Error, exiting."
+		raise "You need Mac OS X Tiger (10.4)"
+	    end
+	end
+    end
+end

metadata

@@ -0,0 +1,60 @@
+--- !ruby/object:Gem::Specification 
+name: pidgin2adium
+version: !ruby/object:Gem::Version 
+  version: 1.0.0
+platform: universal-darwin
+authors: 
+- Gabe B-W
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-09-24 00:00:00 -04:00
+default_executable: 
+dependencies: []
+
+description: Converts Pidgin logs and statuses to Adium format and makes them available to Adium. Also installstwo shell scripts, pidgin2adium_logs and pidgin2adium_status.
+email: gbw@rubyforge.org
+executables: 
+- pidgin2adium_logs
+- pidgin2adium_status
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- lib/pidgin2adium/balance-tags.rb
+- lib/pidgin2adium/ChatFileGenerator.rb
+- lib/pidgin2adium/logs.rb
+- lib/pidgin2adium/SrcFileParse.rb
+- lib/pidgin2adium/status.rb
+has_rdoc: true
+homepage: http://pidgin2adium.rubyforge.org
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: pidgin2adium
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: Converts Pidgin logs and statuses to Adium format and makes them available to Adium.
+test_files: []
+