.cropmail-rules

File.umask 007
Message.maildir='/srv/mail/pug.qqx.org/lsm'

require 'stringio'
require 'tmail'
require '/home/lsm/ruby_lsm/lsm.rb'

class ::Cropmail::Message #{{{
  # Create a response to the current message.
  def create_response #{{{
    response = Message.new
    %w/ reply_to from unix_from /.each do |h|
      begin
        recipients = __send__ h
        unless recipients.addresses.empty?
          response.headers.add 'to', recipients
          break
        end
      rescue Exception
      end
    end

    if subject =~ /^\s*Re:/
      response.headers.add 'subject', subject
    else
      response.headers.add 'subject', "Re: #{subject}"
    end
    response.headers.add 'references', (references.to_s rescue '') + ' ' + message_id.to_s
    response.headers.add 'in-reply-to', message_id
    response.headers.add 'MIME-Version', '1.0'
    response.headers.add 'Content-Type', 'text/plain; charset="utf-8"'
    response.headers.add 'Content-Transfer-Encoding', '8bit'

    response
  end #}}}

  # Recurse through multipart messages, extracting LSM entries.
  def check_lsm response='' #{{{
    if is_multipart? then
      each do |part,invisible|
        next if invisible
        part.check_lsm response
      end
    elsif content_type.fulltype == 'text/plain' and decoded[/^Begin4/]
      begin
        io = StringIO.new decoded
        entry = LSM::Entry.new.from_file io
        if output = entry.report_errors
          response << "The following entry has errors, it will NOT be added.\n\n"
          response << output
          response << "\n\n"
        else
          response << "The following entry looks correct, it will be added.\n\n"
          response << entry.format
          response << "\n\n"

          File.open( Time.now.strftime('/home/lsm/updates/lsm.%Y-%m-%d'), 'a' ) do |f|
            f.flock File::LOCK_EX
            f.puts entry.format
            f.puts ''
          end
        end
      rescue Exception
      end
    else
      File.open( "/tmp/lsm.log", 'a' ) do |lsm_log|
        lsm_log.puts "Content type: #{content_type.fulltype}"
      end
    end

    response
  end #}}}
end #}}}

case subject
when /^\s*add\s*$/
  save "#{ENV['HOME']}/add-requests"
  response_body = check_lsm

  response = create_response
  response.headers.add 'bcc', 'LSM Maintainer <aaron@schrab.com>'

  if response_body == ''
    response.body = "No LSM entries were found."
  else
    response.body = response_body
  end

  response.forward_sendmail :use_t
when /^\s*(template|help)\s*$/
  response = create_response

  response.body = File.read "#{ENV['HOME']}/lsm-template"
  response.forward_sendmail :use_t
end

done
save "#{ENV['HOME']}/failed_mail"

# vim: ft=ruby fdm=marker