adhearsion 0.7.0

data/new_projects/config/helpers/micromenus/stylesheets/firefox.css

@@ -0,0 +1,10 @@
+body {
+	font-size: 20px;
+	font-family: "Bitstream Vera Sans", Tahoma, "Trebuchet MS", sans-serif; }
+a {
+	padding: 3px;
+	color: black; }
+	
+a:hover {
+	background-color: black;
+	color: white; }

data/new_projects/config/helpers/micromenus/stylesheets/firefox.xul.css

@@ -0,0 +1,44 @@
+window {
+	background-color: grey;
+	padding: 20px 10px;
+}
+#haupt {
+	text-align: center;
+	display: block;
+	-moz-border-radius: 20px;
+	border: 10px solid black;
+	background-color: white;
+	padding: 10px;
+	padding-bottom: 20px;
+}
+
+label.header {
+	font-size: 30px;
+	text-align: center;
+}
+
+a {
+	background-color: #EEE;
+	padding: 2px;
+	display: block;
+	margin: 4px 0;
+	border: 5px #EEE solid;
+	-moz-border-radius: 5px;
+	color: black;
+	text-align: left;
+	text-decoration: none;
+}
+
+a:hover {
+	color: white;
+	background-color: black;
+	padding: 2px;
+	border: 5px black solid;
+	-moz-border-radius: 5px;
+}
+
+description {
+	text-align: center;
+	padding: 15px;
+	width: 100%;
+}

data/new_projects/config/helpers/weather.yml

@@ -0,0 +1 @@
+units: fahrenheit # can be 'fahrenheit' or 'celsuis' (case sensitive)

data/new_projects/config/helpers/xbmc.yml

@@ -0,0 +1 @@
+ip: 192.168.1.136:80

data/new_projects/config/migration.rb

@@ -0,0 +1,53 @@
+#!/usr/bin/env ruby
+require 'yaml'
+require 'rubygems'
+require 'active_record'
+
+# A migration script uses a database configuration and creates tables
+# very conveniently in a database-agnostic way. Below, add any customizations
+# to the sample schema or leave it as-is. When done, execute this script.
+
+ActiveRecord::Base.establish_connection YAML.load_file('config/database.yml')
+
+class CreateUsers < ActiveRecord::Migration
+  # Available column types are :primary_key, :string, :text, :integer,
+  # :float, :datetime, :timestamp, :time, :date, :binary, and :boolean
+  def self.up
+    create_table :users do |t|
+      t.column :name, :string
+      t.column :callerid_name, :string
+      t.column :callerid_num, :string
+      t.column :group_id, :integer # Foreign key
+      t.column :ivr_extension, :string
+      t.column :extension, :string
+      t.column :email, :string
+      t.column :im_username, :string
+      t.column :im_provider, :string
+      # t.column :billed_time, :integer, :null => false
+    end
+  end
+
+  def self.down
+    drop_table :users
+  end
+end
+
+class CreateGroups < ActiveRecord::Migration
+  def self.up
+    create_table :groups do |t|
+      t.column :name, :string
+      t.column :administrator_email, :string
+      t.column :callerid_name, :string
+      t.column :callerid_num, :string
+      #t.column :usage_limit, :integer
+    end
+  end
+
+  def self.down
+    drop_table :groups
+  end
+end
+
+# Run "rake migrate" to run this script properly.
+# CreateUsers.up
+# CreateGroups.up

data/new_projects/extensions.rb

@@ -0,0 +1,56 @@
+
+from_pwnyourphone {
+  # You rock! Be awesome and record us a message! We'll put supportive messages on the podcast!"
+  # Get ready to record. 5, 4, 3, 1 *BEEP*
+  play %(you-rock record-us-a-message we-put-messages-on-podcast get-ready five-countdown beep)
+  record :for => 3.minutes, :to => "/recordings/pwner.#{Time.now.to_i}.#{calleridnumber}.gsm"
+}
+
+internal {
+	callee = User.find_by_ivr_extension extension
+	if callee
+
+    voicemail extension if last_dial_status != :answer
+  
+	#elsif extension.to_s =~ //#/^(((\d{1,3})?\d{1{3})?[1-9]\d{2})?[1-9]\d{6}$/
+  #    puts "got here"
+  #    dial "SIP/#{extension}@sipphone"
+  else
+	  case extension
+      when 21 then play weather_report
+      when 32 then dial "SIP/zoip@demo.zoip.org"
+      when 888 then loop { print '.'; XBMC.sendkey XBMC.translate(wait_for_digit) }
+      when 9999
+        if rand(20) == 0
+    	    play %W(a-connect-charge-of #{rand(50) + 10} cents-per-minute will-apply)
+      	  sleep 1.second
+      	  play %w(just-kidding-not-upset)
+        end
+        check_voicemail caller.voicemailbox
+      else
+        play 'all-your-base'
+    end
+	end
+}
+
+old {
+  case extension
+    when 1 then play weather_report("Richardson, Texas")
+    when 2 then play weather_report(input(5, :play => 'zip-code'))
+    when 3 then +xbmc
+    when 4
+      dial :tweedledee
+  end
+}
+
+xbmc {
+  loop {
+    print '.'
+    XBMC.sendkey XBMC.translate(wait_for_digit)
+  }
+}
+
+from_gizmo {
+  #dial :tweedledum
+  +xbmc
+}

data/new_projects/helpers/drb_server.rb

@@ -0,0 +1,32 @@
+
+require 'drb'
+require 'drb/acl'
+require 'thread'
+
+# Load the access control list
+config = $HELPERS['drb_server']
+
+permissions = []
+# For greater control over the ACL
+if config['raw_acl']
+  permissions = config['raw_acl'].flatten
+else 
+  [config['deny']].flatten.each  { |ip| permissions  << "deny"  << ip }
+  [config['allow']].flatten.each { |ip| permissions << "allow" << ip }
+end
+
+DRb.install_acl ACL.new(permissions)
+
+host = config['host'] || 'localhost'
+port = config['port'] || 9050
+DRb.start_service "druby://#{host}:#{port}", PBX
+
+puts "Started DRb server on #{DRb.uri}."
+puts "DRb Server Access Control List:"
+0.step permissions.length-1, 2 do |i|
+  puts "   #{permissions[i].upcase} #{permissions[i+1]}"
+end
+
+$HUTDOWN.hook do
+  DRb.stop_service
+end

data/new_projects/helpers/factorial.alien.c

@@ -0,0 +1,32 @@
+
+/*
+=begin Adhearsion metadata
+
+  name: Native Factorial
+  author:
+    name: Jay Phillips
+    blog: http://jicksta.com
+    email: Jicksta -at- Gmail.com
+  gems:
+    - soap4r
+    - rubyinline: >= 0.8.2
+  instructions: >
+      Yes, this is a pure C file!!!
+      This is an example of writing Adhearsion extensions in
+      other languages. The first time this file is executed
+      it will be compiled and the binary form will be cached.
+
+      If your Adhearsion system is heavily dependent on
+      an intensive helper, it may be advantageous to rewrite
+      it in a language such as C or C++ and use it like this.
+
+=end
+*/
+
+int fast_factorial(int input) {
+  int sum = 0, count = 1;
+  while(count <= input) {
+    sum += count++;
+  }
+  return sum;
+}

data/new_projects/helpers/manager_proxy.rb

@@ -0,0 +1,43 @@
+require 'rami'
+class PBX
+  include Rami
+  
+  @@sip_users = {}
+  
+  @@rami_server_thread = Thread.current
+  
+  @@rami_server = Rami::Server.new $HELPERS.manager_proxy
+  @@rami_server.console = 1
+  @@rami_server.run
+  
+  @@rami_client = Client.new @@rami_server
+  @@rami_client.timeout = 10
+  
+  def self.rami_client() @@rami_client end
+  
+  $HUTDOWN.hook do
+    @@rami_client.stop
+  end
+  
+  def self.sip_users
+    if !@@sip_users[:expiration] || @@sip_users[:expiration] <= Time.now
+      sip_db = PBX.rami_client.command("database show SIP/Registry").first
+      sip_db = sip_db[ sip_db.keys.select { |x| x.is_a? Fixnum }.first ]
+      sip_db = sip_db.gsub( /--[A-Z ]+?--/ , '').strip
+      users = sip_db.split "\n"
+      users.collect! do |user|
+        fields = user.split ':'
+        { :username => fields[4],
+          :ip => fields[1].strip,
+          :port => fields[2],
+          :address =>  fields[6] }
+      end
+      @@sip_users[:users] = users
+      @@sip_users[:expiration] = 90.seconds.from_now
+    end
+    @@sip_users[:users]
+  end
+  def self.record channel, file, format, mix
+
+  end
+end

data/new_projects/helpers/micromenus.rb

@@ -0,0 +1,374 @@
+# Micromenus Adhearsion helper
+# Copyright 2006 Jay Phillips
+# 
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
+
+require 'rubygems'
+require 'builder'
+require 'webrick'
+require 'stringio'
+
+class WEBrick::HTTPRequest
+  def ip() @peeraddr[3] end
+end
+
+# Micromenu catchers are special hooks that allow integration
+# between micromenus and incoming calls (specifically, incoming
+# calls generated by the micromenus)
+$MICROMENU_CALL_HOOKS = []
+class << $MICROMENU_CALL_HOOKS
+  def purge_expired!
+    self.synchronize { |hooks| hooks.delete_if { |h| h.expiration < Time.now } }
+  end
+end
+
+class MicromenusServlet < WEBrick::HTTPServlet::AbstractServlet
+  
+  class MicromenuGenerator
+
+    def initialize request, model, io=$stdout
+      @request, @io, @config = request, io, []
+      @xml = Builder::XmlMarkup.new(:target => @io, :indent => 3)
+      self.extend model
+    end
+
+    attr_accessor :name, :io, :config, :request
+
+    def process request
+      route = request.dup
+      
+      if route.empty?
+        start "Error" do
+          build_text "Bad URL!"
+          build_text "Must point to a micromenu!"
+        end
+        return
+      end
+      
+      title = " Adhearsion Micromenus"
+      
+      filename = route.shift
+      load_menu filename
+      until route.empty?
+        segment = route.shift
+        broken = segment.match(/^([\w_.]+);?(\d*)$/)
+        segment, id = broken[1], broken[2]
+        id = nil if id.empty?
+        
+        matches = @config.select do |x|
+          x[:type] == :menu && x[:text].nameify == segment
+        end
+        dest = matches[(id.simplify || 1) - 1]
+        
+        
+        if dest then
+          @config.clear
+          title = dest[:text]
+          dest[:block].call
+        else
+          start "Error" do
+            item '404 Not found!'
+            item "Req: #{request.inspect}"
+            return
+          end
+        end
+      end
+      
+      # Let any headers override the default title
+      @config.each do |item|
+        if item[:type] == :heading
+          title = @config.delete(item)[:text]
+          break
+        end
+      end
+      
+      start title do
+        @config.each do |item|
+          case item[:type]
+          when :menu
+            build_menu item[:text], item[:uri], request
+          when :item
+            build_text item[:text]
+          when :heading
+            build_header item[:text]
+          when :image
+            build_image item[:text]
+		      when :call
+		        build_call item[:number], item[:text]
+          end
+        end
+      end
+    end
+
+    def load_menu filename
+      @config.clear
+      file = File.join('config','helpers', 'micromenus', filename + '.rb')
+      unless File.readable? file
+        item "Bad URL!"
+        item "File inexistent!"
+      else
+        eval File.read(File.join('config','helpers', 'micromenus', filename + '.rb'))
+      end
+      @config
+    end
+    def join_url url, *pages
+      url *= '/' if url.is_a? Array
+      '/' + if url.empty?
+        pages * '/'
+      else
+        ((url[-1] == ?/) ? url : url + "/") + pages * '/'
+      end
+    end
+    
+    def get_refresh() @refresh end
+	
+    module PolycomPhone
+      
+      def content_type() "text/html" end
+      
+      def start name='', &block
+        @xml.html do
+          @xml.head do
+            @xml.title name
+          end
+          @xml.body do
+            yield
+          end
+        end
+      end
+      
+      def build_menu str, uri, request
+        #build_menu item[:text], item[:uri], request
+        #request.flatten! if request.is_a? Array
+        @xml.p { @xml.a str, :href => join_url(request, uri) }
+      end
+      
+      def build_text str
+        @xml.p str
+      end
+      
+      def build_prompt
+        
+      end
+      
+      def build_image filename, hash=nil
+        @xml.img :src => "/images/#{filename}"
+      end
+      
+      def build_header str
+        @xml.h1 str
+      end
+      
+      def build_call number, name=number
+        @xml.a name, :href => "tel://#{number}"
+        @xml.br
+      end
+    end
+    
+    module XulUi
+      
+	    include PolycomPhone
+      def content_type() "application/vnd.mozilla.xul+xml" end
+
+      def start name='', &block
+        @xml.instruct!
+        @xml.instruct! 'xml-stylesheet', :href => "chrome://global/skin/", :type => "text/css"
+        @xml.instruct! 'xml-stylesheet', :href => "/stylesheets/firefox.xul.css", :type => "text/css"
+        @xml.window :title => name,
+          'xmlns:html' => "http://www.w3.org/1999/xhtml",
+          :xmlns => "http://www.mozilla.org/keymaster/gatekeeper/there.is.only.xul" do
+          @xml.vbox :id => 'haupt' do
+            #@xml.label name, :class => 'header'
+            yield
+          end
+        end
+      end
+
+      def build_call number, name=number
+        # The tel:// UI doesn't do Firefox much good. Mexuar, maybe?
+        @xml.html:a, name, :href => "tel://#{number}"
+        @xml.html:br
+      end
+      
+      def build_menu str, uri, request
+        @xml.html:a, str, :href => join_url(request, uri)
+      end
+      
+      def build_text str
+        @xml.description str
+        @xml.html:br
+      end
+
+      def build_image filename, hash=nil
+        @xml.html:img, :src => "/images/#{filename}"
+      end
+      
+      def build_header str
+        @xml.label str, :class => 'header'
+      end
+      
+    end
+    
+    
+    module FirefoxUi
+      
+	    include PolycomPhone
+	    
+      def start name='', &block
+        @xml.html do
+          @xml.head do
+            @xml.title name
+            @xml.link :rel => 'stylesheet', :media => 'all', :href => '/stylesheets/firefox.css'
+          end
+          @xml.body do
+            yield
+          end
+        end
+      end
+      def build_call number, name=number
+        # The tel:// UI doesn't do Firefox much good. Mexuar, maybe?
+        @xml.a name, :href => "tel://#{number}"
+        @xml.br
+      end
+
+    end
+    
+
+    private
+
+
+    def image name
+      name += '.bmp' unless name.index ?.
+      @config << {:type => :image, :text => name}
+    end
+	
+  	def refresh_every time
+        @refresh = time
+  	end
+
+    def heading str
+      @config << {:type => :heading, :text => str}
+    end
+    alias header heading
+
+    def item title, &block
+      hash = {:text => title, :type => :item }
+      if block_given?
+        hash[:block], hash[:type], hash[:uri] = block, :menu, title.nameify
+        collisions = @config.select { |c| c[:type] == :menu && c[:text].nameify == hash[:uri]}.length
+        hash[:uri] += ";#{collisions + 1}" if collisions.nonzero?
+      end
+      @config << hash
+    end
+    def items array
+      array.each { |x| item x }
+    end
+
+    def guess_sip_user
+      return @guessed_user if @guessed_user
+      selection = PBX.sip_users.select { |x| x[:ip] == request.ip }.first
+      @guessed_user = selection ? selection.username : nil
+    end
+
+    def call number, name=number, &block
+      instance = {:type => :call, :text => name, :number => number}
+      if block_given?
+        $MICROMENU_CALL_HOOKS.purge_expired!
+        num = "555551337#{rand(8_999_999_999) + 1_000_000_000}"
+        instance[:number] = num
+        $MICROMENU_CALL_HOOKS.synchronize do |hooks|
+          hooks << { :expiration => 90.seconds.from_now, :extension => num, :hook => block }
+        end
+      end
+  		@config << instance
+	  end
+	  
+    def action title, &block
+      # Just like menu() but without a submenu.
+      # Useful for performing an action and refreshing.
+    end
+  end
+  
+  USER_AGENT_MAP = {
+    "Polycom" => MicromenuGenerator::PolycomPhone,
+    "Firefox" => MicromenuGenerator::XulUi#FirefoxUi
+  }
+  
+  def do_GET(request, response)
+    puts 'trying do'
+    response.status = 200
+    puts "Request from: " + request['User-Agent']
+    
+    route = request.path[1..-1].split '/'
+    if route.first == 'images'
+      file = File.join(%w(config helpers micromenus images), route[1..-1])
+      # TODO: Handle missing files
+      response.content_type = WEBrick::HTTPUtils::mime_type file, WEBrick::HTTPUtils::DefaultMimeTypes
+      response.body = File.read file
+      
+    elsif route.first == 'stylesheets'
+      file = File.join %w(config helpers micromenus stylesheets), route[1..-1]
+      response.content_type = 'text/css'
+      response.body = File.read file
+    else
+      mg = MicromenuGenerator.new request, resolve_brand(request['User-Agent']), StringIO.new
+      response.content_type = mg.content_type
+      response['Expires'] = 2
+
+      mg.process route
+
+      refresh = mg.get_refresh
+	  response['Refresh'] = refresh if refresh
+
+	  response.body = mg.io.string
+    end
+  end
+  
+  def resolve_brand useragent
+    USER_AGENT_MAP.each do |k,v|
+      return v if useragent.index k
+    end
+    MicromenuGenerator::PolycomPhone # Polycom's the default since it's XHTML
+  end
+end
+
+$MICROMENU_THREAD = Thread.new do
+  micromenu_server = WEBrick::HTTPServer.new :Port => ($HELPERS.micromenus.port || 1337)
+  micromenu_server.logger = Logger.new 'logs/database.log', 10, 1.megabyte
+  micromenu_server.mount '/', MicromenusServlet
+  $HUTDOWN.hook {
+    micromenu_server.stop
+  }
+  micromenu_server.start
+end
+
+
+# This before_call hook is the magic behind the call() method in the micromenus.
+before_call :low do
+  # PSEUDOCODE
+  # Check extension for format. next unless it matches
+  # Delete all expired hooks
+  # Find first match in the collection of hooks
+  # Pull the first match out of the collection
+  # Execute that match's block finish
+  extension = Thread.current[:VARS]['extension'].to_s
+  
+  next unless extension.length == 19 && extension.starts_with?("555551337")
+  $MICROMENU_CALL_HOOKS.purge_expired!
+  match = $MICROMENU_CALL_HOOKS.detect { |x| x.extension == extension }
+  next unless match
+  Thread.current[:VARS]['context'] = :interrupted
+  +match.hook
+end