rdomino 0.0.2

data/lib/rdomino.rb

@@ -0,0 +1,32 @@
+#require 'rubygems'
+require 'win32ole'
+require 'highline/import'
+require 'active_support'
+
+Dir[File.dirname(__FILE__).gsub(/\\/,'/') + '/*/*.rb'].each{|f| require f}
+module Rdomino
+  
+  class Datetime
+    include DomObject
+    def initialize(time)
+      @obj = Session.session.createDatetime(time.strftime("%d.%m.%Y %H:%M:%S"))
+    end
+      
+  end
+  
+  class Daterange
+    include DomObject
+    def initialize(sdt,edt)
+      @obj = Session.session.Createdaterange
+      @obj.StartDateTime = sdt.obj
+      @obj.EndDateTime = edt.obj
+    end
+  end
+    
+  class Agent
+    include DomObject
+  end 
+  
+  puts "rdomino(#{VERSION}) loaded"
+  
+end

data/lib/rdomino/1modules.rb

@@ -0,0 +1,77 @@
+module Rdomino
+  
+  module DomObject
+    
+    def method_missing(m,*args)
+      # puts "#{@obj}.send #{m} #{args.inspect}"
+      @obj.__send__(m,*args)
+    end
+    
+    def obj
+      @obj
+    end
+    
+    def empty?
+      @obj.nil?
+    end
+    
+    def initialize(obj)
+      @obj = obj
+    end
+   
+  end
+  
+  module DbDcDoc
+  
+    def dxl_to_file(filename)
+      File.open(filename, "w") do |f| 
+        f << dxl 
+      end
+    end
+    
+    def dxl
+      dxl_exporter = Session.session.createDXLExporter
+      dxl_exporter.export(@obj)
+    end
+    
+  end
+  
+  module DcView
+    
+    def each
+      doc = @obj.getLastDocument
+      while doc
+        next_doc = @obj.getPrevDocument(doc)
+        yield(Document.new(doc))
+        doc = next_doc
+      end 
+    end
+    
+  end
+  
+  module DatabaseHelper
+    def is_replica_id?(s)
+      ( s =~ /[A-F0-9]{16}/ ? true : false)
+    end
+  end
+  
+  module PersonDoc
+    def maildb
+      Session.get["#{get :mailserver}!!#{get :mailfile}"]
+    end
+    
+    def maildb_cluster
+      Session.get["#{cluster(get(:mailserver)[0])}!!#{get :mailfile}"]
+    end
+    
+    def cluster(s) # CN=EU-MAIL36/OU=DE/O=BAYER"
+      server,*ou = s.split("/")
+      nr = server[-2..-1]
+      h={'35'=>'36','37' => '38'}
+      clnr = h[nr] || h.invert[nr]
+      raise "cluster not defined" unless clnr
+      ou.insert(0,server[0..-3]+clnr).join("/")
+    end
+  end
+  
+end

data/lib/rdomino/database.rb

@@ -0,0 +1,380 @@
+# autoload database specific modules
+Dir["#{File.dirname(__FILE__).gsub(/\\/,'/')}/databases/*.rb"].each{|f| require f}
+
+module Rdomino
+  
+  class Database
+    attr_reader :name,:server_path
+    include Enumerable,DomObject,DbDcDoc, DatabaseHelper
+    
+    def replication
+      @replication ||= self.replicationInfo 
+    end
+    
+    def cut_off_intervall
+      replication.cutoffInterval
+    end
+    
+    def cut_off_intervall=(v)
+      replication.cutoffInterval = v
+      replication.save() 
+    end
+        
+    def each(&b)
+      dc = DocumentCollection.new(@obj.allDocuments)
+      dc.each(&b) 
+    end
+    
+    def [](view_string)
+      if view_string =~ /^search:(.*)/
+        search( $1 )
+      else 
+        v = get_view( view_string )
+        v.obj ? v : nil
+      end
+    end
+    
+    def to_s
+      "#{obj.title} (#{server_path})"
+    end
+    
+    # server,path or object
+    def initialize(name,obj)
+      m = Rdomino::Databases.const_get(name.to_s.camelize) rescue nil
+      self.extend(m) if m
+      @name = name
+      case obj
+      when String
+        @server_path = obj
+        server, path = obj.split("!!") 
+        @obj = Session.session.getDatabase(server, path)
+        flag = @obj.OpenByReplicaID( server, path ) if is_replica_id?(path)
+      else
+        @obj = obj
+        @server_path = "#{obj.server}!!#{obj.filepath}"
+      end
+      print "\ndb.open:#{self}"
+    end
+    
+    def open!
+      unless isopen
+        @obj = Session.session.getDatabase(@obj.server, @obj.filepath)
+      end
+      self
+    end
+    
+    def get_view(v)
+      View.new(@obj,v)
+    end
+    
+    def get_agent(v)
+       Agent.new(obj.getAgent(v))
+    end
+    
+    # contains deleted documents
+    def all_documents
+      DocumentCollection.new(@obj.allDocuments)
+    end
+	  alias :all :all_documents
+   
+    def count
+      all_documents.count
+    end
+      
+    # search(:Memo) => all Memos  
+    # only documents modified within cutoff_days
+    def search(filter,since=Time.local(1980,1,1,0,0,0),count=0)
+      filter = "Form='#{filter}'" if filter.kind_of? Symbol
+      DocumentCollection.new(@obj.search(filter,Datetime.new(since).obj,count))
+    end
+
+    def create_document(attributes={})
+      doc = Document.new( obj.CreateDocument )
+      attributes.each do |field,value|
+        doc.replaceItemValue(field.to_s,value)
+      end
+      doc.save(true, false)
+      doc
+    end
+        
+    def fixtures
+      Session.get.configuration[name][:fixtures]
+    end
+    
+    # :xml from test/fixtures/db.xml
+    # :yml from config.yml [db][fixtures]
+    # hash or Array of
+    # tabular text: f1|f2\nv1|v2
+    def load_fixtures(p=:xml)
+      delete_documents
+      p = ( [] << p ) if p.kind_of? Hash
+      p = fixtures if p == :yml
+      case p
+      when String
+        f,*d = p.split("\n")
+        fields = f.split("|")
+        d.each do |line|
+          hash = {}
+          values = line.split("|")
+          values.each_index{ |i| hash[fields[i]] = values[i] }
+          create_document(hash)
+        end
+      when Array
+        p.map{|h|
+          create_document(h) }[0]
+      else
+        dxl_import(IO.read(fixture_file))
+      end
+      self
+    end
+    
+    def fixture_file
+      File.dirname(__FILE__)+"/../../test/fixtures/#{name}.xml"
+    end
+    
+    def dump
+      all_documents.dxl_to_file( fixture_file )
+    end
+    
+    def import_all_documents_by_dxl(db)
+      d = db.all_documents.dxl
+      dxl_import(d)
+    end
+    
+    # returns number al deleted documents
+    def delete_documents(*form)
+      if form.empty?
+        dc = allDocuments
+      else
+        filter = "Form='#{form.map{|i| i.to_s}.join("':'")}'"
+        dc = search( filter )
+      end
+      c = dc.count
+      dc.removeAll true
+      c == 0 ? nil : c
+    end
+    
+    def dxl_import(s)
+      imp = Session.session.createDXLImporter
+      imp.replaceDBProperties = false
+      imp.replicaRequiredForReplaceOrUpdate = false
+      imp.aCLImportOption = 5 # DXLIMPORTOPTION_REPLACE_ELSE_IGNORE
+      imp.designImportOption = 2 # DXLIMPORTOPTION_CREATE
+      imp.import(s, obj)
+    end
+    
+    # multiple Documents are yielded to a block
+    # returns the number of documents found
+    #   ReplicationFormulas Actions DataConnections Documents
+    #   Agents Folders Forms ScriptLibraries Subforms Views
+    #   FrameSets Navigators Pages Outlines     
+    #   ImageResources JavaResources MiscCodeElements MiscFormatElements MiscIndexElements
+    #   Profiles SharedFields StyleSheetResources
+    def design_documents(*elements)
+      elements.map!{|e| "#{e}=" }  
+      elements << :alldesignelements if elements.empty?
+      # its nv.alldesignelements(true)
+      # but nv.views = true
+      nc = @obj.CreateNoteCollection false
+      elements.each{|v| 
+        nc.send("select#{v}",true)}
+      nc.BuildCollection
+      id = nc.GetFirstNoteId
+      # check if its a single element which doesn't end with 's'
+      if elements.length == 1 && elements[0].to_s !~ /s=?$/
+        find(id)
+      else  
+        while id != '' 
+          yield find(id) 
+          id = nc.GetNextNoteId(id)
+        end
+        nc.count
+      end 
+    end
+
+    # single returns the document
+    [:acl,:databasescript,:helpabout,:helpindex,:helpusing].each do |m| 
+      define_method(m) do
+        design_documents m
+      end
+    end
+    
+    def icon
+      find('FFFF0010')
+    end
+    
+    def flags
+      f = icon.g(:$flags)
+      r =[f]
+      (f.length).times {|i| c = f[i].chr;  r << "#{c} - #{FLAGS[c]}" }
+      r  
+    end
+    
+    # underscored will be omitted (as in selection list)    
+    def default_frameset
+      icon.g(:$DefaultFrameset)
+    end
+    
+    def default_frameset=(value)
+      icon.replace :$DefaultFrameset => value
+      icon.save
+    end
+    
+    # options(:open => true) => :no_action, :refreshed, :pasted
+    def refresh_view_design(template_view,options={})
+      view_name = template_view.name
+      view = get_view( view_name )
+      if view.obj
+        if view == template_view
+          remove,paste,result = false,false, :no_action
+        else
+          remove,paste,result = true,true,:refreshed
+        end
+      else
+        remove,paste,result = false,true,:pasted
+      end
+      view.document.removepermanently(true) if remove
+      if paste
+        template_view.document.copytodatabase(@obj)
+        get_view( view_name ).refresh if options[:open]
+      end  
+      result
+    end
+     
+    # defaults :duration => 1,  :location => '' , :body => nil
+    def create_meeting(start_time,subject,p={})
+      end_time = start_time + (p[:duration]||1) * 3600
+      sdt = Datetime.new(start_time)    
+      edt = Datetime.new(end_time)  
+      date_range = Daterange.new(sdt,edt)    
+      target = create_document( 
+        :form => 'Appointment',
+        :subject => subject,
+        :chair => 'CN=Frank Behrens/OU=IMBEH/OU=BBS/O=BAYER',
+        :principal => 'CN=Frank Behrens/OU=IMBEH/OU=BBS/O=BAYER',
+        :location => p[:location]||'' ,
+        :appointmentType => '3',
+        :KLCategories_2 => "",   
+        :Alarms => "0",
+        :Logo => "StdNotesLtr14",
+        :BookFreeTime => "",
+        :Duration => 105,
+        :SequenceNum => 1,
+        :OrgTable => "CO",
+        :tmpOwnerHW => "1",
+        :WebDateTimeInit => "1",
+        :TimeRange => date_range.obj,
+        :CalendarDateTime => sdt.obj,
+        :startDate => sdt.obj,
+        :startDateTime => sdt.obj,
+        :startTime => sdt.obj,
+        :endDate => edt.obj,
+        :endDateTime => edt.obj,
+        :endTime => edt.obj,
+        :_ViewIcon => 9,
+        :Org_Table=> "")
+#        Call doc.ReplaceItemValue("Org_Table", ORS_ITEM_PLANNER)   
+#        Set newitem = New NotesItem(doc,"_ViewIcon",9)
+#        newitem.issummary = True
+#        doc.PostedDate = Now
+      target.obj.CopyItem( p[:body], "" )       if p[:body]
+      target.ComputeWithForm false, false
+      target.save(true, false)
+      target
+    end
+    
+    def copy(destination)
+      server, path = destination.split("!!")       
+      new(obj.CreateReplica( server, path ))
+    end
+    
+    def move(destination)
+      target = copy(destination)       
+      obj.Remove
+      @obj = nil
+      target
+    end
+    
+    # finds document by noteid or unid
+    def find(id)
+      if id.length == 32
+        Document.new(obj.getdocumentbyunid(id))
+      else
+        Document.new(obj.getdocumentbyid(id))
+      end
+    end
+    
+    def by( f=:Form, s=nil)
+      field = f.to_s  
+      h = Hash.new { |hash, key| hash[key] = 0 }
+      (s ? search(s) : all_documents).each do |d| 
+        h[d.getItemValue(field)[0]] += 1 unless d.isDeleted
+      end
+      puts "-----------------------------"
+      h.keys.sort.each{|k| puts "%10s %10d"%[k,h[k]]}  
+      h
+#      while dc.count > 0
+#        doc = dc.GetFirstDocument
+#        value = doc.getitemValue(field)[0] 
+#        dc_sub = search("#{field}='#{value}'")
+#        h[field] = dc_sub.count
+#        dc.obj.Subtract( dc_sub ) # doesn't work 
+#      end
+    end
+    
+    def first
+      all.first
+    end
+    
+    def last
+      all.last
+    end
+    
+    FLAGS = {
+      '4' => :allow_soft_deletes_,
+      'Z' => :enable_lz1_compression,
+      'f' => :do_not_allow_stored_forms,
+      'z' => :do_not_maintain_unread_marks,
+      'h' => :mark_parent_document_on_reply_or_forward,
+      'J' => :use_javascript_when_generating_web_pages,
+      'n' => :never_show_policy_never_show_about_database_when_first_opened,
+      '7' => :large_unk_table_allow_more_fields_in_database,
+      '6' => :allow_design_locking,
+      'K' => :restore_as_lasted_viewed_by_user,
+      'c' => :show_about_database_if_modified,
+      'Q' => :replicate_unread_marks_to_clustered_servers_only,
+      'U' => :replicate_unread_marks_to_all_servers_appears_with_q_set,
+      '2' => :optimise_document_table_bitmap,
+      '3' => :maintain_lastaccessed_property,
+      '1' => :dont_support_specialised_response_hierarchy,
+      'M' => :multilingual_database,
+      'X' => :web_access_requires_ssl_connection,
+      '8' => :web_access_dont_allow_url_open,
+      'i' => :display_images_after_loading,
+      '5' => :allow_document_locking,
+      'g' => :database_type_library,
+      'j' => :database_type_personal_journal,
+      'b' => :database_type_domino_directory,
+      'B' => :database_type_directory_catalog,
+      'm' => :database_type_multi_db_search,
+      'u' => :database_type_portfolio,
+      'A' => :database_type_mailbox,
+      'r' => :database_type_mailfile,
+      'p' => :always_show_about_database_document_when_opened_in_the_client_property,
+      'F' => :launch_designated_frameset,
+      'l' => :launch_designated_navigator,
+      's' => :launch_designated_navigator_in_own_window_used_in_conjuction_with_l_above,
+      'a' => :launch_first_attachment_in_about_database_document,
+      'd' => :launch_first_doclink_in_about_database_document,
+      'P' => :web_launch_show_about_database_document,
+      'S' => :web_launch_open_designated_frameset,
+      'E' => :web_launch_open_designated_page,
+      'L' => :web_launch_open_designated_navigator_in_its_own_window,
+      'D' => :web_launch_open_first_doclink_in_about_database_document,
+      'T' => :web_launch_open_designated_doclink,
+      'V' => :web_launch_open_first_document_in_designated_view
+    }
+    
+  end
+
+end