bigtinker 0.97 → 0.98

data/code/{superant.com.foldeditor → superant.com.schedule}/loadconfigurationrecord.rb

@@ -1,19 +1,19 @@
    # this method puts the configuration rexord on the screen
-  def loadrwdfoldeditorconfiguration
+  def loadrwdscheduleconfiguration
  
          require 'fileutils'
           
-               @a_foldeditconfigurationfilename = "rwdwfoldeditor.cnf" 
+               @a_schconfigurationfilename = "#{RwdScheduleName}.cnf" 
         
 	      
         begin # exception trapped block
        
        Dir.chdir($progdir)
-	      fileName = File.join(ConfigurationDir, @a_foldeditconfigurationfilename )
+	      fileName = File.join(ConfigurationDir, @a_schconfigurationfilename)
         
         
 	      fd = File.open(fileName,"r")
-	      @a_foldeditconfigurationfile=        fd.read
+	      @a_schconfigurationfile =        fd.read
         fd.close
         rescue SystemCallError, StandardError
             $stderr.print "system call error: " + $!

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

@@ -0,0 +1,14 @@
+   # this method loads the on screen variables into the running class
+   def loadrwdscheduleconfigurationvariables
+
+   tmpfilename = "#{RwdScheduleName}.cnf"   
+   configfiletoload = File.join(ConfigurationDir, tmpfilename )
+   begin
+    load configfiletoload
+    @extraschconfigdatadisplay = ""
+@newschconfigurationresult = "Config Variables loaded"
+rescue
+ @extraschconfigdatadisplay = ""
+ @newschconfigurationresult = "loading error"
+ end
+  end

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

@@ -0,0 +1,38 @@
+   # this method views an existing record
+  def loadeventrecord
+ 
+         require 'fileutils'
+        @a_eventfilename = $currenteventtext
+	      
+        begin # exception trapped block
+       
+       
+	      fileName = $rwdschedule_directory + "/" + $currenteventtext + ".sch"
+        
+	      fd = File.open(fileName,"r")
+	      eventdatetime =        fd.readline.chomp
+	      
+      @a_eventyear = eventdatetime.slice(0..3)
+       @a_eventmonth  = eventdatetime.slice(4..5)
+        @a_eventday     = eventdatetime.slice(6..7)
+        @a_eventbeginhour =  eventdatetime.slice(9..10)
+        @a_eventbeginminute  =  eventdatetime.slice(11..12)
+      eventdatetime2 =        fd.readline.chomp
+        
+          @a_eventendhour =  eventdatetime2.slice(9..10)
+        @a_eventendminute  =  eventdatetime.slice(11..12)
+            @a_eventsummary =  fd.readline.chomp
+            @a_eventdescription =  fd.readline.chomp
+            @a_eventlocation  =  fd.readline.chomp
+  
+     
+	 
+	      while ! fd.eof?
+	        @extraeventdatadisplay = fd.readline
+	      end
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

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

@@ -0,0 +1,30 @@
+   # this method views an existing address record
+  def loadicseventrecord
+ 
+         require 'fileutils'
+        @a_eventfilename = $currenteventtext
+	      
+        begin # exception trapped block
+       
+       
+	      fileName = $rwdschedule_directory + "/" + $currenteventtext + ".sch"
+        
+	      fd = File.open(fileName,"r")
+	      @a_eventtime =        fd.readline.chomp
+	      @a_eventwhat =  fd.readline.chomp
+        @a_eventaddress = fd.readline.chomp
+          @a_eventphone = fd.readline.chomp
+        @a_eventemail = fd.readline.chomp
+         @a_eventcomment1 = fd.readline.chomp 
+          @a_eventcomment2 =fd.readline.chomp
+          @a_eventcomment3 = fd.readline.chomp
+	 
+	      while ! fd.eof?
+	        @extraeventdatadisplay = fd.readline
+	      end
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

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

@@ -0,0 +1,43 @@
+# this code is to call the help window
+def runhelpwindowrwdschedule
+
+     $help_topic = "rwdschedule_generalhelp"
+   if @rwd_tab == "Vieweventlist"
+     $help_topic = "rwdschedulefilelist_generalhelp"
+   end
+   if @rwd_tab == "editeventrecordfile"
+   $help_topic = "rwdschedule_generalhelp"
+   end
+   if  @rwd_tab == "eventutilitiesrwdschedule"
+ $help_topic = "eventutilities_help"
+   end
+    if @rwd_tab == "viewrwdscheduleconfiguration"
+    $help_topic = "rwdschedule_configuration"
+    end
+  if @rwd_tab  == "rwdschedulesynctasks"
+    $help_topic = "rwdschedule_sync"
+    end
+    if @rwd_tab  == "calendar"
+    $help_topic = "calendar_help"
+    end
+    if @rwd_tab == "createicsrecordfile" 
+    $help_topic = "icsfile_help"
+    end
+    if @rwd_tab == "eventicsutilities"
+    $help_topic = "icsfile_help"
+    end
+    if @rwd_tab == "Viewicseventlist"
+  $help_topic = "icsfile_help"
+    end    
+   $helptopicsarray =  $helptopicsarray | ["icsfile_help","eventutilities_help","calendar_help","rwdschedule_generalhelp","rwdschedule_configuration","rwdschedulefilelist_generalhelp","rwdschedule_sync"]
+  
+   
+  
+ if @rwd_window != "rwdtinkerhelpwindow"
+       $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+  end
+  runhelpwindow
+end
+
+

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

@@ -0,0 +1,14 @@
+ # this code is to change the contact name
+ def changeeventdata
+  oldName =  $rwdschedule_directory + "/" + @a_viewevent +  ".sch"
+  newName =  $rwdschedule_directory + "/" + @a_changeeventdata + ".sch"
+ begin 
+ File.rename(oldName, newName)
+  @eventfilechangeresult = "File Renamed!" 
+  rescue
+  @eventfilechangeresult = "rename error"
+  end
+  
+   end
+
+

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

@@ -0,0 +1,17 @@
+ # this code is to change the file name
+ def changeicseventdata
+ if ! @a_viewicsevent.empty?
+  oldName =  $rwdschedule_directory + "/" + @a_viewicsevent +  ".ics"
+  if ! @a_changeicseventdata.empty? 
+  newName =  $rwdschedule_directory + "/" + @a_changeicseventdata + ".ics"
+ begin 
+ File.rename(oldName, newName)
+  @eventicsfilechangeresult = "File Renamed!" 
+  rescue
+  @eventicsfilechangeresult = "rename error"
+  end
+   end
+   end
+   end
+
+

data/code/{superant.com.foldeditor/runrwdapplet.rb → superant.com.schedule/returntomain.rb}

@@ -3,8 +3,8 @@
 # For more information about  see http://www.rubyforge.net/projects/rwdapplications
   
   # call the window  
-  def runrwdfoldeditorwindow
-   @rwd_window = "rwdfoldeditorwindow"
-   @rwd_tab = "superantcomfoldeditor"
+  def returntomainrwdschedule
+   @rwd_window = "rwdschedulewindow"
+   @rwd_tab = "rwdscheduleselectiontab"
    end   
    

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

@@ -0,0 +1,10 @@
+# Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a contact book
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+  def runrwdscheduleicsbackwindow
+   @rwd_window = "rwdscheduleicswindow"
+   @rwd_tab = "Viewicseventlist"
+   end   
+   

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

@@ -0,0 +1,34 @@
+# Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
+# 
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+  def runrwdschedulemenu1
+   @rwd_window = "rwdschedulewindow"
+   @rwd_tab = "Vieweventlist"
+   end   
+  def runrwdschedulemenu2
+   @rwd_window = "rwdschedulewindow"
+   @rwd_tab = "editeventrecordfile"
+   end   
+   
+   
+  def runrwdschedulemenu3
+   @rwd_window = "rwdschedulewindow"
+   @rwd_tab = "eventutilitiesrwdschedule"
+   end  
+ def runrwdschedulemenu4
+   @rwd_window = "rwdschedulesyncwindow"
+   @rwd_tab = "rwdschedulesynctasks"
+   end  
+   
+        def runrwdschedulemenu10
+   @rwd_window = "rwdschedulesyncwindow"
+   @rwd_tab = "viewrwdscheduleconfiguration"
+   end 
+   
+       def runrwdschedulemenu11
+   @rwd_window = "main"
+   @rwd_tab = "documentsrwdtinkerone"
+   end 
+  

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

@@ -0,0 +1,10 @@
+# Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a contact book
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+  def runrwdschedulesyncbackwindow
+   @rwd_window = "rwdschedulesyncwindow"
+   @rwd_tab = "rwdschedulesynctasks"
+   end   
+   

data/code/{superant.com.foldeditor/rwdtinkerversion.rb → superant.com.schedule/rwdversion.rb}

@@ -3,8 +3,8 @@
 # For  information see http://www.rubyforge.net/projects/rwdapplications
 
 # return the version constant defined in the config file
-def rwdfoldeditorhelpaboutsetup
-return ["RwdFoldEditor","(c) 2005-2008 Steven Gibson ","Version #{RwdFoldEditorVersion}"]
+def rwdschedulehelpaboutsetup
+return ["RwdSchedule","(c) 2004-2008 Steven Gibson ","Version #{RwdScheduleVersion}"]
 end
 
 

data/code/{superant.com.foldeditor → superant.com.schedule}/saveconfigurationrecord.rb

@@ -1,12 +1,11 @@
-  # this method saves configuration record
-  def saverwdfoldeditorconfiguration
+  # this method adds a new address record
+  def saverwdscheduleconfiguration
    require 'fileutils'
-
    
-   newname = "rwdwfoldeditor.cnf" # grab the filename to create
-   newdata = @a_foldeditconfigurationfile
+   newname = "#{RwdScheduleName}.cnf" # grab the filename to create
+   newdata =@a_schconfigurationfile
    
-	  
+	 
         begin # exception trapped block
           fileName = File.join( ConfigurationDir, newname )
         	fd = File.open(fileName,"w")

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

@@ -0,0 +1,25 @@
+  # this method adds a new  record
+  def saveeventrecord 
+   require 'fileutils'
+   if @a_eventfilename
+   newname = "%s" %   [@a_eventfilename] # grab the new filename to create
+   newdata = @a_eventyear.to_s + @a_eventmonth.to_s + @a_eventday.to_s  + "T" + @a_eventbeginhour.to_s  + @a_eventbeginminute.to_s + "00"
+   newdata = newdata + "\n" + @a_eventyear.to_s + @a_eventmonth.to_s + @a_eventday.to_s  + "T" + @a_eventendhour.to_s  + @a_eventendminute.to_s  + "00"
+   newdata = newdata +"\n" + @a_eventsummary.to_s  + "\n" + @a_eventdescription.to_s  + "\n" + @a_eventlocation.to_s 
+  
+     
+      
+    
+ 	
+  fullnewname = newname + ".sch"
+        begin # exception trapped block
+          fileName = File.join( $rwdschedule_directory, fullnewname )
+        	fd = File.open(fileName,"w")
+	        fd.print(newdata) # save the record info to the file
+	        fd.close
+          @neweventresult=newdata # show the record info in the browser
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+    end
+  end

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

@@ -0,0 +1,98 @@
+  # this method adds a new  record
+  def saveicseventrecord 
+  Dir.chdir($progdir) 
+ require 'fileutils'
+   require 'lib/icalendar'
+   if ! @a_eventicsfilename.empty?
+   newname = "%s" %   [@a_eventicsfilename] # grab the new filename to create
+   
+	 fullnewname = newname  + ".ics"
+     cal = Icalendar::Calendar.new
+
+    cal.version = "3.2"
+    cal.prodid = "rwdtinker-prodid"
+    event = Icalendar::Event.new
+    newdataText = ""
+    if ! @a_eventicsyear.empty?
+  temptimedata =  @a_eventicsyear.to_s.strip
+  else
+  temptimedata = "0000"
+    end
+    if ! @a_eventicsmonth.empty?
+    temptimedata= temptimedata    + @a_eventicsmonth.to_s
+    else
+    temptimedata = temptimedata   + "00"
+   end
+    if ! @a_eventicsday.empty?
+    temptimedata = temptimedata + @a_eventicsday.to_s
+else
+    temptimedata = temptimedata  +  "00"
+ end
+ daydate = temptimedata
+     if ! @a_eventicshour.empty?
+    temptimedata= temptimedata     + "T" + @a_eventicshour.to_s
+    else
+    temptimedata = temptimedata     + "T" + "00"
+   end
+    if ! @a_eventicsminute.empty?
+    temptimedata = temptimedata + @a_eventicsminute.to_s
+else
+    temptimedata = temptimedata  +  "00"
+ end
+     if ! @a_eventendicshour.empty?
+    tempendtimedata= daydate     + "T" + @a_eventendicshour.to_s
+    else
+    tempendtimedata = daydate     + "T" + "00"
+   end
+    if ! @a_eventendicsminute.empty?
+    tempendtimedata = tempendtimedata + @a_eventendicsminute.to_s
+else
+    tempendtimedata = tempendtimedata  +  "00"
+ end
+ 
+   if ! @a_eventicssummary.empty?
+ summarydataText =  @a_eventicssummary.to_s
+ else
+  summarydataText = ""
+ end
+  if ! @a_eventicsdescription.empty?
+     descriptiondataText =  @a_eventicsdescription.to_s
+  else
+     descriptiondataText = ""
+  end
+      if ! @a_eventicslocation.empty?
+        locationdataText =  @a_eventicslocation.to_s
+     else
+        locationdataText = "" 
+    end
+
+   starttime = temptimedata +  "00"
+     
+  endtime = tempendtimedata + "00"
+
+    # Create a new event and add it to the calendar
+    
+    event.dtstart = starttime 
+    event.dtend = endtime 
+    event.summary =    summarydataText
+    event.description = descriptiondataText 
+    event.location =   locationdataText
+    cal.add(event)
+        # Now generate the string and then parse it so we can verify 
+    # that everything was set, generated and parsed correctly.
+    calString = cal.to_s
+    p calString
+    #cals = Icalendar::CalendarParser.new(calString).parse
+
+# cal2 = cals.first
+        begin # exception trapped block
+          fileName = File.join( $rwdschedule_directory, fullnewname )
+       	fd = File.open(fileName,"w")
+	     fd.print( calString ) # save the record info to the file
+	     fd.close
+          @newicseventresult= calString # show the record info in the browser
+        rescue SystemCallError, StandardError
+          $stderr.print "system call error: " + $!
+        end # exception rescue
+    end
+  end

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

@@ -0,0 +1,30 @@
+def syncrwdscheduledata
+    require 'fileutils'
+   @rwdschedulesyncresult  = ""
+ begin
+    
+@rwdschedulesyncresult  = "updating local files" + "\n" 
+    Dir.chdir($progdir)
+    
+    localfileListarray = Dir.new($rwdschedule_directory).entries.sort.delete_if { |tmpfile| ! (tmpfile =~ /sch$/) }
+      remotefileListarray = Dir.new($rwdschedule_updatedirectory ).entries.sort.delete_if { |tmpfile| ! (tmpfile =~ /sch$/) }
+  
+    tempupdatefilelistarray = remotefileListarray -   localfileListarray 
+    
+   if  tempupdatefilelistarray
+           tempupdatefilelistarray.each do |temp|
+            tmpfilenametosync = File.join($rwdschedule_updatedirectory,temp)
+            tmpfilenamecopied = File.join($rwdschedule_directory,temp)
+             FileUtils.cp( tmpfilenametosync, tmpfilenamecopied)
+            @rwdschedulesyncresult  =   @rwdschedulesyncresult + temp + "\n"   
+      
+      end
+      end
+
+  
+rescue
+ 
+
+print "sync error"
+end
+end