powerhome-activeldap 3.2.3

data/lib/active_ldap/schema/syntaxes.rb

@@ -0,0 +1,422 @@
+module ActiveLdap
+  class Schema
+    module Syntaxes
+      class << self
+        def [](id)
+          syntax = Base::SYNTAXES[id]
+          if syntax
+            syntax.new
+          else
+            nil
+          end
+        end
+      end
+
+      class Base
+        include GetTextSupport
+        SYNTAXES = {}
+
+        printable_character_source = "a-zA-Z\\d\"()+,\\-.\\/:? "
+        PRINTABLE_CHARACTER = /[#{printable_character_source}]/ #
+        UNPRINTABLE_CHARACTER = /[^#{printable_character_source}]/ #
+
+        def type_cast(value)
+          value
+        end
+
+        def valid?(value)
+          validate(value).nil?
+        end
+
+        def validate(value)
+          validate_normalized_value(normalize_value(value), value)
+        end
+
+        def normalize_value(value)
+          value
+        end
+      end
+
+      class BitString < Base
+        SYNTAXES["1.3.6.1.4.1.1466.115.121.1.6"] = self
+
+        def type_cast(value)
+          return nil if value.nil?
+          if /\A'([01]*)'B\z/ =~ value.to_s
+            $1
+          else
+            value
+          end
+        end
+
+        def normalize_value(value)
+          if value.is_a?(String) and /\A[01]*\z/ =~ value
+            "'#{value}'B"
+          else
+            value
+          end
+        end
+
+        private
+        def validate_normalized_value(value, original_value)
+          if /\A'/ !~ value
+            return _("%s doesn't have the first \"'\"") % original_value.inspect
+          end
+
+          if /'B\z/ !~ value
+            return _("%s doesn't have the last \"'B\"") % original_value.inspect
+          end
+
+          if /([^01])/ =~ value[1..-3]
+            return _("%s has invalid character '%s'") % [value.inspect, $1]
+          end
+
+          nil
+        end
+      end
+
+      class Boolean < Base
+        SYNTAXES["1.3.6.1.4.1.1466.115.121.1.7"] = self
+
+        def type_cast(value)
+          case value
+          when "TRUE"
+            true
+          when "FALSE"
+            false
+          else
+            value
+          end
+        end
+
+        def normalize_value(value)
+          case value
+          when true, "1"
+            "TRUE"
+          when false, "0"
+            "FALSE"
+          else
+            value
+          end
+        end
+
+        private
+        def validate_normalized_value(value, original_value)
+          if %w(TRUE FALSE).include?(value)
+            nil
+          else
+            _("%s should be TRUE or FALSE") % original_value.inspect
+          end
+        end
+      end
+
+      class CountryString < Base
+        SYNTAXES["1.3.6.1.4.1.1466.115.121.1.11"] = self
+
+        private
+        def validate_normalized_value(value, original_value)
+          if /\A#{PRINTABLE_CHARACTER}{2,2}\z/i =~ value
+            nil
+          else
+            format = _("%s should be just 2 printable characters")
+            format % original_value.inspect
+          end
+        end
+      end
+
+      class DistinguishedName < Base
+        SYNTAXES["1.3.6.1.4.1.1466.115.121.1.12"] = self
+
+        def type_cast(value)
+          return nil if value.nil?
+          DN.parse(value)
+        rescue DistinguishedNameInvalid
+          value
+        end
+
+        def normalize_value(value)
+          if value.is_a?(DN)
+            value.to_s
+          else
+            value
+          end
+        end
+
+        private
+        def validate_normalized_value(value, original_value)
+          DN.parse(value)
+          nil
+        rescue DistinguishedNameInvalid
+          $!.message
+        end
+      end
+
+      class DirectoryString < Base
+        SYNTAXES["1.3.6.1.4.1.1466.115.121.1.15"] = self
+
+        private
+        def validate_normalized_value(value, original_value)
+          value.unpack("U*")
+          nil
+        rescue ArgumentError
+          _("%s has invalid UTF-8 character") % original_value.inspect
+        end
+      end
+
+      class GeneralizedTime < Base
+        SYNTAXES["1.3.6.1.4.1.1466.115.121.1.24"] = self
+        FORMAT = /\A
+                  (\d{4,4})?
+                  (\d{2,2})?
+                  (\d{2,2})?
+                  (\d{2,2})?
+                  (\d{2,2})?
+                  (\d{2,2})?
+                  ([,.]\d+)?
+                  ([+-]\d{4,4}|Z)?
+                 \z/x
+
+        def type_cast(value)
+          return value if value.nil? or value.is_a?(Time)
+          match_data = FORMAT.match(value)
+          if match_data
+            required_components = match_data.to_a[1, 5]
+            return value if required_components.any?(&:nil?)
+            year, month, day, hour, minute = required_components.collect(&:to_i)
+            second = match_data[-3].to_i
+            fraction = match_data[-2]
+            fraction = fraction.to_f if fraction
+            time_zone = match_data[-1]
+            arguments = [
+              year, month, day, hour, minute, second, fraction, time_zone,
+              Time.now
+            ]
+            if Time.method(:make_time).arity == 10
+              arguments.unshift(value)
+            end
+            begin
+              Time.send(:make_time, *arguments)
+            rescue ArgumentError
+              raise if year >= 1700
+              out_of_range_messages = ["argument out of range",
+                                       "time out of range"]
+              raise unless out_of_range_messages.include?($!.message)
+              Time.at(0)
+            rescue RangeError
+              raise if year >= 1700
+              raise if $!.message != "bignum too big to convert into `long'"
+              Time.at(0)
+            end
+          else
+            value
+          end
+        end
+
+        def normalize_value(value)
+          if value.is_a?(Time)
+            normalized_value = value.strftime("%Y%m%d%H%M%S")
+            if value.gmt?
+              normalized_value + "Z"
+            else
+              normalized_value + ("%+03d%02d" % value.gmtoff.divmod(3600))
+            end
+          else
+            value
+          end
+        end
+
+        private
+        def validate_normalized_value(value, original_value)
+          match_data = FORMAT.match(value)
+          if match_data
+            date_data = match_data.to_a[1..-1]
+            missing_components = []
+            required_components = %w(year month day hour minute)
+            required_components.each_with_index do |component, i|
+              missing_components << component unless date_data[i]
+            end
+            if missing_components.empty?
+              nil
+            else
+              params = [original_value.inspect, missing_components.join(", ")]
+              _("%s has missing components: %s") % params
+            end
+          else
+            _("%s is invalid time format") % original_value.inspect
+          end
+        end
+      end
+
+      class Integer < Base
+        SYNTAXES["1.3.6.1.4.1.1466.115.121.1.27"] = self
+
+        def type_cast(value)
+          return value if value.nil?
+          begin
+            Integer(value)
+          rescue ArgumentError
+            value
+          end
+        end
+
+        def normalize_value(value)
+          if value.is_a?(::Integer)
+            value.to_s
+          else
+            value
+          end
+        end
+
+        private
+        def validate_normalized_value(value, original_value)
+          Integer(value)
+          nil
+        rescue ArgumentError
+          _("%s is invalid integer format") % original_value.inspect
+        end
+      end
+
+      class JPEG < Base
+        SYNTAXES["1.3.6.1.4.1.1466.115.121.1.28"] = self
+
+        private
+        def validate_normalized_value(value, original_value)
+          if value.unpack("n")[0] == 0xffd8
+            nil
+          else
+            _("invalid JPEG format")
+          end
+        end
+      end
+
+      class NameAndOptionalUID < Base
+        SYNTAXES["1.3.6.1.4.1.1466.115.121.1.34"] = self
+
+        private
+        def validate_normalized_value(value, original_value)
+          separator_index = value.rindex("#")
+          if separator_index
+            dn = value[0, separator_index]
+            bit_string = value[(separator_index + 1)..-1]
+            bit_string_reason = BitString.new.validate(bit_string)
+            dn_reason = DistinguishedName.new.validate(dn)
+            if bit_string_reason
+              if dn_reason
+                value_reason = DistinguishedName.new.validate(value)
+                return nil unless value_reason
+                dn_reason
+              else
+                bit_string_reason
+              end
+            else
+              dn_reason
+            end
+          else
+            DistinguishedName.new.validate(value)
+          end
+        end
+      end
+
+      class NumericString < Base
+        SYNTAXES["1.3.6.1.4.1.1466.115.121.1.36"] = self
+
+        private
+        def validate_normalized_value(value, original_value)
+          if /\A\d+\z/ =~ value
+            nil
+          else
+            _("%s is invalid numeric format") % original_value.inspect
+          end
+        end
+      end
+
+      class OID < Base
+        SYNTAXES["1.3.6.1.4.1.1466.115.121.1.38"] = self
+
+        private
+        def validate_normalized_value(value, original_value)
+          DN.parse("#{value}=dummy")
+          nil
+        rescue DistinguishedNameInvalid
+          reason = $!.reason
+          if reason
+            _("%s is invalid OID format: %s") % [original_value.inspect, reason]
+          else
+            _("%s is invalid OID format") % original_value.inspect
+          end
+        end
+      end
+
+      class OtherMailbox < Base
+        SYNTAXES["1.3.6.1.4.1.1466.115.121.1.39"] = self
+
+        private
+        def validate_normalized_value(value, original_value)
+          type, mailbox = value.split('$', 2)
+
+          if type.empty?
+            return _("%s has no mailbox type") % original_value.inspect
+          end
+
+          if /(#{UNPRINTABLE_CHARACTER})/i =~ type
+            format = _("%s has unprintable character in mailbox type: '%s'")
+            return format % [original_value.inspect, $1]
+          end
+
+          if mailbox.blank?
+            return _("%s has no mailbox") % original_value.inspect
+          end
+
+          nil
+        end
+      end
+
+      class PostalAddress < Base
+        SYNTAXES["1.3.6.1.4.1.1466.115.121.1.41"] = self
+
+        private
+        def validate_normalized_value(value, original_value)
+          if value.blank?
+            return _("empty string")
+          end
+
+          begin
+            value.unpack("U*")
+          rescue ArgumentError
+            return _("%s has invalid UTF-8 character") % original_value.inspect
+          end
+
+          nil
+        end
+      end
+
+      class PrintableString < Base
+        SYNTAXES["1.3.6.1.4.1.1466.115.121.1.44"] = self
+
+        private
+        def validate_normalized_value(value, original_value)
+          if value.blank?
+            return _("empty string")
+          end
+
+          if /(#{UNPRINTABLE_CHARACTER})/i =~ value
+            format = _("%s has unprintable character: '%s'")
+            return format % [original_value.inspect, $1]
+          end
+
+          nil
+        end
+      end
+
+      class TelephoneNumber < PrintableString
+        SYNTAXES["1.3.6.1.4.1.1466.115.121.1.50"] = self
+
+        private
+        def validate_normalized_value(value, original_value)
+          return nil if value.blank?
+          super
+        end
+      end
+    end
+  end
+end

data/lib/active_ldap/timeout.rb

@@ -0,0 +1,75 @@
+require 'timeout'
+
+module Timeout
+
+  # A forking timeout implementation that relies on
+  # signals to interrupt blocking I/O instead of passing
+  # that code to run in a separate process.
+  #
+  # A process is fork()ed, sleeps for _sec_,
+  # then sends a ALRM signal to the Process.ppid
+  # process. ALRM is used to avoid conflicts with sleep()
+  #
+  # This overwrites any signal
+  def Timeout.alarm(sec, exception=Timeout::Error, &block)
+    return block.call if sec == nil or sec.zero?
+ 
+  
+    # Trap an alarm in case it comes before we're ready
+    orig_alrm = trap(:ALRM, 'IGNORE')
+
+    # Setup a fallback in case of a race condition of an
+    # alarm before we set the other trap
+    trap(:ALRM) do 
+      # Don't leave zombies
+      Process.wait2()
+      # Restore the original handler
+      trap('ALRM', orig_alrm)
+      # Now raise an exception!
+      raise exception, 'execution expired'
+    end
+
+    # Spawn the sleeper
+    pid = Process.fork {
+      begin
+        # Sleep x seconds then send SIGALRM 
+        sleep(sec)
+        # Send alarm!
+        Process.kill(:ALRM, Process.ppid)
+      end
+      exit! 0
+    }
+
+    # Setup the real handler
+    trap(:ALRM) do
+      # Make sure we clean up any zombies
+      Process.waitpid(pid)
+      # Restore the original handler
+      trap(:ALRM, orig_alrm)
+      # Now raise an exception!
+      raise exception, 'execution expired'
+    end
+
+    begin
+      # Run the code!
+      return block.call
+    ensure
+      # Restore old alarm handler since we're done
+      trap(:ALRM, orig_alrm)
+      # Make sure the process is dead
+      # This may be run twice (trap occurs during execution) so ignore ESRCH
+      Process.kill(:TERM, pid) rescue Errno::ESRCH
+      # Don't leave zombies
+      Process.waitpid(pid) rescue Errno::ECHILD
+    end
+  end
+end # Timeout
+
+if __FILE__ == $0
+  require 'time'
+  Timeout.alarm(2) do 
+    loop do 
+      p Time.now
+    end
+  end
+end