rwdschedule 0.94 → 0.95

data/code/superant.com.rwdtinkerbackwindow/helptexthashtinkerwin2.rb

@@ -1,11 +1,15 @@
-  
+# help text files used by context sensitive help  
 
  Helptext.update( :tinkerwin2_help => "    You can view the list of applets you can install
       by clicking on the list files button
 
            You can download an applet created by someone else
            
-      put the file in the zips directory",
+      put the file in the zips directory
+      
+      rwdtinker applets packaged as RubyGems can be used if you have RubyGems installed.
+      You can download rwdtinker gems at the 'Install Remote Applets' tab
+      ",
      :applet_viewing   =>  "You can get a list of all installed applets by clicking the 'listfiles button'
          To see the text of a install file
        Type in the name of the file you want.
@@ -32,6 +36,23 @@
      :applet_tinkerbackeditconfiguration  => " You can edit the configuration
   
   Remember to reload the configuration variables if you want your
-  changes used."
-
+  changes used.",
+  :remotegemapplet_install  => " To download and install use the 'Install Remote Applets'
+  
+  First click on 'List applets in the Remote GEM Repository available for downloading'
+  then go to the very bottom to click on the applet you want
+  then on the top click 'install remote Gem applet package'
+  
+  This installs the package in the Gem system
+  You still need to install it into rwdtinker - do that in the 'List Zips' tab
+  
+  For this feature to work, you need
+  RubyGems installed
+   Variables set correctly in the tinerwin2.cnf file
+      $xpcommand,  $gemdirectory_withgemfiles and  $geminstalled_directory
+    the defaults as shipped will normally be for a Debian Linux system  
+   On Debian Linux, you would usually need to be running rwdtinker as root in order to install RubyGems
+   
+   You can view the list of rwdtinker applets you have installed already by clicking 'view already installed GEM applets'
+ "
 )

data/code/superant.com.rwdtinkerbackwindow/installapplet.rb

@@ -1,3 +1,4 @@
+# code in install rwdtinker applets - now uses ruby.zip module
   def installapplet
    require 'fileutils'
    require 'extras/zip/zip'

data/code/superant.com.rwdtinkerbackwindow/installgemapplet.rb

@@ -0,0 +1,20 @@
+# install rwdtinker applet from a long directory location 
+  def installgemapplet
+   require 'fileutils'
+   require 'extras/zip/zip'
+    nametext = "%s" % [@a_installapplet]
+	 
+        begin # exception trapped block
+   	 fullname =  nametext + ".zip"
+     
+         zf = Zip::ZipFile.new(fullname)
+         zf.sort.each {
+         |entry|
+         zf.extract(entry.to_s, entry.to_s)
+                     }
+         @installapplettext = Message[:applet_installed]  
+   
+       rescue
+            @installapplettext = "unzip error - applet may not be installed correctly"
+        end # exception rescue
+  end

data/code/superant.com.rwdtinkerbackwindow/installremotegem.rb

@@ -0,0 +1,19 @@
+# download gem of rwdtinker applet
+  def superantcominstallremotegemapplet
+   require 'fileutils'
+   
+    tempnametext = "%s" % [@superantcominstallremoteappletinput]
+	 temparray = tempnametext.split(/ /)
+   nametext  = temparray[0]
+        begin # exception trapped block
+   	 
+  	
+	        commandline = $xpcommand + "gem install " + nametext
+         
+         @superantcominstallremotegemappletresult = `#{commandline}`
+   
+       rescue
+            @superantcominstallremotegemappletresult  = "error during gem install!"
+        end # exception rescue
+
+  end

data/code/superant.com.rwdtinkerbackwindow/listgemdirs.rb

@@ -0,0 +1,12 @@
+# this code is to list the gem directories that are installed
+def superantcomshowgemfiledirs
+ 
+  fileList      = Dir.new($gemdirectory_withgemfiles).entries.sort.delete_if { |x| ! (x =~ /\Arwdzip/) }
+  @superantcomshowgemappletdirsresult  = fileList.rwd_method("superantcomshowgemappletdirsname")
+end
+ 
+def superantcomshowgemappletdirsname(inffile)
+  applet                = inffile
+  @a_gemfiledirsinput       = applet
+  
+end

data/code/superant.com.rwdtinkerbackwindow/listgemzips.rb

@@ -0,0 +1,54 @@
+# this code is to list the zips
+
+
+def fillzipappletname(inffile)
+  applet                = inffile.gsub(/\.zip$/, "")
+  @a_installapplet = applet
+  
+end
+
+ def findzipfiles(d)
+         a = Array.new(Dir[d].entries.sort)
+         #loop through and get the files names
+         a.each do |x|
+               #adjust the filters to the files you want to see...
+               if(!test(?d,x))
+               # only zip files
+                  if x =~ /\.zip/
+                    puts "#{x}"        #opens the file thats in fileName as read only
+                   $zipsarray =  $zipsarray | ["#{x}"] 
+                  end
+               end
+          end
+  end
+  
+def listgemzips
+ startlangdir = $geminstalled_directory
+ #get a list of the files and subdirectories on the starting directory only
+        alanghash = Array.new(Dir[startlangdir].entries.sort)
+        p alanghash
+        #loop through the list, ignore the files and add all new directories found
+        alanghash.each do |x|
+          #if a directory...
+          if(test(?d,x))
+            # add to the original list of directories
+            @@tmproot = x + "/**"
+            #adds the new ones to the array
+            blanghash = Dir[@@tmproot].entries.sort
+            blanghash.each do |x|
+              if(test(?d,x))
+                alanghash.push(x)  #appends to the end of the array...
+              end
+            end
+          end
+        end
+        alanghash.each do |x|
+                #if it is a file...
+                if(!test(?d,x))
+                        alanghash.delete(x)
+                  else              #it is a directory...
+                        findzipfiles(x + "/**")
+                end
+        end
+         @zipslistresult = $zipsarray.rwd_method("fillzipappletname")
+      end  

data/code/superant.com.rwdtinkerbackwindow/listzips.rb

@@ -1,16 +1,31 @@
 # this code is to list the zipped applets that can be installed
-def listzipfilestoinstall
- if File.exist?($zipslocation)
-  fileList      = Dir.new($zipslocation).entries.sort.delete_if { |x| ! (x =~ /zip$/) }
-  @zipslistresult  = fileList.rwd_method("fillziptoinstallname")
-  end
-end
+
  
 def fillziptoinstallname(inffile)
   applet                = inffile.gsub(/\.zip$/, "")
   @a_installapplet        = applet
   
 end
+
 
 
-
+  
+def  listzipfilestoinstall
+ startlangdir = File.join($progdir, $zipslocation )
+ #get a list of the files and subdirectories on the starting directory only
+      
+    
+        a = Array.new(Dir["#{startlangdir}/*"].entries.sort)
+        
+         #loop through and get the files names
+         a.each do |x|
+               # only zip files
+                  if x =~ /\.zip/
+                  #  puts "#{x}"        #adds the file to the array to display on the screen
+                   $zipsarraylocal =  $zipsarraylocal | ["#{x}"] 
+               end
+              
+             end
+      
+         @zipslistresult = $zipsarraylocal.rwd_method("fillziptoinstallname")
+      end  

data/code/superant.com.rwdtinkerbackwindow/openhelpwindowtinkerwin2.rb

@@ -24,6 +24,9 @@ def runhelpwindowtinkerwin2
       $help_topic = "remote_control"
       
       end
+       if @rwd_tab == "superantcomremotezipsinstall"
+       $help_topic = "remotegemapplet_install"
+       end
           
   
  if @rwd_window != "rwdtinkerhelpwindow"

data/code/superant.com.rwdtinkerbackwindow/remotegemlist.rb

@@ -0,0 +1,24 @@
+# This tinker method is to retrieve the list of rwdzip applets available to install from the remote repository
+  
+def superantcomremotegemlist
+  gemcommandoption = "search --remote "
+    gemfilename = "rwdzip"
+    commandtext = "gem search --remote rwdzip"  
+    commandtemp = $xpcommand  + commandtext
+    begin # exception trapped block
+         
+     tempremotegemappletsresult = `#{commandtemp}  2>&1`
+     @superantcomremotegemappletsfullresult = tempremotegemappletsresult
+     fileList = tempremotegemappletsresult.split(/\n/).delete_if { |x| ! (x =~ /\Arwdzip/) }
+    
+  @superantcomremotegemappletsresult = fileList.rwd_method("superantcomremotegemappletdirsname")
+      rescue SystemCallError, StandardError
+     @superantcomremotegemappletsresult  = "system call error: " + $!
+    end # exception rescue
+end
+ 
+def superantcomremotegemappletdirsname(inffile)
+  applet                = inffile
+  @superantcominstallremoteappletinput       = applet
+  
+end

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

@@ -1,4 +1,4 @@
-  # this method adds a new address record
+  # this method saves the configuration record
   def saveconfigurationrecord 
    require 'fileutils'
    if @a_configurationfilename

data/code/superant.com.rwdtinkerbackwindow/viewgemappletcontents.rb

@@ -0,0 +1,21 @@
+  def viewgemappletcontents
+   require 'fileutils'
+   require 'extras/zip/zip'
+    nametext = "%s" % [@a_installapplet]
+	 
+        begin # exception trapped block
+   	 fullname =  nametext + ".zip"
+     
+  tempfilecontents = " "
+  zf = Zip::ZipFile.new(fullname)
+ zf.sort.each {
+  |entry|
+      tempfilecontents =  tempfilecontents + entry.to_s  + "\n"
+                     }
+   @appletcontentstext = tempfilecontents 
+   
+       rescue
+            @installapplettext = "unzip error - error opening applet"
+        end # exception rescue
+
+  end

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

@@ -0,0 +1,14 @@
+ # this code is to archive  the event
+ def archiveicsevent
+  oldName =  $rwdschedule_directory + "/" + @a_viewicsevent +  ".ics"
+  newName =  $rwdschedule_directory + "/" + "archive" + "/" + @a_viewicsevent + ".ics"
+ begin 
+ File.move(oldName, newName)
+  @displayicsevent = "ics file archived" 
+  rescue
+  @displayicsevent = "ics archive error"
+  end
+  
+   end
+
+

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

@@ -2,14 +2,18 @@
    def cleareventscreendisplay
  
         @a_eventfilename = ""
-      @a_eventtime = ""
-      @a_eventwhat =""
-      @a_eventaddress =""
-      @a_eventphone =""
-      @a_eventemail =""
-      @a_eventcomment1 =""
-      @a_eventcomment2 =""
-      @a_eventcomment3 = ""
+      @a_eventyear = ""
+       @a_eventmonth  = ""
+        @a_eventday     = ""
+        @a_eventbeginhour = ""
+        @a_eventbeginminute  = ""
+          @a_eventendhour = ""
+        @a_eventendminute  = ""
+            @a_eventsummary = ""
+            @a_eventdescription = ""
+            @a_eventlocation  = ""
+  
+     
 
 
   end

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

@@ -0,0 +1,19 @@
+   # this method deletes a file
+  def deleteicseventrecord
+ 
+    require 'fileutils'
+  
+      if @a_viewicsevent
+      $currenticseventtext =  @a_viewicsevent
+      end
+              
+              
+    begin # exception trapped block
+      fileName = $rwdschedule_directory + "/" + $currenticseventtext + ".ics"
+      File.delete(fileName)
+      @eventicsfilechangeresult = "#{$currenticseventtext} File Deleted!"
+     rescue 
+         @eventicsfilechangeresult = "File Deletion error"
+    end # exception rescue
+
+  end

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

@@ -60,7 +60,21 @@
     Month: 2
     Click on 'show month'
     
-    It will display one month"
+    It will display one month",
+  :icsfile_help =>       "
+      You can create an ics file
+      you can view a raw ics file 
+      Rename ics File
+      Delete ics File
+      
+      format of date
+      year = 2005
+      month = 02
+      day = 01
+      hour = 01
+      minute = 01
+      "
+      
   
   
       

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

@@ -0,0 +1,19 @@
+# this code is to list the events that are scheduled
+def  listicseventdates
+ # exception begin
+ begin 
+  fileList      = Dir.new($rwdschedule_directory).entries.sort.delete_if { |x| ! (x =~ /ics$/) }
+  
+  @eventicsrecordsresult = fileList.rwd_method("fillicseventdatesname")
+  rescue 
+  @eventicsrecordsresult = "error opening schedule directory"
+  end # end of error function
+  
+end
+
+
+def fillicseventdatesname(inffile)
+  applet                = inffile.gsub(/\.ics$/, "")
+  @a_viewicsevent  = applet
+  
+end

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

@@ -1,4 +1,4 @@
-   # this method views an existing address record
+   # this method views an existing record
   def loadeventrecord
  
          require 'fileutils'
@@ -10,14 +10,22 @@
 	      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
+	      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

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

@@ -19,8 +19,17 @@ def runhelpwindowrwdschedule
     end
     if @rwd_tab  == "calendar"
     $help_topic = "calendar_help"
-    end
-   $helptopicsarray =  $helptopicsarray | ["eventutilities_help","calendar_help","rwdschedule_generalhelp","rwdschedule_configuration","rwdschedulefilelist_generalhelp","rwdschedule_sync"]
+    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"]
   
    
   

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.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/saveeventrecord.rb

@@ -3,8 +3,15 @@
    require 'fileutils'
    if @a_eventfilename
    newname = "%s" %   [@a_eventfilename] # grab the new filename to create
-   newdata =@a_eventtime.to_s + "\n" + @a_eventwhat.to_s + "\n" + @a_eventaddress.to_s + "\n" + @a_eventphone.to_s + "\n" + @a_eventemail.to_s + "\n" + @a_eventcomment1.to_s + "\n" + @a_eventcomment2.to_s + "\n" + @a_eventcomment3.to_s + "\n"
-	 fullnewname = newname + ".sch"
+   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")

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

@@ -0,0 +1,85 @@
+  # this method adds a new  record
+  def saveicseventrecord 
+  Dir.chdir($progdir) 
+ require 'fileutils'
+   require 'extras/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
+     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_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"
+     
+
+    # Create a new event and add it to the calendar
+    
+    event.dtstart = starttime 
+    event.dtend = starttime 
+    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
+          @neweventresult= 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/viewicsevent.rb

@@ -0,0 +1,20 @@
+  def viewicsevent 
+   require 'fileutils'
+    $currenticseventtext = "%s" % [@a_viewicsevent]
+	 
+        begin # exception trapped block
+       
+     
+	 fileName = $rwdschedule_directory + "/" + $currenticseventtext + ".ics"
+        
+	fd = File.open(fileName,"r")
+	 @displayicsevent = " "
+	while ! fd.eof?
+	 @displayicsevent = fd.read
+	 end
+	 fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

data/configuration/rwdscheduleversion.cnf

@@ -1,3 +1,3 @@
 
-RwdScheduleVersion = "0.94"
+RwdScheduleVersion = "0.95"
 

data/configuration/rwdtinker.cnf

@@ -7,10 +7,10 @@ RWDFile	= "rwdtinker.rwd"
 LangDir = "lang"
 TempLangHashFile = LangDir + "/" + "templangfile.rb"
 LocalLangHashFile = LangDir + "/" + "xlocallangfile.rb" 
- CodeDir = "code"
- GuiDir = "gui" 
+ CodeDir = "code" 
+ GuiDir = "gui"  
   $help_topic = "general_help"
    $helptopicsarray = [ "general_help","network_help"]
-  $prevouswindow ="main"
+  $prevouswindow ="main" 
    $rwdcontrolports =["13713","13714","13715","13716","13717","13718"]
  $port = 7705

data/configuration/rwdtinkerversion.cnf

@@ -1,2 +1,2 @@
 
-RwdTinkerVersion = "1.50"
+RwdTinkerVersion = "1.54"

data/configuration/tinkerwin2variables.cnf

@@ -1,8 +1,12 @@
 
 TinkerWin2ConfigurationFileName = "tinkerwin2variables.cnf" # this file name - do not change
 $zipslocation = "zips" # location of applets to add
-$unzipprogram = "unzip -o " 
-
-
+ $zipsarray = [""] ; $zipsarraylocal = [""]
+ $xpcommand = " "  # Linux machines
+# $xpcommand =  "cmd /C "  # XP machines with cmd shell
+ $gemdirectory_withgemfiles = "/usr/lib/ruby/gems/1.8/gems"
+# $gemdirectory_withgemfiles = "c:\\ruby\\lib\\ruby\\gems\\1.8\\gems"  # XP machine
+# $geminstalled_directory = "/ruby/lib/ruby/gems/1.8/gems" # XP machine
+ $geminstalled_directory = "/usr/lib/ruby/gems/1.8/gems" # Debian Linux