rwdschedule 0.99 → 1.00

data/Readme.txt

@@ -154,6 +154,16 @@ Steven Gibson
 steven@superant.com
 
 == Changelog 
+Version 1.00
+ fixed sync download 
+ added more unit tests
+ 
+Version 0.99
+  updated for rwdtinker version 1.64
+  changed handling of application name returned
+  added jump seletion options
+  added some unit tests
+
 version 0.98
  updated for rwdtinker version 1.61 
  add in test harness

data/code/superant.com.schedule/downloadrwdschedulefiles.rb

@@ -9,24 +9,30 @@ def downloadrwdschedulefiles
  ftp.login($rwdschedule_ftplogin, $rwdschedule_ftppassword)
  ftp.chdir($rwdschedule_ftpdirectory)
  print "I'm in the directory ", ftp.pwd(), "\n"
- schfiles = ftp.nlst($rwdschedule_ftpdirectory) 
-   schfiles.each do |x|
-                          #adjust the filters to the files you want to see...
-                             if(!test(?d,x))
-                                   if x =~ /sch/
-                                      lastslash = x.rindex('/')+1
-                                      newstring = x.slice!(lastslash..256)
-                                     localupdatefile = File.join($rwdschedule_updatedirectory, "#{newstring}")
-                                     ftp.getbinaryfile("#{newstring}" , localupdatefile )
+ schfiles = ftp.nlst($rwdschedule_ftpdirectory) 
+ #puts schfiles
+ $stderr.print $rwdschedule_updatedirectory
+ 
+   schfiles.each {|x|
+                    #adjust the filters to the files you want to see...
+
+				if x =~ /sch/                               
+                                     #lastslash = x.rindex('/')+1
+                                     #newstring = x.slice!(lastslash..256)
+                                     newstring = x
+                                     # $stderr.print newstring.to_s
+                                     localupdatefile = File.join($rwdschedule_updatedirectory, "#{x}")
+                                     ftp.getbinaryfile("#{x}" , localupdatefile )
                                  @rwdscheduleftpdisplay  =   @rwdscheduleftpdisplay + newstring + "\n"                               
-                             end
-                             end
                              
-                         end
+         end
+                  
+                             
+                  }
    ftp.close
   
 rescue
- 
+  @rwdscheduleftpdisplay = "ftp error"
 if ftp
  ftp.close
  end

data/code/superant.com.schedule/loadconfigurationrecord.rb

@@ -23,8 +23,7 @@
           @a_schconfigline8 = fd.readline.chomp
            @a_schconfigline9 = fd.readline.chomp
            @a_schconfigline10=        fd.readline.chomp
-         @a_schconfigline10=        fd.readline.chomp
- @a_schconfigline11=        fd.readline.chomp
+         @a_schconfigline11=        fd.readline.chomp
          @a_schconfigline12=        fd.readline.chomp
  @a_schconfigline13=        fd.readline.chomp
          @a_schconfigline14=        fd.readline.chomp

data/code/superant.com.schedule/saveconfigurationrecord.rb

@@ -3,7 +3,10 @@
    require 'fileutils'
    
    newname = "rwdschedule.cnf" # grab the filename to create
-   newdata =@a_schconfigline1.to_s + "\n" + @a_schconfigline2.to_s + "\n" + @a_schconfigline3.to_s + "\n" + @a_schconfigline4.to_s + "\n" + @a_schconfigline5.to_s + "\n" + @a_schconfigline6.to_s + "\n" + @a_schconfigline7.to_s + "\n" + @a_schconfigline8.to_s + "\n" + @a_schconfigline9.to_s + "\n"
+   newdata =@a_schconfigline1.to_s + "\n" + @a_schconfigline2.to_s + "\n" + @a_schconfigline3.to_s + "\n" + @a_schconfigline4.to_s + "\n" + @a_schconfigline5.to_s + "\n" +
+   @a_schconfigline6.to_s + "\n" + @a_schconfigline7.to_s + "\n" + @a_schconfigline8.to_s + "\n" + @a_schconfigline9.to_s + "\n"+ 
+   @a_schconfigline10.to_s + "\n" + @a_schconfigline11.to_s + "\n"+ @a_schconfigline12.to_s + 
+   "\n" + @a_schconfigline13.to_s + "\n"+ @a_schconfigline14.to_s + "\n"+ @a_schconfigline15.to_s + "\n"
 	 
         begin # exception trapped block
           fileName = File.join( ConfigurationDir, newname )

data/code/superant.com.schedule/test_cases.rb

@@ -0,0 +1,46 @@
+# test harness
+
+	
+require 'test/unit/testcase'
+require 'test/unit/assertions'
+include Test::Unit::Assertions
+include Test::Unit  
+def rwdschedule_all_tests 
+	print "in rwdschedule all tests\n"
+  $testrwdscheduletestcase = TestSuite.new
+	test_runrwdschedule
+end
+
+def test_runrwdschedule
+
+
+	begin
+  testasserts = 0
+  print "Starting rwdtorrent tests!\n"
+     runselectiontab
+     assert_equal("selectiontab",@rwd_tab) ; testasserts += 1
+    runrwdschedulemenu10   
+    assert_equal("viewrwdscheduleconfiguration",@rwd_tab) ; testasserts += 1    
+        loadrwdscheduleconfiguration
+    assert_equal("rwdschedule.cnf",@a_schconfigurationfilename) ; testasserts += 1    
+     
+ $stderr.print "tests completed succesfully!\n"
+ $stderr.print testasserts, " asserts performed\n"
+
+	rescue  NotImplementedError, Exception
+		$stderr.print $!
+
+	end
+  
+end
+
+
+
+def teststobedown
+ runtinkerhelpabout
+          assert_equal("rwdtinkerhelpwindow",@rwd_tab)  ; testasserts += 1
+end
+
+
+
+

data/configuration/rwdapplicationidentity.dist

@@ -1,3 +1,3 @@
 ##VERSION:1.63
-$rwdapplicationidentity = "rwdschedule calendar application"
+$rwdapplicationidentity = "rwdtinker main application"
 

data/configuration/rwdschedule.dist

@@ -1,4 +1,4 @@
-##VERSION:0.99
+##VERSION:1.00
 ##NAME:$rwdschedule_directory:0
 $rwdschedule_directory = "schedules"
 ##NAME:$rwdschedule_ftpsite:0
@@ -11,5 +11,6 @@ $rwdschedule_ftppassword = "mypassword"
 $rwdschedule_ftpdirectory = "/incoming/rwdschedules/"
 ##NAME:$rwdschedule_updatedirectory:0
 $rwdschedule_updatedirectory = "updates"
-RwdScheduleVersion = "0.99"
+$testharnessarray += ["rwdschedule_all_tests"]
+RwdScheduleVersion = "1.00"
 

data/configuration/rwdtinker.dist

@@ -1,4 +1,4 @@
-##VERSION:1.63
+##VERSION:1.64
 ConfigurationDir = "configuration" # for use in program - init.rb has this value without using this constant
 CodeName = "rwdtinker"
 CodeNameFile = CodeName + ".rb"
@@ -12,4 +12,4 @@ LangDir = "lang"
    $rwdcontrolports =["13713","13714","13715","13716","13717","13718"]
  $port = 7705
 $rwdjumplink = ["helpscreen","tinkerbackwindow","returntomain","opendocuments","editconfiguration"]
-RwdTinkerVersion = "1.63"
+RwdTinkerVersion = "1.64"

data/extras/icalendar/base.rb

@@ -0,0 +1,17 @@
+require 'logger'
+
+module Icalendar #:nodoc:
+  class IcalendarError < StandardError #:nodoc:
+  end
+
+  class InvalidComponentClass < IcalendarError
+  end
+
+  class InvalidPropertyValue < IcalendarError
+  end
+
+  class Base
+    @@logger = Logger.new(STDOUT)
+    @@logger.level = Logger::INFO
+  end
+end

data/extras/icalendar/calendar.rb

@@ -0,0 +1,44 @@
+module Icalendar
+  class Calendar < Component
+
+    attr_accessor :events, :todos, :journals, :freebusys, :timezones
+    
+    def initialize()
+      super("VCALENDAR")
+      @properties = {}
+      @property_params = {}
+      
+      @events = []
+      @todos = []
+      @journals = []
+      @freebusys = []
+      @timezones = []
+    end
+
+    def add(component)
+      if component.is_a? Event
+          @events << component
+        elsif component.is_a? Todo
+          @todos << component
+        elsif component.is_a? Journal
+          @journals << component
+        elsif component.is_a? Freebusy
+          @freebusys << component
+        elsif component.is_a? Timezone
+          @timezones << component
+        else
+          raise InvalidComponentClass
+      end
+    end
+    
+    def to_s
+      print_string do |s|
+        @events.each { |event| s << event.to_s }
+        @todos.each { |todo| s << todo.to_s }
+        @journals.each { |journal| s << journal.to_s }
+        @freebusys.each { |freebusy| s << freebusy.to_s }
+        @timezones.each { |timezone| s << timezone.to_s }
+      end
+    end
+  end
+end

data/extras/icalendar/calendar_parser.rb

@@ -0,0 +1,237 @@
+module Icalendar
+  class CalendarParser < Icalendar::Base
+    # 1*(ALPHA / DIGIT / "=")
+    NAME    = '[-a-z0-9]+'
+    
+    # <"> <Any character except CTLs, DQUOTE> <">
+    QSTR    = '"[^"]*"'
+
+    # *<Any character except CTLs, DQUOTE, ";", ":", ",">
+    PTEXT   = '[^";:,]*'
+
+    # param-value = ptext / quoted-string
+    PVALUE  = "#{PTEXT}|#{QSTR}"
+
+    # Contentline
+    LINE = "(#{NAME})([^:]*)\:(.*)"
+
+    # param = name "=" param-value *("," param-value)
+    # Note: v2.1 allows a type or encoding param-value to appear without the type=
+    # or the encoding=. This is hideous, but we try and support it, if there    # is no "=", then $2 will be "", and we will treat it as a v2.1 param.
+    PARAM = ";(#{NAME})(=?)((?:#{PVALUE})(?:,#{PVALUE})*)"
+
+    # date = date-fullyear ["-"] date-month ["-"] date-mday
+    # date-fullyear = 4 DIGIT
+    # date-month = 2 DIGIT
+    # date-mday = 2 DIGIT
+    DATE = '(\d\d\d\d)-?(\d\d)-?(\d\d)'
+
+    # time = time-hour [":"] time-minute [":"] time-second [time-secfrac] [time-zone]
+    # time-hour = 2 DIGIT
+    # time-minute = 2 DIGIT
+    # time-second = 2 DIGIT
+    # time-secfrac = "," 1*DIGIT
+    # time-zone = "Z" / time-numzone
+    # time-numzome = sign time-hour [":"] time-minute
+    TIME = '(\d\d):?(\d\d):?(\d\d)(\.\d+)?(Z|[-+]\d\d:?\d\d)?'
+
+    def initialize(src)
+      @@logger.info("New Calendar Parser")
+      
+      # Define the next line method different depending on whether
+      # this is a string or an IO object so we can be efficient about
+      # parsing large files...
+
+      # Just do the unfolding work in one shot if its a whole string
+      if src.respond_to?(:split)
+        unfolded = []
+
+        # Split into an array of lines, then unfold those into a new array
+        src.split(/\r?\n/).each do |line|
+
+          # If it's a continuation line, add it to the last.
+          # If it's an empty line, drop it from the input.
+          if( line =~ /^[ \t]/ )
+            unfolded << unfolded.pop + line[1, line.size-1]
+          elsif( line =~ /^$/ )
+          else
+            unfolded << line
+          end
+        end
+
+        @lines = unfolded
+        @index = 0
+
+        # Now that we are unfolded we can just iterate through the array.
+        # Dynamically define next line for a string.
+        def next_line
+          if @index == @lines.size
+            return nil
+          else
+            line = @lines[@index]
+            @index += 1
+            return line
+          end
+        end
+
+        # If its a file we need to read and unfold on the go to save from reading
+        # large amounts of data into memory.
+      elsif src.respond_to?(:gets)
+        @file = src
+        @prev_line = src.gets
+        if !@prev_line.nil?
+          @prev_line.chomp!
+        end
+        
+        # Dynamically define next line for an IO object
+        def next_line
+          line = @prev_line
+          
+          if line.nil? 
+            return nil 
+          end
+
+          # Loop through until we get to a non-continuation line...
+          loop do
+            nextLine = @file.gets
+            if !nextLine.nil?
+              nextLine.chomp!
+            end
+            
+            # If it's a continuation line, add it to the last.
+            # If it's an empty line, drop it from the input.
+            if( nextLine =~ /^[ \t]/ )
+              line << nextLine[1, nextLine.size]
+            elsif( nextLine =~ /^$/ )
+            else
+              @prev_line = nextLine
+              break
+            end
+          end
+          line
+        end
+      else
+        raise ArgumentError, "CalendarParser.new cannot be called with a #{src.class} type!"
+      end
+    end
+    
+    # Parse the calendar into an object representation
+    def parse
+      calendars = []
+      
+      # Outer loop for Calendar objects
+      while (line = next_line)
+        fields = parse_line(line)
+        
+        # Just iterate through until we find the beginning of a calendar object
+        if fields[:name] == "BEGIN" and fields[:value] == "VCALENDAR"
+          cal = parse_calendar
+          calendars << cal
+        end
+      end
+      
+      calendars
+    end
+    
+    # Parse a single VCALENDAR object
+    # -- This should consist of the PRODID, VERSION, option METHOD & CALSCALE,
+    # and then one or more calendar components: VEVENT, VTODO, VJOURNAL, 
+    # VFREEBUSY, VTIMEZONE
+    def parse_calendar(component = Calendar.new)
+      while (line = next_line)
+        fields = parse_line(line)
+
+        name = fields[:name]
+        
+        # Although properties are supposed to come before components, we should
+        # be able to handle them in any order...
+        if name == "END"
+          break
+        elsif name == "BEGIN" # New component
+          case(fields[:value])
+          when "VEVENT"
+            component.events << parse_calendar(Event.new)
+          when "VTODO"
+            component.todos << parse_calendar(Todo.new)
+          when "VJOURNAL"
+            component.journals << parse_calendar(Journal.new)
+          when "VFREEBUSY"
+            component.freebusys << parse_calendar(Freebusy.new)
+          when "VTIMEZONE"
+            component.timezones << parse_calendar(Timezone.new)
+          when "VALARM"
+            component.alarms << parse_calendar(Alarm.new)
+          end
+        else # If its not a component then it should be properties...
+          
+          # Just set the properties ourselves so that the parser can still
+          # parse invalid files...
+          @@logger.debug("Setting #{name} => #{fields[:value]}")
+          component.properties[name] = fields[:value]
+          if not fields[:params].empty?
+            component.property_params[name] = fields[:params]
+          end
+
+          # This will generate the correctly formed calls to the dynamic method
+          # handler.
+#          component.send("#{name}=", fields[:value])
+#          component.send("#{name}_params=", fields[:params]) unless fields[:params].empty?
+        end
+      end
+      
+      component
+    end
+    
+    def parse_line(line)
+      unless line =~ %r{#{LINE}}i # Case insensitive match for a valid line
+        raise "Invalid line in calendar string!"
+      end
+
+      name = $1.upcase # The case insensitive part is upcased for easier comparison...
+      paramslist = $2
+      value = $3
+      
+      params = {}
+      
+      # Collect the params, if any.
+      if paramslist.size > 1
+        
+        # v3.0 and v2.1 params
+        paramslist.scan( %r{#{PARAM}}i ) do
+          
+          # param names are case-insensitive, and multi-valued
+          pname = $1
+          pvals = $3
+          
+          # v2.1 pvals have no '=' sign, figure out what kind of param it
+          # is (either its a known encoding, or we treat it as a 'type'
+          # param).
+          if $2 == ""
+            pvals = $1
+            case $1
+            when /quoted-printable/i
+              pname = 'encoding'
+              
+            when /base64/i
+              pname = 'encoding'
+              
+            else
+              pname = 'type'
+            end
+          end
+          
+          unless params.key? pname
+            params[pname] = []
+          end
+          pvals.scan( %r{(#{PVALUE})} ) do
+            if $1.size > 0
+              params[pname] << $1
+            end
+          end
+        end
+      end
+      
+      {:name => name, :params => params, :value => value}
+    end
+  end
+end