ses-proxy 0.1.0

data/app/views/_chart.haml

@@ -0,0 +1,2 @@
+%div#chartdiv(style="width: 100%;height: 400px;")
+  %div.loader-div(style="top: 50%; margin-top: -25px;")

data/app/views/_search_form.haml

@@ -0,0 +1,23 @@
+%form.form-horizontal(data-ajax-url="#{@chart_url}" data-chart="chartdiv")
+  %fieldset(style="text-align: left")
+    %legend Search:
+  %div(style="display: inline-block;vertical-align: middle;")
+    %label Text
+    %input.span4(type="text" name="q" value="#{@q}" placeholder="Type something…")
+  %div.input-append.date(data-date="#{@s||Time.now.strftime('%d/%m/%Y')}" data-date-format="dd-mm-yyyy")
+    %label From
+    %input.span2(size="16" type="text" name="s" value="#{@s}" placeholder="dd-mm-yyyy")
+    %span.add-on
+      %i.icon-th
+  %div.input-append.date(data-date="#{@e||Time.now.strftime('%d/%m/%Y')}" data-date-format="dd-mm-yyyy")
+    %label To
+    %input.span2(size="16" type="text" name="e" value="#{@e}" placeholder="dd-mm-yyyy")
+    %span.add-on
+      %i.icon-th
+  %div(style="display: inline-block;vertical-align: middle;")
+    %label Per page
+    %select.span2(name="per")
+      -5.times do |i|
+        %option{:value=>(i+1)*10, :selected=>("selected" if @per.to_i.eql?((i+1)*10))}= (i+1)*10
+  %div.form-actions
+    %button.btn(type="submit") Search

data/app/views/bounces.haml

@@ -0,0 +1,23 @@
+%h1.page-title(style="text-align: center; margin-bottom:20px;") Bounced Addresses
+= haml :_search_form
+= haml :_chart
+%table.table.table-striped(style="table-layout:fixed")
+  %colgoup
+    %col(width="25%")
+    %col(width="15%")
+    %col(width="50%")
+    %col(width="10%")
+  %thead
+    %tr
+      %th Email
+      %th Type
+      %th Description
+      %th Created At
+  %tbody
+  - for bounce in @bounces
+    %tr
+      %td= bounce.email
+      %td= bounce.type
+      %td= bounce.desc
+      %td= bounce.created_at.strftime '%d/%m/%Y'
+= paginate @bounces

data/app/views/kaminari/_first_page.html.erb

@@ -0,0 +1,3 @@
+<li>
+  <%= link_to_unless current_page.first?, raw(t 'views.pagination.first'), url, :remote => remote %>
+</li>

data/app/views/kaminari/_gap.html.erb

@@ -0,0 +1,3 @@
+<li class="disabled">
+  <%= link_to raw(t 'views.pagination.truncate'), '#' %>
+</li>

data/app/views/kaminari/_last_page.html.erb

@@ -0,0 +1,3 @@
+<li>
+  <%= link_to_unless current_page.last?, raw(t 'views.pagination.last'), url, {:remote => remote} %>
+</li>

data/app/views/kaminari/_next_page.html.erb

@@ -0,0 +1,3 @@
+<li>
+  <%= link_to_unless current_page.last?, raw(t 'views.pagination.next'), url, :rel => 'next', :remote => remote %>
+</li>

data/app/views/kaminari/_page.html.erb

@@ -0,0 +1,3 @@
+<li class="<%= 'active' if page.current? %>">
+  <%= link_to page, page.current? ? '#' : url, {:remote => remote, :rel => page.next? ? 'next' : page.prev? ? 'prev' : nil} %>
+</li>

data/app/views/kaminari/_paginator.html.erb

@@ -0,0 +1,17 @@
+<%= paginator.render do -%>
+  <div class="pagination pagination-centered">
+    <ul>
+      <%= first_page_tag unless current_page.first? %>
+      <%= prev_page_tag unless current_page.first? %>
+      <% each_page do |page| -%>
+        <% if page.left_outer? || page.right_outer? || page.inside_window? -%>
+          <%= page_tag page %>
+        <% elsif !page.was_truncated? -%>
+          <%= gap_tag %>
+        <% end -%>
+      <% end -%>
+      <%= next_page_tag unless current_page.last? %>
+      <%= last_page_tag unless current_page.last? %>
+    </ul>
+  </div>
+<% end -%>

data/app/views/kaminari/_prev_page.html.erb

@@ -0,0 +1,3 @@
+<li>
+  <%= link_to_unless current_page.first?, raw(t 'views.pagination.previous'), url, :rel => 'prev', :remote => remote %>
+</li>

data/app/views/layout.haml

@@ -0,0 +1,25 @@
+!!! 5
+%html
+  %head
+    %title SES Proxy WebPanel
+    %link(rel="stylesheet" type="text/css" href="bootstrap/css/bootstrap.min.css" media="screen")
+    %link(rel="stylesheet" type="text/css" href="datepicker/css/datepicker.css" media="screen")
+    %link(rel="stylesheet" type="text/css" href="css/application.css" media="screen")
+    %link(rel="icon" type="image/ico" href="https://awsmedia.s3.amazonaws.com/favicon.ico")
+    %link(rel="shortcut icon" type="image/ico" href="https://awsmedia.s3.amazonaws.com/favicon.ico")
+  %body
+    %div.container-fluid
+      %div.navbar
+        %div.navbar-inner
+          %a.brand(href="#") SES Proxy WebPanel
+          %ul.nav.nav-pills
+            %li{:class => ('active' if @menu_item.eql? "mails")}
+              %a(href="/") Sent Emails
+            %li{:class => ('active' if @menu_item.eql? "bounces")}
+              %a(href="/bounces") Bounced Addresses
+      = yield
+    %script(src="http://code.jquery.com/jquery-latest.js")
+    %script(src="bootstrap/js/bootstrap.min.js")
+    %script(src="datepicker/js/bootstrap-datepicker.js")
+    %script(src="highcharts/highcharts.js")
+    %script(src="js/application.js")

data/app/views/mails.haml

@@ -0,0 +1,26 @@
+%h1.page-title(style="text-align: center; margin-bottom:20px;") Sent Emails
+= haml :_search_form
+= haml :_chart
+%table.table.table-striped(style="table-layout:fixed")
+  %colgoup
+    %col(width="15%")
+    %col(width="25%")
+    %col(width="30%")
+    %col(width="20%")
+    %col(width="10%")
+  %thead
+    %tr
+      %th System
+      %th Sender
+      %th Recipients
+      %th Subject
+      %th Created At
+  %tbody
+  - for mail in @mails
+    %tr
+      %td= mail.system
+      %td= mail.sender
+      %td= mail.recipients
+      %td= mail.subject
+      %td= mail.created_at.strftime '%d/%m/%Y'
+= paginate @mails

data/app/web_panel.rb

@@ -0,0 +1,149 @@
+require 'sinatra'
+require 'haml'
+require 'kaminari/sinatra'
+require 'json'
+
+helpers do
+  def protected!
+    unless authorized?
+      response['WWW-Authenticate'] = %(Basic realm="Restricted Area")
+      throw(:halt, [401, "Not authorized\n"])
+    end
+  end
+
+  def authorized?
+    @auth ||= Rack::Auth::Basic::Request.new(request.env)
+    @auth.provided? && @auth.basic? && @auth.credentials && @auth.credentials == [SesProxy::Conf.get[:smtp_auth][:user], SesProxy::Conf.get[:smtp_auth][:password]]
+  end
+end
+
+helpers Kaminari::Helpers::SinatraHelpers
+module Kaminari::Helpers
+  module SinatraHelpers
+    class ActionViewTemplateProxy
+      def render(*args)
+        base = ActionView::Base.new.tap do |a|
+          a.view_paths << File.expand_path('../views', __FILE__)
+        end
+        base.render(*args)
+      end
+    end
+  end
+end
+
+configure :development do
+  Sinatra::Application.reset!
+end
+
+get '/' do
+  protected!
+  @menu_item = "mails"
+  @chart_url = "/mails.json"
+  @per = params[:per] || 20
+  mails = mails_query
+  @mails = mails.page(params[:page]).per(@per)
+  haml :mails
+end
+
+get '/mails.json' do
+  protected!
+  mails = mails_query
+  d_array = (string_to_date(@s)..string_to_date(@e)).to_a
+  data = get_data_json "Mails", mails, "created_at", d_array
+  content_type :json
+  data.to_json
+end
+
+get '/bounces' do
+  protected!
+  @menu_item = "bounces"
+  @chart_url = "/bounces.json"
+  @per = params[:per] || 20
+  bounces = bounces_query
+  @bounces = bounces.page(params[:page]).per(@per)
+  haml :bounces
+end
+
+get '/bounces.json' do
+  protected!
+  bounces = bounces_query
+  d_array = (string_to_date(@s)..string_to_date(@e)).to_a
+  data = get_data_json "Bounced", bounces, "created_at", d_array
+  content_type :json
+  data.to_json
+end
+
+private
+
+def get_data_json(name, collection, method, d_array)
+  data = {}
+  grouped_collection = {}
+  if d_array.size <= 30
+    #days
+    key_format = "%d/%m/%Y"
+  elsif d_array.size > 30 and d_array.size <= 210
+    #weeks
+    key_format = "%W/%Y"
+  elsif d_array.size > 210
+    #months
+    key_format = "%B/%Y"
+  end
+  data[:x] = d_array.map{|d| d.to_date.strftime(key_format)}.uniq
+  data[:y] ||= []
+  data[:x].each do |d|
+    grouped_collection[d] = collection.collect{|b| b if b.send(method).strftime(key_format).eql? d}.compact.size
+  end
+  data[:y] << {:name=>name,:data=>grouped_collection.values}
+  data
+end
+
+def mails_query
+  @q = params[:q]
+  @s = params[:s]||(Date.today-1.month).strftime("%d-%m-%Y")
+  @e = params[:e]||Date.today.strftime("%d-%m-%Y")
+  if @q.nil? or @q.eql?""
+    if valid_date(@s) and valid_date(@e)
+      mails = SesProxy::Email.where(:created_at=>{'$gte' => string_to_date(@s),'$lt' => string_to_date(@e)})
+    else
+      mails = SesProxy::Email.all
+    end
+  else
+    if valid_date(@s) and valid_date(@e)
+      mails = SesProxy::Email.where(:created_at=>{'$gte' => string_to_date(@s),'$lt' => string_to_date(@e)}).any_of({:recipients => /.*#{@q}.*/i },{:sender => /.*#{@q}.*/i },{:system => /.*#{@q}.*/i },{:subject => /.*#{@q}.*/i })
+    else
+      mails = SesProxy::Email.any_of({:recipients => /.*#{@q}.*/i },{:sender => /.*#{@q}.*/i },{:system => /.*#{@q}.*/i },{:subject => /.*#{@q}.*/i }).page(params[:page]).per(20)
+    end
+  end
+end
+
+def bounces_query
+  @q = params[:q]
+  @s = params[:s]||(Date.today-1.month).strftime("%d-%m-%Y")
+  @e = params[:e]||Date.today.strftime("%d-%m-%Y")
+  if @q.nil? or @q.eql?""
+    if valid_date(@s) and valid_date(@e)
+      bounces = SesProxy::Bounce.where(:created_at=>{'$gte' => string_to_date(@s),'$lte' => string_to_date(@e)})
+    else
+      bounces = SesProxy::Bounce.all
+    end
+  else
+    if valid_date(@s) and valid_date(@e)
+      bounces = SesProxy::Bounce.where(:created_at=>{'$gte' => string_to_date(@s),'$lte' => string_to_date(@e)}).any_of({:email => /.*#{@q}.*/i },{ :type => /.*#{@q}.*/i },{ :desc => /.*#{@q}.*/i })
+    else
+      bounces = SesProxy::Bounce.any_of({:email => /.*#{@q}.*/i },{ :type => /.*#{@q}.*/i },{ :desc => /.*#{@q}.*/i })
+    end
+  end
+  bounces
+end
+
+def valid_date(d)
+  begin
+    d and not d.eql?"" and string_to_date(d)
+  rescue Exception=>e
+    false
+  end
+end
+
+def string_to_date(d)
+  Date.strptime(d, '%d-%m-%Y')
+end

data/bin/ses_proxy

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+
+require 'pathname'
+require 'rubygems'
+
+file_path = Pathname.new(__FILE__).realpath
+
+require File.join(File.dirname(File.dirname(file_path)), 'ses_proxy.rb')
+libdir = File.join(File.dirname(File.dirname(file_path)), "lib")
+$LOAD_PATH.unshift(libdir) unless $LOAD_PATH.include?(libdir)
+
+begin
+  SesProxy::MainCommand.run
+rescue Exception => e
+  puts e.message
+  if $DEBUG
+    puts $!
+    puts $@
+  end
+end

data/lib/ses_proxy/conf.rb

@@ -0,0 +1,9 @@
+require 'yaml'
+
+module SesProxy
+  class Conf
+    def self.get
+      YAML.load_file(File.join(ENV["HOME"],".ses-proxy","ses-proxy.yml"))
+    end
+  end
+end

data/lib/ses_proxy/main_command.rb

@@ -0,0 +1,154 @@
+require 'clamp'
+require 'rack'
+require 'eventmachine'
+require 'thread'
+require 'fileutils'
+require 'mongoid'
+require 'daemons'
+require 'tmpdir'
+
+require './app/web_panel'
+
+module SesProxy
+
+  class StartCommand < Clamp::Command
+    option ["-s","--smtp-port"], "SMTP_PORT", "SMTP listen port (default: \"1025\")"
+    def default_smtp_port
+      if SesProxy::Conf.get[:smtp] and SesProxy::Conf.get[:smtp][:port]
+        SesProxy::Conf.get[:smtp][:port]
+      else
+        1025
+      end
+    end
+
+    option ["-o","--smtp-host"], "SMTP_HOST", "SMTP host (default: \"0.0.0.0\")"
+    def default_smtp_host
+      if SesProxy::Conf.get[:smtp] and SesProxy::Conf.get[:smtp][:host]
+        SesProxy::Conf.get[:smtp][:host]
+      else
+        "0.0.0.0"
+      end
+    end
+
+    option ["-p","--http-port"], "HTTP_PORT", "HTTP listen port (default: \"9292\")"
+    def default_http_port
+      if SesProxy::Conf.get[:http] and SesProxy::Conf.get[:http][:port]
+        SesProxy::Conf.get[:http][:port]
+      else
+        9292
+      end
+    end
+
+    option ["-l","--http-address"], "HTTP_ADDRESS", "HTTP listen address (default: \"0.0.0.0\")"
+    def default_http_address
+      if SesProxy::Conf.get[:http] and SesProxy::Conf.get[:http][:host]
+        SesProxy::Conf.get[:http][:host]
+      else
+        "0.0.0.0"
+      end
+    end
+
+    option ["-e","--environment"], "ENVIRONMENT", "Environment", :default => "development"
+
+    option ["-c","--config-file"], "CONFIG_FILE", "Configuration file", :default => "#{File.join(Dir.home,'.ses-proxy','ses-proxy.yml')}"
+    option ["-m","--mongoid-config-file"], "MONGOID_CONFIG_FILE", "Mongoid configuration file", :default => "#{File.join(Dir.home,'.ses-proxy','mongoid.yml')}"
+
+    option ["-d","--demonize"], :flag, "Demonize application", :default => false
+
+    @@env = "development"
+
+    def execute
+      check_for_config_file config_file
+      check_for_mongoid_config_file mongoid_config_file
+
+      @@env = environment
+      Mongoid.load! mongoid_config_file, @@env
+
+      app = Rack::Builder.new do
+        use Rack::Reloader, 0 if  @@env.eql?"development"
+        map "/sns_endpoint" do
+          run SesProxy::SnsEndpoint.new
+        end
+        run Sinatra::Application
+      end.to_app
+      options = {:app=>app, :environment=>environment, :server=>"thin", :Port=>http_port, :Host=>http_address}
+      server = Rack::Server.new options
+
+      if demonize?
+        options = {:app_name => "ses_proxy", :dir_mode=>:normal, :dir=>Dir.tmpdir, :multiple=>true}
+        group = Daemons::ApplicationGroup.new('ses_proxy', options)
+        options[:mode] = :proc
+        options[:proc] = Proc.new { EM.run{ SesProxy::SmtpServer.start smtp_host, smtp_port } }
+        pid = Daemons::PidFile.new Dir.tmpdir, "ses_proxy_smtp"
+        @smtp = Daemons::Application.new(group, options, pid)
+        options[:proc] = Proc.new { server.start }
+        pid = Daemons::PidFile.new Dir.tmpdir, "ses_proxy_http"
+        @http = Daemons::Application.new(group, options, pid)
+        @smtp.start
+        @http.start
+      else
+        @smtp = Thread.new do
+          EM.run{ SesProxy::SmtpServer.start smtp_host, smtp_port }
+        end
+        @http = Thread.new do
+          server.start
+        end
+        @smtp.join
+        @http.join
+      end
+    end
+
+    private
+
+    def check_for_config_file(path)
+      if path.eql? File.join(Dir.home,'.ses-proxy','ses-proxy.yml').to_s
+        unless File.directory? File.join(Dir.home,'.ses-proxy')
+          Dir.mkdir(File.join(Dir.home,'.ses-proxy'))
+        end
+        unless File.exists? path
+          FileUtils.cp File.join(ROOT,"template","ses-proxy.yml").to_s, path
+          puts "ATTENTION: Edit '#{path}' file with your data and then restart ses_proxy."
+          exit
+        end
+      else
+        unless File.exists? path
+          raise ArgumentError, "Configuration file '#{path}' not found!"
+        end
+      end
+    end
+
+    def check_for_mongoid_config_file(path)
+      if path.eql? File.join(Dir.home,'.ses-proxy','mongoid.yml').to_s
+        unless File.directory? File.join(Dir.home,'.ses-proxy')
+          Dir.mkdir(File.join(Dir.home,'.ses-proxy'))
+        end
+        unless File.exists? path
+          FileUtils.cp File.join(ROOT,"template","mongoid.yml").to_s, path
+          puts "ATTENTION: Edit '#{path}' file with your data and then restart ses_proxy."
+          exit
+        end
+      else
+        unless File.exists? path
+          raise ArgumentError, "Configuration file '#{path}' not found!"
+        end
+      end
+    end
+  end
+
+  class StopCommand < Clamp::Command
+    def execute
+      options = {:app_name => "ses_proxy", :dir_mode=>:normal, :dir=>Dir.tmpdir, :multiple=>true}
+      group = Daemons::ApplicationGroup.new('ses_proxy', options)
+      group.setup
+      group.applications.each do |application|
+        application.stop
+      end
+    end
+  end
+
+  class MainCommand < Clamp::Command
+    subcommand "start", "Start proxy", StartCommand
+    subcommand "stop", "Stop proxy", StopCommand
+  end
+
+end