suls-smsr 0.0.1

data/lib/smsr/actions/config.rb

@@ -0,0 +1,21 @@
+module SmsR
+module Actions
+
+  class Config < RunnableAction
+    runnable do |provider, user, password|
+      SmsR.debug "Store entry for #{provider}"
+      SmsR.config[:"#{provider}"] = user, password
+      SmsR.config.save!
+      SmsR.info "Config for #{provider} added."
+    end
+
+    runnable :config do |provider|
+      p_c = SmsR.config[:"#{provider}"]
+      SmsR.info "Saved config for Provider '#{provider}':"
+      %w{user password}.each { |e|  SmsR.info "  #{e}: #{p_c.send e}"}
+    end    
+  
+  end
+  
+end
+end

data/lib/smsr/actions/list.rb

@@ -0,0 +1,21 @@
+module SmsR
+module Actions
+
+  class List < RunnableAction
+    runnable :load_providers do
+      
+      SmsR.info "","Available providers:", ""
+      SmsR::Providers.providers.each do |name, prov|
+        if SmsR.config[name.to_sym]
+          has_config = ""
+        else 
+          has_config = "*"
+        end
+        SmsR.info "\t#{name} #{has_config}"
+      end
+      SmsR.info "","* indicates no config saved for the provider."
+    end
+  end
+  
+end
+end

data/lib/smsr/actions/send.rb

@@ -0,0 +1,24 @@
+require "rubygems"
+require "rake"
+
+module SmsR
+module Actions
+  
+    class Send < RunnableAction
+    runnable :load_providers do 
+      SmsR.info "Available providers:"
+      SmsR::Providers.providers.each { |k,v| SmsR.info "  #{k}"}
+    end
+    
+    runnable :load_providers, :config, :provider do |provider_name, number, message|
+        
+      SmsR.debug "using #{@provider} " +
+                              "with config #{@config}"
+      
+      @provider.call @config.user, @config.password, number, message      
+      
+    end
+  end
+
+end
+end

data/lib/smsr/config.rb

@@ -0,0 +1,33 @@
+require 'yaml'
+
+module SmsR
+  OperatorConfig = Struct.new(:user, :password)
+  
+  class Config
+    attr_reader :last_saved
+    
+    def self.load(file=ENV['HOME']+'/.smsr_config')
+      return File.open(file) { |f| YAML.load(f) } if File.exists? file
+      Config.new(file)
+    end
+    
+    def save!(f_to_save=@config_file)
+      @last_saved = Time.now
+      File.open(f_to_save, "w") { |f| YAML.dump(self, f) }
+    end
+    
+    def initialize(f=nil)
+      @config_file = f
+      @config = {}
+    end
+    
+    def []=(key, params)
+      @config[key] = OperatorConfig.new(*params)
+    end
+    
+    def [](key)
+      @config[key]
+    end
+    
+  end
+end

data/lib/smsr/extensions.rb

@@ -0,0 +1,31 @@
+# from http://eigenclass.org/hiki/bounded+space+instance_exec
+class Object
+  module InstanceExecHelper; end
+  include InstanceExecHelper
+  def instance_exec(*args, &block)
+    begin
+      old_critical, Thread.critical = Thread.critical, true
+      n = 0
+      n += 1 while respond_to?(mname="__instance_exec#{n}")
+      InstanceExecHelper.module_eval{ define_method(mname, &block) }
+    ensure
+      Thread.critical = old_critical
+    end
+    begin
+      ret = send(mname, *args)
+    ensure
+      InstanceExecHelper.module_eval{ remove_method(mname) } rescue nil
+    end
+    ret
+  end
+end
+
+# http://whytheluckystiff.net/articles/seeingMetaclassesClearly.html
+class Object
+  # The hidden singleton lurks behind everyone
+  def eigenclass; class << self; self; end; end
+  
+  def add_instance_method(name, blk)
+    eigenclass.send :define_method, name, blk
+  end
+end

data/lib/smsr/providers.rb

@@ -0,0 +1,54 @@
+module SmsR  
+module Providers
+  
+  DEFAULT_PROVIDERS = File.dirname(__FILE__) + 
+                          '/../providers'
+  
+  extend self
+  
+  def provider(provider_name, &block)
+    SmsR.debug "registering #{provider_name}"
+    providers[provider_name] = Provider.new(block)
+  end
+
+  def providers
+    @providers ||= {}
+  end
+  
+  def reset
+    @providers = {}
+  end
+  
+  def load(*files)
+    files.each do |file|
+      if File.exists? file
+        SmsR.debug "Loading providers from: #{file}"
+        data = File.read(file)
+        # @providers = {} if drop_existing
+        module_eval data, file
+      else
+        SmsR.debug "Provider file #{file} doesn't exist."
+      end
+    end
+    providers
+  end
+  
+end
+
+module ProviderHelper
+
+  def find_form_with_field(page, fieldname)
+    page.forms.each do |form|
+      if form.fields.find{|f| f.name == fieldname}
+        yield form
+      end
+    end
+  end
+  
+  def to_ISO_8859_1(msg)
+    require "iconv"
+    Iconv.conv("ISO-8859-1", "UTF-8", message)
+  end
+  
+end
+end

data/lib/smsr/providers/provider.rb

@@ -0,0 +1,14 @@
+module SmsR  
+module Providers
+  
+  class Provider
+    
+    include ProviderHelper
+    
+    def initialize(block)
+      add_instance_method :call, block
+    end
+  end
+  
+end
+end

data/lib/smsr/smsr.rb

@@ -0,0 +1,97 @@
+require "ostruct"
+require "optparse"
+
+module SmsR
+
+  extend self
+  
+  def start(args, io=STDOUT)
+    @io = io
+    args_copy = args.dup
+    @options = parse_options(args)
+    
+    info ""
+    debug "args: ", args_copy << " "
+    debug "options: ", options
+    
+    debug "SmsR #{VERSION::STRING} started .."
+    
+    invoke_action(args.shift, args) if args.size > 0 if args
+    
+    debug ".. exiting SmsR"
+    info ""
+  end
+  
+  def debug?
+    !!@debug
+  end
+  
+  # FIXME: duplication!
+  def debug(*messages)
+    @io.puts messages.map { |m| "** #{m}" } if debug?
+  end
+  
+  # FIXME: duplication!
+  def info(*messages)
+    @io.puts messages.map { |m| " #{m}" }
+  end
+  
+  def parse_options(args)
+    options = OpenStruct.new
+    options.debug = false
+    
+    begin
+      OptionParser.new do |opts|
+        opts.banner = <<BANNER
+Usage: smsr [action] [parameters] [options]
+
+  To send a sms:
+  
+    $ smsr-send provider_name 079xx "this is my message"
+  
+  Provider 'provider_name' must exist. To see what providers exist:
+  
+    $ smsr list
+  
+BANNER
+
+        opts.on("-d", "--debug", "Show debug log statements") do |d|
+          options.debug = d 
+        end
+        
+        opts.on_tail("--version", "Show version") do
+          @io.puts VERSION::STRING
+          exit
+        end
+      end.parse!(args)
+    rescue OptionParser::InvalidOption => e
+      @io.puts e
+      exit
+    end
+    
+    @debug = options.debug
+    
+    options
+  end
+  
+  def options
+    @options
+  end
+  
+  def config
+    @config ||= Config.load 
+  end
+  
+  def invoke_action(action, args)
+    action = action.capitalize
+    available_actions = (Actions.constants - ['RunnableAction'])
+    debug "available actions: ", *(available_actions.map{|e| "\t"+e}) << " "
+    
+    if available_actions.include?(action)
+      Actions.const_get(action).run(args)
+    else
+      debug "selected action not available: #{action}"
+    end
+  end
+  
+end

data/lib/smsr/version.rb

@@ -0,0 +1,10 @@
+module SmsR
+  module VERSION
+    MAJOR = 0
+    MINOR = 0
+    TINY  = 1
+
+    STRING = [MAJOR, MINOR, TINY].join('.')
+    SUMMARY = "SmsR version #{STRING}"
+  end
+end

data/smsr.gemspec

@@ -0,0 +1,41 @@
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{smsr}
+  s.version = "0.0.1"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Mathias Sulser"]
+  s.date = %q{2008-11-04}
+  s.description = %q{Simple commandline utility for sending sms.}
+  s.email = ["suls@suls.org"]
+  s.executables = ["smsr", "smsr-config", "smsr-send"]
+  s.extra_rdoc_files = ["History.txt", "Manifest.txt", "README.txt"]
+  s.files = [".autotest", ".gitignore", "History.txt", "Manifest.txt", "README.txt", "Rakefile", "bin/smsr", "bin/smsr-config", "bin/smsr-send", "lib/providers/hispeed.rb", "lib/providers/o2.rb", "lib/providers/orange.rb", "lib/providers/swisscom.rb", "lib/smsr.rb", "lib/smsr/actions.rb", "lib/smsr/actions/config.rb", "lib/smsr/actions/list.rb", "lib/smsr/actions/send.rb", "lib/smsr/config.rb", "lib/smsr/extensions.rb", "lib/smsr/providers.rb", "lib/smsr/providers/provider.rb", "lib/smsr/smsr.rb", "lib/smsr/version.rb", "smsr.gemspec", "spec/providers/hispeed_spec.rb", "spec/providers/orange_spec.rb", "spec/providers/provider_helper.rb", "spec/providers/swisscom_spec.rb", "spec/smsr/actions/config_spec.rb", "spec/smsr/actions/send_spec.rb", "spec/smsr/actions_requirements_spec.rb", "spec/smsr/actions_spec.rb", "spec/smsr/config_spec.rb", "spec/smsr/providers_spec.rb", "spec/smsr/version_spec.rb", "spec/smsr_spec.rb", "spec/spec_helper.rb"]
+  s.has_rdoc = true
+  s.homepage = %q{http://sulsarts.ch/p/smsr}
+  s.rdoc_options = ["--main", "README.txt"]
+  s.require_paths = ["lib"]
+  s.rubyforge_project = %q{smsr}
+  s.rubygems_version = %q{1.3.1}
+  s.summary = %q{SmsR version 0.0.1}
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 2
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_runtime_dependency(%q<mechanize>, [">= 0.7.8"])
+      s.add_runtime_dependency(%q<rspec>, [">= 1.1.4"])
+      s.add_development_dependency(%q<hoe>, [">= 1.8.2"])
+    else
+      s.add_dependency(%q<mechanize>, [">= 0.7.8"])
+      s.add_dependency(%q<rspec>, [">= 1.1.4"])
+      s.add_dependency(%q<hoe>, [">= 1.8.2"])
+    end
+  else
+    s.add_dependency(%q<mechanize>, [">= 0.7.8"])
+    s.add_dependency(%q<rspec>, [">= 1.1.4"])
+    s.add_dependency(%q<hoe>, [">= 1.8.2"])
+  end
+end

data/spec/providers/hispeed_spec.rb

@@ -0,0 +1,11 @@
+require File.dirname(__FILE__) + '/provider_helper'
+
+describe "Hispeed" do
+  it "should test the orange provider" do
+    running :hispeed, "usr", "pwd", "num", "msg" do
+      WWW::Mechanize.stub!(:new)
+    end
+    
+    pending
+  end
+end

data/spec/providers/orange_spec.rb

@@ -0,0 +1,11 @@
+require File.dirname(__FILE__) + '/provider_helper'
+
+describe "Orange" do
+  it "should test the orange provider" do
+    running :orange, "usr", "pwd", "num", "msg" do
+      WWW::Mechanize.stub!(:new)
+    end
+    
+    pending
+  end
+end

data/spec/providers/provider_helper.rb

@@ -0,0 +1,16 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+def running(cmd, *args, &block)
+  SmsR::Providers.load File.dirname(__FILE__) + 
+                          "/../../lib/providers/#{cmd}.rb"
+                          
+  # rcov hack
+  begin
+    require File.dirname(__FILE__) + 
+                            "/../../lib/providers/#{cmd}.rb"
+  rescue NoMethodError => e
+  end
+  
+  block.call
+  SmsR::Providers.providers[cmd].call args
+end

data/spec/providers/swisscom_spec.rb

@@ -0,0 +1,12 @@
+require File.dirname(__FILE__) + '/provider_helper'
+
+describe SmsR::Providers::Provider, "Swisscom" do
+  it "should test the swisscom provider" do
+    running :swisscom, "usr", "pwd", "num", "msg" do
+      WWW::Mechanize.stub!(:new)
+    end
+    
+    pending
+  end
+  
+end

data/spec/smsr/actions/config_spec.rb

@@ -0,0 +1,8 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe SmsR::Actions::Config do
+  it "should respond to the config action"
+  it "should list the configs entries when run with 0 argument"
+  it "should list the provider's config entry when run with 1 argument"
+  it "should save the provider's config entry when run with 3 argument"
+end

data/spec/smsr/actions/send_spec.rb

@@ -0,0 +1,7 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe SmsR::Actions::Send do
+  it "should respond to the send action"
+  it "should list the available providers when run with 0 argument"
+  it "should send the sms using the give provider when run with 3 arguments"
+end

data/spec/smsr/actions_requirements_spec.rb

@@ -0,0 +1,143 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe SmsR::Actions::Requirements do
+  
+  before(:each) do
+    Object.send(:remove_const, :SubTest) if defined? SubTest
+  end
+  
+  after(:each) do
+    Object.send(:remove_const, :SubTest) if defined? SubTest
+  end
+  
+  
+  it "should run the defined requirements in sequence" do
+    helper = mock("RequirementsFoo")  
+    helper.should_receive(:first).and_return(true)
+    helper.should_receive(:second).and_return(false)
+    helper.should_not_receive(:third)
+    
+    helper_mod = MixinMock.new(helper)
+    
+    SmsR::Actions.stub!(:requirements).and_return(helper_mod)
+   
+    class SubTest < SmsR::Actions::RunnableAction
+      runnable :first, :second, :third do |needed|
+      end
+    end
+    
+    st = SubTest.new :p
+    st.requirements = [:first, :second, :third]
+    st.check.should be(false)
+  end
+end
+
+describe SmsR::Actions::Requirements, "requirement #config" do
+
+  before(:all) do
+    Test = Class.new do
+      attr_accessor :provider_name, :error
+      include SmsR::Actions::Requirements
+      
+      def initialize
+        @error = []
+      end
+    end
+    @tester = Test.new
+    @config = mock("Config")
+  end
+  
+  after(:each) do
+    @tester = nil
+    @config = nil
+    SmsR::Config.stub!(:load).and_return(nil)
+  end
+  
+  it "should return false if no config for provider :nonexisting_provider exists" do
+    @tester.provider_name = :nonexisting_provider
+    
+    @config.should_receive(:[]).
+           with(:nonexisting_provider).
+           and_return(nil)
+    
+    SmsR.stub!(:config).and_return(@config)
+    
+    @tester.config.should be(false)
+  end
+
+  it "should return 'true' if config for :existing_provider_1 exists" do
+    @tester.provider_name = :existing_provider
+    
+    @config.should_receive(:[]).
+             with(:existing_provider).
+             and_return(true)
+
+    SmsR.stub!(:config).and_return(@config)    
+    
+    @tester.config.should be(true)
+  end
+        
+  it "should add an error to @error when failing" do
+    @tester.provider_name = :nonexisting_provider
+
+    @config.should_receive(:[]).
+             with(:nonexisting_provider).
+             and_return(nil)
+
+    SmsR.stub!(:config).and_return(@config)    
+
+    @tester.config
+    
+    @tester.error.size.should_not be(0) 
+  end
+end
+
+describe SmsR::Actions::Requirements, "requirement #provider" do  
+  
+  include SmsR::Actions::Requirements
+  
+  before(:each) do
+    @providers = mock("Providers")
+    @provider_name = :blubb
+    @error = []
+  end
+  
+  it "should return false if no provider :nonexisting_provider exists" do
+    
+    @providers.should_receive(:[]).
+           with(:nonexisting_provider).
+           and_return(nil)
+           
+    SmsR::Providers.stub!(:providers).and_return(@providers)
+    
+    @provider_name = :nonexisting_provider
+    
+    provider.should be(false)
+    
+  end
+  
+  it "should return 'true' if provider :existing_provider exists" do
+    @providers.should_receive(:[]).
+           with(:existing_provider).
+           and_return(true)
+           
+    SmsR::Providers.stub!(:providers).and_return(@providers)
+    
+    @provider_name = :existing_provider
+    
+    provider.should be(true)
+  end
+  
+  it "should add an error to @error when failing" do
+    @providers.should_receive(:[]).
+           with(:existing_provider).
+           and_return(true)
+           
+    SmsR::Providers.stub!(:providers).and_return(@providers)
+    
+    @provider_name = :existing_provider
+    provider
+    
+    @error.size.should >= 1    
+  end
+end