open_porch 0.5.0

data/app/models/email_message.rb

@@ -0,0 +1,104 @@
+class EmailMessage < ActiveRecord::Base
+
+  # == Relationships ========================================================
+  
+  has_many :posts
+
+  # == Class Methods ========================================================
+
+  def self.create_from_pop3
+    last_message_number = EmailMessage.maximum(:number).to_i
+    msg_count = 0
+
+    puts "Connecting to #{OPEN_PORCH_POP3['host']} ..."
+    Net::POP.enable_ssl(OpenSSL::SSL::VERIFY_NONE) if OPEN_PORCH_POP3['enable_ssl']
+    Net::POP3.start(OPEN_PORCH_POP3['host'], OPEN_PORCH_POP3['port'], OPEN_PORCH_POP3['username'], OPEN_PORCH_POP3['password']) do |pop|
+      puts "Found #{pop.n_mails} messages on the server"
+      puts "Last saved message: #{last_message_number}"
+      unless pop.mails.empty?
+        pop.mails.each do |m|
+          next if (m.number <= last_message_number)
+          print "\tSaving message ##{m.number} (#{"%.1f" % (m.length/1024.to_f)} KB) ... "
+          
+          begin
+            email_message = EmailMessage.create(
+              :number => m.number,
+              :content => m.pop,
+              :size => m.length,
+              :parsed => false
+            )
+            print 'ok'
+            if email_message.parse
+              msg_count += 1
+            end
+          rescue ActiveRecord::StatementInvalid => e
+            puts
+            puts "========> ERROR saving message ##{m.number}"
+            puts e.message
+          end
+
+          break if msg_count >= 10
+        end
+        puts "\tCopied #{msg_count} new messages from the server."
+      end
+    end
+    puts "Done!"
+  rescue SocketError => e
+    puts "ERROR: Could not connect to #{OPEN_PORCH_POP3['host']} - #{e.message}"
+  end
+  
+  # == Instance Methods ========================================================
+
+  def parse
+    return true if self.parsed?
+    
+    print "\tParsing message:"
+    mail = Mail.new(self.content)
+    
+    # Parse the body of the message
+    if mail.multipart?
+      if mail.text_part
+        body = mail.text_part.body
+      else
+        body = mail.parts[0].body
+      end
+    else
+      body = mail.body
+    end
+
+    # Find the user
+    user = User.where(:email => mail.from).first
+    if user.blank?
+      print "\tUser: Could not find user with email #{mail.from}"
+      puts
+      return false
+    end
+    print "\tUser: #{user.id}"
+    
+    # Find the area
+    if mail.to.nil?
+      print "\tArea: recipient is empty. Skipping."
+      puts
+    end
+    slug = Mail::Address.new(mail.to.first).local
+    area = Area.where(:slug => slug).first
+    if area.blank?
+      print "\tArea: Could not find area with slug #{slug}"
+      puts
+      return false
+    end
+    print "\tArea: #{area.name}"
+    
+    print "\tCreating post ... "
+    area.posts.create(
+      :user_id => user.id,
+      :email_message_id => self.id,
+      :title => mail.subject,
+      :content => Iconv.conv("UTF-8//TRANSLIT//IGNORE", 'UTF-8', body.to_s + ' ')[0..-2]
+    )
+    
+    self.update_attribute(:parsed, true)
+    puts 'ok'
+    return true
+  end
+end

data/app/models/issue.rb

@@ -0,0 +1,66 @@
+class Issue < ActiveRecord::Base
+  
+  # == Validations ==========================================================
+  
+  validates :area_id,
+    :presence => true
+  
+  validates :number,
+    :uniqueness => { :scope => :area_id }
+  
+  validate :scheduled_time_is_ahead
+  
+  # == Relationships ========================================================
+  
+  belongs_to :area, 
+    :counter_cache => true
+  
+  has_many :posts,
+    :dependent => :destroy
+
+  # == Scopes ===============================================================
+  
+  scope :sent, where('sent_at IS NOT NULL')
+
+  scope :scheduled_before, lambda { |t| 
+    where(['sent_at IS NULL AND scheduled_at <= ?', t.utc])
+  }
+  
+  scope :in_month, lambda { |m|
+    where(["to_char(sent_at, 'YYYY-MM') = ?", m])
+  }
+
+  # == Callbacks ============================================================
+  
+  before_create :set_issue_number
+  
+  # == Instance Methods =====================================================
+  
+  def send!
+    UserMailer.new_issue(self).deliver
+    
+    self.update_attribute(:sent_at, Time.now.utc)
+    
+    # Create a new issue for the area if there are any new posts left
+    if self.area.send_mode?(:batched) && self.area.posts.in_issue(nil).count > 0
+      self.area.issues.create
+    end
+    
+    self.area.record_activity_for!(:issues_published)
+  end
+  
+  def to_params
+    self.number
+  end
+  
+protected
+  def scheduled_time_is_ahead
+    if self.scheduled_at.present? && (self.scheduled_at < Time.now.utc)
+      errors.add(:scheduled_at, "can't be in the past.")
+    end
+  end
+  
+  def set_issue_number
+    self.number ||= self.area.issue_number.next
+  end
+end

data/app/models/issue_number.rb

@@ -0,0 +1,22 @@
+class IssueNumber < ActiveRecord::Base
+
+  # == Relationships ========================================================
+  
+  belongs_to :area
+  
+  # == Instance Methods =====================================================
+  
+  def next
+    self.sequence_number = self.connection.select_value("
+      UPDATE #{self.class.table_name} 
+      SET sequence_number=sequence_number+1 
+      WHERE area_id= #{self.area_id}
+      RETURNING sequence_number"
+    ).to_i
+  end
+
+  def current
+    self.sequence_number
+  end
+  
+end

data/app/models/membership.rb

@@ -0,0 +1,27 @@
+class Membership < ActiveRecord::Base
+
+  # == Validations ==========================================================
+  
+  validates :user_id,
+    :uniqueness => { :scope => :area_id }
+  
+  # == Relationships ========================================================
+  
+  belongs_to :user
+  belongs_to :area, 
+    :counter_cache => true
+
+  # == Callbacks ============================================================
+  
+  after_create :record_activity_for_new_users
+  after_destroy :record_activity_for_quitters
+  
+protected
+  def record_activity_for_new_users
+    self.area.record_activity_for!(:new_users)
+  end
+  
+  def record_activity_for_quitters
+    self.area.record_activity_for!(:quitters)
+  end
+end

data/app/models/post.rb

@@ -0,0 +1,64 @@
+class Post < ActiveRecord::Base
+
+  # == Validations ==========================================================
+  
+  validates :title, :content, :area_id, :user_id,
+    :presence => true
+  validates :user_first_name, :user_last_name, :user_email, :user_address,
+            :user_city, :user_state,
+    :presence => true
+    
+  # == Relationships ========================================================
+  
+  belongs_to :area
+  belongs_to :user
+  belongs_to :issue
+  belongs_to :email_message
+  
+  # == Callbacks ============================================================
+  
+  before_validation :copy_user_info
+  after_create :create_issue, :record_activity_for_new_post
+
+  # == Scope ================================================================
+  
+  scope :in_issue, lambda { |issue| where(:issue_id => issue) }
+
+  # == Instance Methods =====================================================
+
+  def reviewed?
+    self.reviewed_by.present?
+  end
+  
+  def user_full_name
+    [user_first_name, user_last_name].join(' ')
+  end
+  
+  def send_immediatelly!
+    self.issue = self.area.issues.create!
+    self.save
+    self.issue.reload
+    self.issue.send! 
+  end
+  
+protected
+  def create_issue
+    if self.area.send_mode?(:immediate)
+      self.send_immediatelly!
+    elsif self.area.send_mode?(:batched) && self.area.current_issue.blank?
+      self.area.issues.create
+    end
+  end
+  
+  def record_activity_for_new_post
+    self.area.record_activity_for!(:new_posts)
+  end
+  
+  def copy_user_info
+    if self.user.present?
+      %w(first_name last_name email address city state).each do |field|
+        self.send("user_#{field}=", self.user.send(field))
+      end
+    end
+  end
+end

data/app/models/session_user.rb

@@ -0,0 +1,69 @@
+class SessionUser
+  include ActiveModel::Validations
+  
+  # == Attribute ==========================================================
+
+  attr_accessor :email
+  attr_accessor :password
+  attr_accessor :remember_me
+  attr_accessor :user
+  
+  # == Validations ==========================================================
+
+  validates :email,
+    :presence => {:message => 'Please enter your email address'},
+    :length => {
+      :within => 6..100,
+      :too_short => "The email address you entered is to short"
+    },
+    :format => {
+      :with => /^([\w.%-+]+)@((?:[-a-z0-9]+\.)+[a-z]{2,})$/i, 
+      :message => 'The email address you entered is not valid'
+    }
+    
+  validates :password,
+    :length => {
+      :within => 4..40,
+      :too_short => "The password you entered is too short (minimum is 4 characters)"
+    },
+    :presence => { 
+      :message => 'Please choose a password'
+    },
+    :confirmation => {:message => "The password you entered does not match with the confirmation"}
+    
+  # == Class Methods ========================================================
+  
+  def self.create(params={})
+    session_user = self.new(params)
+    session_user.save
+    session_user
+  end
+  
+  # == Instance Methods =====================================================
+  
+  def initialize(params = {})
+    if params
+      @email = params[:email]
+      @password = params[:password]
+      @remember_me = params[:remember_me]
+    end
+  end
+  
+  def save
+    return unless self.valid?
+    if @user = User.authenticate(self.email, self.password) 
+      if @user.is_verified?
+        return @user
+      else
+        @user.email_verification_key ||= @user.set_email_verification_key
+        @user.save!
+        self.errors.add(:email, "This email address needs to be verified before you can login. <a href='/resend-email-verification/#{@user.email_verification_key}'>Resend verification</a>".html_safe)
+        return false
+      end
+    end
+  end
+  
+  def to_key
+    nil
+  end
+end

data/app/models/user.rb

@@ -0,0 +1,140 @@
+class User < ActiveRecord::Base
+  
+  # == Constants ============================================================
+  
+  ROLES = %w{admin regular_user}
+  
+  # == Attributes =====================================================
+  
+  attr_protected :role
+
+  # == Extensions ===========================================================
+
+  if defined?(Wristband)
+    wristband :roles => ROLES, :has_authorities => true
+  end
+  
+  # == Validations ==========================================================
+  
+  validates :first_name,
+    :presence => {:message => 'Please enter your first name'}
+  
+    validates :last_name,
+      :presence => {:message => 'Please enter your last name'}
+
+  validates :email,
+    :presence => {:message => 'Please enter your email address'},
+    :length => {
+      :within => 6..100,
+      :too_short => "The email address you entered is to short"
+    },
+    :format => {
+      :with => EmailSupport::RFC822::EmailAddress, 
+      :message => 'The email address you entered is not valid'
+    },
+    :uniqueness => {:message => 'This email has already been taken'}
+    
+  validates :password,
+    :length => {
+      :within => 4..40,
+      :too_short => "The password you entered is too short (minimum is 4 characters)",
+      :if => :password_required?
+    },
+    :presence => { 
+      :message => 'Please choose a password',
+      :if => :password_required? 
+    },
+    :confirmation => {:message => "The password you entered does not match with the confirmation"}
+    
+  validates :role, 
+    :inclusion => { :in => ROLES },
+    :presence => true
+  
+  validates :address, :city, :state,
+    :presence => {
+      :message => 'Please enter your full address'
+    }
+    
+  # == Relationships ========================================================
+  
+  has_many :memberships,
+    :dependent => :destroy
+  has_many :areas,
+    :through => :memberships
+  has_many :posts,
+    :dependent => :nullify
+  
+  accepts_nested_attributes_for :memberships, :allow_destroy => true
+  
+  # == Scopes ===============================================================
+
+  # Search Scope
+  scope :email_or_name_or_address_search,
+    lambda {|str|
+      like_str = "%#{str}%"
+      where("email ILIKE ? OR ((first_name || ' ' || last_name) ILIKE ?) OR ((address || ', ' || city || ', ' || state) ILIKE ?)", 
+            like_str, like_str, like_str)
+    }
+  
+  if defined?(MetaSearch)
+    search_methods :email_or_name_or_address_search 
+  end
+  
+  scope :admins, where(:role => 'admin')
+    
+  # == Callbacks ============================================================
+
+  before_validation :assign_role, :on => :create
+  
+  # == Class Methods ========================================================
+
+  def self.per_page
+    100
+  end
+  
+  def self.roles_for_select
+    ROLES.collect{|r| [r.humanize, r]}
+  end
+
+  # == Instance Methods =====================================================
+  
+  def address_attributes=(address_attr)
+    if address_attr.is_a?(Address)
+      self.address = address_attr.address
+      self.city = address_attr.city
+      self.state = address_attr.state
+      self.lat = address_attr.lat
+      self.lng = address_attr.lng
+    end
+  end
+  
+  def full_address
+    [self.address, self.city, self.state].join(', ')
+  end
+  
+  def full_name
+    [first_name, last_name].join(' ')
+  end
+  
+  def member_of?(area)
+    self.areas.include?(area)
+  end
+  
+  def set_email_verification_key
+    self.email_verification_key = Wristband::Support.random_salt.gsub(/[^A-Za-z0-9]/,'')
+  end
+  
+  def is_verified?
+    !!self.verified_at?
+  end 
+
+protected
+  def assign_role
+    self.role = 'regular_user'
+  end
+  
+  def password_required?
+    self.new_record?
+  end
+
+end

data/app/models/user_activity.rb

@@ -0,0 +1,31 @@
+class UserActivity < ActiveRecord::Base
+  
+  # == Constants ============================================================
+
+   EXPIRES = 5 # in seconds
+  
+  # == Relationships ========================================================
+  
+  validates :name, :url,
+    :presence => true
+  
+  # == Scopes ===============================================================
+  
+  scope :active_for_page, lambda {|name, url|
+    where(
+      "expires_at >= ? AND name != ? AND url = ?",
+      Time.now, name, url
+    )
+  }
+  
+  # == Callbacks ============================================================
+  
+  after_create :set_expiration!
+  
+  # == Instance Methods =====================================================
+  
+  def set_expiration!
+    self.update_attribute(:expires_at, Time.now.advance(:seconds => EXPIRES))
+  end
+  
+end

data/app/models/user_authority_check.rb

@@ -0,0 +1,14 @@
+class UserAuthorityCheck < AuthorityCheck
+  
+  def manage_users?
+    unless (@user.is_admin?)
+      fail!("You don't have permission do manage users.") 
+    end
+  end
+  
+  def manage_areas?
+    unless (@user.is_admin?)
+      fail!("You don't have permission do manage users.") 
+    end
+  end
+end

data/app/views/admin/areas/_form.html.haml

@@ -0,0 +1,8 @@
+= f.text_field :name
+= f.text_field :slug
+= f.text_area :description
+= f.text_field :city
+= f.text_field :state
+= f.text_field :households
+= f.select :send_mode, Area::SEND_MODES
+= f.submit 'Save', :cancel_url => link_to('cancel', admin_areas_path)

data/app/views/admin/areas/_nav.html.haml

@@ -0,0 +1,12 @@
+%ul.sub_nav
+  %li
+    %h3
+      = @area.name
+      in
+      = @area.location
+  - if @area.current_issue
+    %li= active_link_to 'Current issue', [:edit, :admin, @area, @area.current_issue], :active => { :when => /admin\/areas\/\d*\/issues\/\d*\/edit/  }
+  %li= active_link_to 'Issues', [:admin, @area, :issues], :active => { :when => :self_only }
+  %li= active_link_to 'Memberships', [:admin, @area, :memberships]
+  %li= active_link_to 'Edit borders', [:edit_borders, :admin, @area]
+  %li= active_link_to 'Edit details', [:edit, :admin, @area], :active => { :when => :self_only }

data/app/views/admin/areas/edit.html.haml

@@ -0,0 +1,22 @@
+.columns
+  = render :partial => 'admin/areas/nav'
+  
+  .left_column
+
+    = formatted_form_for @area, :url => [:admin, @area] do |f|
+      = render :partial => 'form', :locals => {:f => f}
+  
+  
+  .right_column
+
+    - if @area.border.present?
+      = content_for :head do
+        = javascript_include_tag "http://maps.google.com/maps/api/js?sensor=false"
+        = javascript_include_tag 'google_maps'
+    
+      = content_for :doc_ready do
+        initialize_gmap(document.getElementById("map_canvas"), #{@area.center.x}, #{@area.center.y}, {}, #{@area.bounds.to_json});
+        add_region(#{@area.id}, [#{@area.border_coordinates}], 'selected')
+
+      #map_canvas{:style => 'width:260px; height:400px; float: right'}
+  

data/app/views/admin/areas/edit_borders.html.haml

@@ -0,0 +1,44 @@
+.columns
+  = content_for :head do
+    = javascript_include_tag "http://maps.google.com/maps/api/js?libraries=geometry&sensor=false"
+    = javascript_include_tag 'region_editor'
+
+  :javascript
+    $(document).ready(function() {
+      $('#map_canvas').RegionEditor({
+        create_url: '#{admin_areas_path}',
+        update_url: '#{bulk_update_admin_areas_path}',
+        regions: #{@areas.collect(&:to_a).to_json}, 
+        selected_region_id: #{@selected_area.present? ? @selected_area.id : 'null'},
+        center: {
+          lat: #{@selected_area.present? ? @selected_area.center.x : @default_area.center.x}, 
+          lng: #{@selected_area.present? ? @selected_area.center.y : @default_area.center.y}
+        },
+        bounds: #{@selected_area.present? ? @selected_area.bounds.to_json : @default_area.bounds.to_json}
+      });
+    });
+  - if @area.present?
+    = render :partial => 'admin/areas/nav'
+
+  #map_canvas
+    .region_details
+
+  %h3 Manage regions:
+  %p 
+    %strong 1. Click on a region to select it
+    %br/
+    %strong 2. Drag the markers to change the shape of a region
+    %br/
+    %strong 3. To add a new point to a region: 
+    Right click on the map to add a new point to the selected region
+    %br/
+    %strong 4. To delete a point from a region:
+    SHIFT + Click on a marker to delete it
+  
+  %h3 Create new regions:
+  %p 
+    %strong 1. Click the 'New region' button
+    %br/
+    %strong 2. Click on the map to add points to the region
+    %br/
+    %strong 3. When you're done close the region by clicking on the first marker

data/app/views/admin/areas/index.html.haml

@@ -0,0 +1,61 @@
+.columns
+  .header
+    %h2 Areas
+    = formatted_form_for @search, :url => [:admin, :areas], :html => {:method => :get, :class => 'admin_search'} do |f|
+      = f.text_field :full_name_search, :label => 'name or location'
+      = f.element('and show activity between') do
+        = text_field_tag :activity_start_date,  params[:activity_start_date], :type => :date
+        = text_field_tag :activity_end_date,    params[:activity_end_date], :type => :date
+      = f.submit 'Find'
+    %h5= link_to 'Add new area', edit_borders_admin_area_path('new')
+
+  :javascript
+    $(document).ready(function() {
+      draw_chart({
+        days : #{@activities.collect{|d| d.day.strftime('%d<br/>%b')}.to_json}, 
+        series : [
+          {
+            name: 'New Users',
+            data : #{@activities.collect{|a| a.sum_new_users_count.to_i}.to_json}
+          }, 
+          {
+            name: 'Quitters',
+            data : #{@activities.collect{|a| a.sum_quitters_count.to_i}.to_json}
+          },
+          {
+            name: 'New Posts',
+            data : #{@activities.collect{|a| a.sum_new_posts_count.to_i}.to_json}
+          },
+          {
+            name: 'Issues Published',
+            data : #{@activities.collect{|a| a.sum_issues_published_count.to_i}.to_json}
+          }
+        ]
+      });
+    })   
+  #chart-container
+
+  = will_paginate @areas
+
+  %table
+    %tr
+      %th= sort_link @search, :name
+      %th= sort_link @search, :city
+      %th.center= sort_link @search, :memberships_count, 'Users'
+      %th.center= sort_link @search, :households
+      %th.center Send mode
+      %th.center= sort_link @search, :issues_count, 'Issues'
+      %th.center New posts
+    
+    - @areas.each do |area|
+      %tr{:class => @new_posts[area.id] && @new_posts[area.id] > 0 ? 'important' : ''}
+        %td= link_to area.name, [:edit_borders, :admin, area]
+        %td= area.location
+        %td.center= link_to area.memberships_count.to_i, [:admin, area, :memberships]
+        %td.center= area.households.to_i
+        %td.center= area.send_mode
+        %td.center= link_to area.issues_count.to_i, [:admin, area, :issues]
+        %td.center= link_to @new_posts[area.id].to_s, [:admin, area]
+
+  = will_paginate @areas
+