texmailer 0.1 → 0.2.d

data/bin/texmailer

@@ -1,4 +1,6 @@
 #!/usr/bin/env ruby
+TMVERSION = '0.2.d'
+
 require 'rubygems'
 require 'ftools'
 require 'erb'
@@ -14,6 +16,8 @@ require 'texmailer/drafts'
 require 'texmailer/config'
 require 'texmailer/send'
 require 'texmailer/wapp'
+require 'texmailer/iview'
+require 'texmailer/adbook'
 
 include Texmailer
 
@@ -22,12 +26,14 @@ $basedir = libdir + '/texmailer'
 # Parse Options
 theport = 6213
 $userdir = '~/.texmailer'
+daemonize = true
 
 opt = OptionParser.new { |opts| 
   opts.banner = "Usage: texmailer [options]"
   opts.on("-p PORT","--port PORT",Integer,"Port to listen on (default #{String(theport)})") { |p| theport = p }
   opts.on("-u DIRECTORY","--userdir DIRECTORY","User directory (default #{$userdir})") { |p| $userdir = p }
-
+  opts.on("-n","--no-daemon","Do not send to background") {daemonize = false}
+  opts.version = TMVERSION
   opts.on_tail("-h","--help","Displays this help message") { 
     puts opt
     exit(1)
@@ -41,6 +47,11 @@ rescue
 end
 
 $userdir = File.expand_path($userdir)
+
+$iv = Iview.new $userdir
+$ab = Adbook.new $userdir
+$iv.upabook
+
 # Make user directories if they don't exist
 begin
   Dir.mkdir($userdir,0700) if ! File.directory? $userdir
@@ -52,18 +63,24 @@ rescue
 end
 
 # Run webserver, fork and die
-begin
-  Rack::Handler::Mongrel.run(webapp, :Host=>"127.0.0.1", :Port=>theport) { |x|
-    if pid = Kernel.fork then
-      Process.detach(pid)
-      puts "Server running with PID=#{String(pid)}\n"
-      puts "Go to http://127.0.0.1:#{String(theport)}/ to send LaTeX-ed mail!\n"
-      exit(0)
-    end
+begin 
+  if daemonize then 
+    Rack::Handler::Mongrel.run(webapp, :Host=>"127.0.0.1", :Port=>theport) { |x|
+      if pid = Kernel.fork then
+        Process.detach(pid)
+        puts "Server running with PID=#{String(pid)}\n"
+        puts "Go to http://127.0.0.1:#{String(theport)}/ to send LaTeX-ed mail!\n"
+        exit(0)
+      end
 
-    $stderr.reopen('/dev/null','w')
-    $stdout.reopen('/dev/null','w')
-  }
+      $stderr.reopen('/dev/null','w')
+      $stdout.reopen('/dev/null','w')
+    }
+  else
+    Rack::Handler::Mongrel.run(webapp, :Host=>"127.0.0.1", :Port=>theport) { |x|
+      puts "Go to http://127.0.0.1:#{String(theport)}/ to send LaTeX-ed mail!\n"
+    }
+  end
 rescue
   STDERR.write "Could not listen on port #{String(theport)}. Make sure texmailer is not already running and that you have permissions.\n"
   exit(1)

data/lib/texmailer/adbook.rb

@@ -0,0 +1,98 @@
+require 'texmailer/iview'
+require 'net/imap'
+
+module Texmailer
+
+ABVERSION = '0.1'
+
+class Adbook
+
+  def initialize userdir
+    @afile = userdir+'/abook.dat'
+    if File.readable? @afile
+      data = Marshal.load(File.read(@afile))
+      @ab = data[1] if data[0] == ABVERSION
+    end
+    @ab ||= {}
+  end
+
+  def save
+    s = Marshal.dump([ABVERSION,@ab])
+    File.open(@afile,'w',0600) {|f| f.write s}
+  end
+
+
+  def search q
+    subs = {}
+    lg = q.length-1
+    query= q.upcase
+    @ab.each_pair { |em,nm|
+        if em[0..lg].upcase == query
+          subs[em] = nm
+        else
+          nm.split(" ").each { |x|
+            if x[0..lg].upcase == query
+              subs[em] = nm
+              break
+            end
+          }
+        end
+      }
+    lst = subs.to_a.collect{ |x|
+        nstr = x[1].strip
+        nstr = '"' + nstr + '" ' if nstr.length > 0
+        '\''+ nstr + '<'+x[0]+'>\'' 
+      }
+    return lst.join(",")
+  end
+
+  def upemail name,email
+    name = '' if name[0..0] == '='
+    @ab[email] = name if !(ename = @ab[email]) || ename.length < name.length
+  end
+
+  def uptolist em
+    arr = []
+    pfx = ''
+    while m = /[\,\"]/.match(em)
+      if m[0] == ','
+        arr = arr + [(pfx + m.pre_match).strip]
+        pfx = ''
+        em = m.post_match
+      elsif m2 = /[^\\]\"/.match(m.post_match)
+        pfx = pfx + m.pre_match + m[0] + m2.pre_match + m2[0]
+        em = m2.post_match
+      else
+        pfx = pfx + em
+        em = ''
+      end
+    end
+    if (s = (pfx+em).strip).length > 0
+      arr = arr + [s]
+    end
+    arr.each { |x|
+        if m = /.*?\"(.*?[^\\])\"\s*<([^@\s]*?@[^@\s]*?)>/.match(x)
+          upemail m[1].strip, m[2].strip
+        elsif m = /(.*?)<([^@]*?@[^@]*?)>/.match(x)
+          upemail m[1].strip, m[2].strip
+        elsif m = /[^\s\"]*?@[^\s\"]*/.match(x)
+          upemail '', m[0]
+        end
+      }
+  end
+
+  def upenv evs
+    evs.each { |x|
+        [x.from, x.to, x.cc].each { |y| 
+          y.each { |z|
+            upemail z.name||'', z.mailbox+"@"+z.host
+          } if y
+        }
+      }
+    save
+  end
+
+end
+
+
+end

data/lib/texmailer/config.rb

@@ -1,5 +1,53 @@
 module Texmailer
 
+  # From list
+  def loadflist
+    f = $userdir + "/flist.cfg"
+    return '' if ! File.readable? f
+    return File.read(f)
+  end
+
+  def getlist flist
+    return [] if ! flist
+    flist.strip!
+    return [] if flist.length == 0 
+    a = flist.split(",")
+    a.collect! {|x|
+      x.gsub(/\s/,'').gsub(/[\<\>]/,'')
+    }
+  end
+
+  def saveflist req
+    g = getlist req["flist"]
+    File.open($userdir + "/flist.cfg","w",0600) { |f| f.write g.join(', ')} 
+  end
+
+  # IMAP Parameters
+  def loadiparams
+    p = $iv.getsettings
+
+    ['host','port','ssl','igcert','user','password'].each { |x|
+      p[x] = String(p[x]) if p[x]
+      p[x] ||= 'false' if x == 'ssl' || x == 'igcert'
+      p[x] ||= ''
+    }
+    return p
+  end
+
+  def saveiparams req
+    p = Hash.new
+    ['host','user','password'].each { |x|
+      p[x] = req[x] if req[x]
+      p[x] ||= ''
+    }
+    p['port'] = Integer(req['port']) rescue
+    p['port'] ||= 143
+    p['ssl'] = req['ssl']  ? true : false
+    p['igcert'] = req['igcert']  ? true : false
+    $iv.savesettings p
+  end
+
+  # SMTP Parameters
   def loadparams
     p = Hash.new
     params = [['from',0],['mailfrom', 0],['host', 0],['port', 0],['ssl', 1],['igcert', 1],['auth', 1],['user', 0],['pass', 0]]
@@ -11,7 +59,7 @@ module Texmailer
         p[params[i-1][0]] = lns[i-1].sub(/\n/m,'')
       }
     end
-    p.inspect
+
     params.each { |x| p[x[0]] ||= '' }
     params.each { |x| p[x[0]] == 'false' if x[1] == 1 && p[x[0]] != 'true' }
     return p
@@ -57,12 +105,16 @@ module Texmailer
   def msmtp(req,message)
     fnm = makerc
     pr = loadparams
+    svdir = $userdir+"/drafts/"+req["mailid"]
+
     IO.popen("msmtp -C #{fnm} -t 2> #{$userdir}/msmtplog","w") { |p|
       [ ["To:","mailto"],["CC:","mailcc"],["BCC:","mailbcc"],["Subject:","subject"] ].each { |x|
         if req[x[1]] && req[x[1]].length > 0 then
           p.write x[0] + " " + req[x[1]].gsub(/\n/m,'') + "\n"
         end
       }
+      p.write(File.read(svdir+"/exhdr") + "\n") if File.readable? svdir+"/exhdr"
+    
       if pr["from"].length > 0 then
         p.write "From: #{pr["from"]} <#{pr["mailfrom"]}>\n"
       end

data/lib/texmailer/drafts.rb

@@ -1,7 +1,19 @@
 require 'cgi'
+require 'time'
+require 'net/imap'
+require 'texmailer/config'
 
 module Texmailer
 
+  def shortem(emlst)
+    emlst = emlst.gsub(/\s+/,' ')
+    r = /(\".*?\")\s*\<([^\>]*)\>/
+    a = emlst.gsub(r) { 
+      Regexp.last_match[1].gsub('"','')
+    }
+    return a
+  end
+
   def savedraft(mailid,req)
     svdir = $userdir + '/drafts/'+mailid
     if ! File.directory? svdir
@@ -10,8 +22,92 @@ module Texmailer
     ["mailto","mailcc","mailbcc","subject","body"].each { |s|
       File.open(svdir+'/'+s,"w") { |f| f.write req[s] }
     }
+    ["mailto","mailcc","mailbcc"].each { |s|
+      $ab.uptolist req[s]
+    }
   end
 
+  def makereply(cache,mailid)
+    p = loadparams
+    mfrom = p["mailfrom"]
+    mfrom = [mfrom] + getlist(loadflist)
+
+    evl = cache[0]
+    to = [evl.reply_to[0]] if evl.reply_to.length > 0
+    to ||= [evl.from[0]] if evl.from
+    to ||= []
+    cc = evl.cc
+    cc ||= []
+
+    if to.length == 0
+      to = to + evl.to if evl.to
+    else
+      cc = cc + evl.to if evl.to
+    end
+    
+    [to,cc].each { |em|
+      em.collect! { |x|
+        addr = x.mailbox+"@"+x.host
+        mine = false
+        mfrom.each {|y| mine = true if y == addr}
+        if mine
+          nil
+        else
+          if x.name && x.name.length > 0 && x.name[0..0] != '='
+            "\"#{x.name}\" <#{addr}>"
+          else
+            addr
+          end
+        end
+      }
+      em.compact!
+    }
+
+    if evl.from
+      x = evl.from[0]
+      addr = x.mailbox+"@"+x.host
+      addr.gsub!('_','\\_')
+      sender = if x.name && x.name.length > 0 && x.name[0..0] != '='
+        "#{x.name} ``#{addr}\""
+      else
+        addr
+      end
+    end
+    sender ||= 'No Name'
+
+    if evl.subject && evl.subject.length > 0
+      subj = evl.subject
+      subj = "Re: "+subj if  subj.length < 3 || subj[0..2].upcase != 'RE:' 
+    else
+      subj = "Re: your mail"
+    end
+
+    exhdr = "In-Reply-To: " + evl.message_id if evl.message_id
+
+    svdir = $userdir + '/drafts/'+mailid
+    if ! File.directory? svdir
+      Dir.mkdir(svdir)
+    end
+
+    File.open(svdir+"/mailto","w") {|f| f.write to.join(",")} if to.length > 0
+    File.open(svdir+"/mailcc","w") {|f| f.write cc.join(",")} if cc.length > 0
+    File.open(svdir+"/subject","w") {|f| f.write subj}
+    File.open(svdir+"/exhdr","w") {|f| f.write exhdr} if evl.message_id
+    
+    if cache[1].length > 0
+      dstr = 'On ' + evl.date.to_s + ' ' if evl.date
+      dstr ||= ''
+      qtext = "\\reply{\n" + dstr + sender + " wrote:\n\n"
+      if ! cache[1][0]
+        qtext = qtext + "\\begin{verbatim}\n"+cache[1][1]+"\n\\end{verbatim}\n}\n"
+      else
+        qtext = qtext + cache[1][1] + "\n}\n"
+      end
+      File.open(svdir+"/body","w") {|f| f.write "\n\n"+qtext}
+    end
+  end
+
+
   def getpvloc(mailid)
     pvlnk = '/preview/' + mailid + '/t.html'
     return pvlnk if File.readable? $userdir+pvlnk
@@ -24,19 +120,49 @@ module Texmailer
       Dir.mkdir(pvdir)
     end
     
+    body = req["body"]
+
     s = <<EOF
-\\documentclass{article}
+\\documentclass[10pt]{article}
 \\usepackage{amsmath,amssymb}
 \\setlength{\\parindent}{0in}
+\\newcommand{\\reply}[1]{\\begin{quotation}
+\\setlength{\\parindent}{0in}
+#1
+\\end{quotation}
+}
 \\begin{document}
-#{req["body"]}
+#{body}
 \\end{document}
 EOF
+    vblocks = []
+    s2 = ''
+    while m = /\\begin\{verbatim\}/.match(s)
+      rstring = (0...15).map{ ('A'..'Z').to_a[rand(26)] }.join + "\n";
+      s2 = s2 + m.pre_match + rstring
+      s = m.post_match
+      if m2 = /\\end\{verbatim\}/.match(s)
+        s = m2.post_match
+        vstring = m2.pre_match
+      else
+        vstring = s
+        s = ''
+      end
+      vstring = CGI.escapeHTML(vstring).gsub("\n","<br>\n")
+      vblocks = vblocks + [ [rstring,vstring]]
+    end
+    s = s2 + s
     File.open(pvdir + '/t.tex','w') { |f| f.write s}
     Dir.chdir(pvdir);
     
+
     if system('latex -interaction=nonstopmode t > ltxrun.txt 2>/dev/null')
       system('htlatex t > /dev/null 2>/dev/null')
+      html = File.read(pvdir+'/t.html')
+      html.gsub!(/\<body.*?>/m) { |m| m + '<div style="font-family: Helvetica, Arial, sans-serif; font-size: 14px">' }
+      html.gsub!('</body>','</body></div>')
+      vblocks.each { |vb| html.gsub!(vb[0],vb[1]) }
+      File.open(pvdir+'/t.html','w') { |f| f.write html}
       return true
     else
       emsg = File.read(pvdir+'/ltxrun.txt');
@@ -69,6 +195,7 @@ EOF
       lst.each {|f| File.delete(f)}
       Dir.rmdir(svdir)
     end
+    Dir.chdir($userdir)
     
   end
 
@@ -90,13 +217,49 @@ EOF
         subject ||= ''
         subject = '(No Subject)' if subject.length == 0
 
-        [mid,CGI.escapeHTML(mailto),CGI.escapeHTML(subject),drtime]
+        [mid,CGI.escapeHTML(shortem(mailto)),CGI.escapeHTML(subject),drtime]
       end
     }
     s.compact!
     s.sort! {|a,b| b[3] <=> a[3]}
     return s
   end
+
+
+  def nicecache cache
+    msgs = cache.sort { |m,l| Time.parse(l[1][0].date) <=> Time.parse(m[1][0].date) }
+    msgs.collect! { |x|
+      uid = x[0]
+      evl = x[1][0]
+      bdy = x[1][1][1]
+      
+      from = evl.from[0].name if evl.from[0].name && evl.from[0].name.length > 0 && evl.from[0].name[0..0] != '='
+      from ||= (evl.from[0].mailbox + "@" + evl.from[0].host) if evl.from[0].mailbox && evl.from[0].host
+      from ||= "Unknown Sender"
+      if from.length > 26
+        from = from.split(/[@ ]/)[0]
+      end
+
+      maxsb = 95
+      subject = evl.subject.gsub(/[\s]+/m, ' ').strip if evl.subject
+      subject ||= '(no subject)'
+      bdy.gsub!(/^\>.*/,'')
+      if bdy.length > 0 && subject.length < maxsb && m = /[A-Za-z]/.match(bdy)
+        bdy = m[0] + m.post_match
+        bdy = bdy.gsub!(/\s+/m,' ').strip
+        if bdy.length > maxsb-subject.length
+          bdy = bdy[0..(maxsb-subject.length-1)]
+        end
+        subject = CGI.escapeHTML(subject)+'<span style="color:#999999">: &nbsp;'+CGI.escapeHTML(bdy)+"</span>"
+      else
+        subject = CGI.escapeHTML(subject)
+      end
+
+      sdate = Time.parse(evl.date).to_nice_s
+      [uid,from,subject,sdate]
+    }
+  end
+
 end
 
   ## Borrowed from sup