bigtinker 0.94 → 0.95

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

@@ -0,0 +1,52 @@
+
+#***********************************************************************
+#* Rwd/Tinker -- A Ruby program for the RudyWebDialog.
+#* Copyright (c) 2004 - 2005 by Steven Gibson. All Rights Reserved.
+#*
+#* This library is free software; you can redistribute it and/or
+#* modify it under the terms of the GNU General Public
+#* License as published by the Free Software Foundation; either
+#* .
+#*
+#* These files are distributed in the hope that they will be useful,
+#* but WITHOUT ANY WARRANTY; without even the implied warranty of
+#* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#* General Public License for more details.
+#*
+#* You should have received a copy of the GNU General Public
+#* License along with these files; if not, write to the Free Software
+#* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#*
+#* For further information please contact the author by e-mail
+#* at "steven@superant.com".
+#***********************************************************************/
+
+def removeappletvariables(tempremovename)
+	
+ 	 begin # exception trapped block
+	 if $DEBUG
+	$stderr.puts "in removeappletvariables"
+	end
+	 # removefileinf = File.open(tempremove){|f| f.read}
+	 
+        temp = tempremovename.gsub("-","_")
+        removemethod =  temp.gsub(".","_")
+       
+          
+        send "#{removemethod}"
+	
+	tmpremoveapplet = " successfull applet variable removal "
+	
+ 	 rescue
+ 	
+		tmpremoveapplet =  " removeappletvariables .."
+
+	 end # exception rescue
+  
+      return  tmpremoveapplet
+      
+    end
+
+
+  
+  

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

@@ -9,3 +9,7 @@ def runrwdtinkerbackwindow
 	@rwd_tab = "rwdzipslister"
 end   
 
+def runbackwindowappletremove
+	@rwd_window = "tinkerbackwindow"
+	@rwd_tab = "filelister"
+end   

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

@@ -3,12 +3,9 @@ def saveconfigurationrecord
 	require 'fileutils'
 	if @a_configurationfilename
 		newname = "%s" %   [@a_configurationfilename] # grab the filename to create
-		newdata =@a_configline1.to_s + "\n" + @a_configline2.to_s + "\n" + @a_configline3.to_s + "\n" + @a_configline4.to_s + "\n" + @a_configline5.to_s +
-    "\n" + @a_configline6.to_s + "\n" + @a_configline7.to_s + "\n" + @a_configline8.to_s + "\n" +
- @a_configline9.to_s + "\n" + @a_configline10.to_s + "\n" + @a_configline11.to_s + "\n" +
- @a_configline12.to_s + "\n" + @a_configline13.to_s + "\n" + @a_configline14.to_s + "\n"
+		newdata =@a_configurationfile
 
-begin # exception trapped block
+          begin # exception trapped block
 			fileName = File.join( ConfigurationDir, newname )
 			fd = File.open(fileName,"w")
 			fd.print(newdata) # save the record info to the file

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

@@ -1,7 +1,7 @@
 #view contents of a tinker applet
 def viewappletcontents
 	require 'fileutils'
-	require 'extras/zip/zip'
+	require 'lib/zip/zip'
 	nametext = "%s" % [@a_installapplet]
 
 	begin # exception trapped block

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

@@ -1,7 +1,7 @@
 #view gem info
 def viewgemappletcontents
 	require 'fileutils'
-	require 'extras/zip/zip'
+	require 'lib/zip/zip'
 	nametext = "%s" % [@a_installapplet]
 
 	begin # exception trapped block

data/code/superant.com.schedule/0uninstallapplet.rb

@@ -0,0 +1,15 @@
+
+def rwdwschedule_1_04()
+$tinkerdocumentsarray.delete_if {|x| x == "HowTo_Schedule.txt"}
+$tinkerhelpaboutarray.delete_if {|x| x == "RwdSchedule"}
+Helptext.delete_if {|key, value| key == :rwdschedule_generalhelp }
+Helptext.delete_if {|key, value| key == :rwdschedulefilelist_generalhelp   }
+Helptext.delete_if {|key, value| key == :eventutilities_help   }
+Helptext.delete_if {|key, value| key == :rwdschedule_configuration  }
+Helptext.delete_if {|key, value| key == :rwdschedule_sync  }
+Helptext.delete_if {|key, value| key ==  :calendar_help }
+Helptext.delete_if {|key, value| key ==  :icsfile_help }
+$rwdjumplink.delete_if {|x| x == "ScheduleICSwindow"}
+$rwdjumplink.delete_if {|x| x == "RwdScheduleConfiguration"}
+$rwdjumplink.delete_if {|x| x == "ScheduleEditRecord"}
+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

@@ -0,0 +1,19 @@
+   # this method clears the on screen variables
+   def cleareventscreendisplay
+ 
+        @a_eventfilename = ""
+      @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/deleteeventrecord.rb

@@ -0,0 +1,19 @@
+   # this method views an existing address record
+  def deleteeventrecord
+ 
+    require 'fileutils'
+  
+      if @a_viewevent
+      $currenteventtext =  @a_viewevent
+      end
+              
+              
+    begin # exception trapped block
+      fileName = $rwdschedule_directory + "/" + $currenteventtext + ".sch"
+      File.delete(fileName)
+      @eventfilechangeresult = "File Deleted!"
+     rescue 
+         @eventfilechangeresult = "File Deletion error"
+    end # exception rescue
+
+  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/deleterwdscheduleupdatefiles.rb

@@ -0,0 +1,20 @@
+# this code is to delete update files
+def  deleterwdscheduleupdatefiles
+ # exception begin
+ begin 
+   fileListarray      = Dir.new($rwdschedule_updatedirectory).entries.sort.delete_if { |x| ! (x =~ /sch$/) }
+           #loop through and get the files names
+           
+         fileListarray.each do |x|
+               filetodelete = File.join($rwdschedule_updatedirectory,x)
+               if File.exist?(filetodelete)
+                 File.delete(filetodelete)
+               end
+          end
+          @rwdscheduleftpdisplay = "update files deleted"
+  rescue 
+  @rwdscheduleftpdisplay = "error opening schedule update directory"
+  end # end of error function
+ end
+
+

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

@@ -0,0 +1,37 @@
+def downloadrwdschedulefiles
+ require 'net/ftp'
+ BasicSocket.do_not_reverse_lookup = true 
+ @rwdscheduleftpdisplays = ""
+  begin
+ ftp = Net::FTP::new($rwdschedule_ftpsite)
+ @rwdscheduleftpdisplay  = "files downloaded" + "\n" 
+ ftp.debug_mode = false
+ 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 {|x|
+      #adjust the filters to the files you want to see...
+
+    if x =~ /sch/                               
+        lastslash = x.rindex('/')+1
+        newstring = x.slice(lastslash..256)
+          
+    localupdatefile = $rwdschedule_updatedirectory +"/"+ "#{newstring}"
+    ftp.getbinaryfile("#{x}" , localupdatefile )         
+    @rwdscheduleftpdisplay  =   @rwdscheduleftpdisplay + newstring + "\n"                               
+                             
+         end
+                  
+                             
+                  }
+   ftp.close
+  
+rescue
+  @rwdscheduleftpdisplay = "ftp error"
+if ftp
+ ftp.close
+ end
+end
+end

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

@@ -0,0 +1,97 @@
+  # this method exports a new  record
+  def exporteventrecord 
+  Dir.chdir($progdir) 
+ require 'fileutils'
+   require 'extras/icalendar'
+   if ! @a_eventfilename.empty?
+   newname = "%s" %   [@a_eventfilename] # 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_eventyear.empty?
+  temptimedata =  @a_eventyear.to_s.strip
+  else
+  temptimedata = "0000"
+    end
+    if ! @a_eventmonth.empty?
+    temptimedata= temptimedata    + @a_eventmonth.to_s
+    else
+    temptimedata = temptimedata   + "00"
+   end
+    if ! @a_eventday.empty?
+    temptimedata = temptimedata + @a_eventday.to_s
+else
+    temptimedata = temptimedata  +  "00"
+ end
+daydate =temptimedata
+if ! @a_eventbeginhour.empty?
+    temptimedata= temptimedata     + "T" + @a_eventhour.to_s
+    else
+    temptimedata = temptimedata     + "T" + "00"
+   end
+    if ! @a_eventbeginminute.empty?
+    temptimedata = temptimedata + @a_eventbeginminute.to_s
+else
+    temptimedata = temptimedata  +  "00"
+  end
+if ! @a_eventendhour.empty?
+    tempendtimedata= daydate     + "T" + @a_eventendhour.to_s
+    else
+    tempendtimedata = daydate   + "T" + "00"
+   end
+    if ! @a_eventendminute.empty?
+    tempendtimedata = tempendtimedata + @a_eventendminute.to_s
+else
+    tempendtimedata = tempendtimedata  +  "00"
+  end
+  
+   if ! @a_eventsummary.empty?
+ summarydataText =  @a_eventsummary.to_s
+ else
+  summarydataText = ""
+ end
+  if ! @a_eventdescription.empty?
+     descriptiondataText =  @a_eventdescription.to_s
+  else
+     descriptiondataText = ""
+  end
+      if ! @a_eventlocation.empty?
+        locationdataText =  @a_eventlocation.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
+          @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/helptexthashrwdschedule.rb

@@ -0,0 +1,82 @@
+  
+
+ Helptext.update( :rwdschedule_generalhelp => "     Use the 'Edit Event' tab
+      The first field is the most important. It is the filename that
+      will be created. I use the event date starting with yearmonthday
+      2005january11
+
+      The following lines for entry are for you to fill in as you want.
+      When you are finished press the Save Changes button 
+      
+      You use this same screen for editing an already saved event ",
+      :rwdschedulefilelist_generalhelp => "
+       Click on the list events button.
+      
+       Click on the date you want
+       
+       Then click the 'Open' button
+       
+       If it finds the record it will open it. It displays the record 
+       as text  under the 'Open' button.",
+       :eventutilities_help => " On the event utilities tab
+       
+  You can rename event filenames
+  You can delete events
+  
+       ",
+       
+       :rwdschedule_configuration => " click on 'Edit Configuration'
+ You can view the configuration file
+ 
+  You can edit the configuration
+  
+  Remember to reload the configuration variables if you want your
+  changes used.",
+  :rwdschedule_sync => "Sync for multiple computers
+
+ If you are like me, you have more than one system
+ I use rwdTinker at home on my Linux laptop
+ at work I use it on XP
+ on the go I use rwdtinker on my Zaurus PDA
+ So I am adding schedule events on different machines.
+ There is  a function to help sync the separate systems
+  
+ in 'Selection Panel' click on 'Open Schedule Sync Window'
+ 
+ First you need your ftp details set in the
+ configuration/rwdschedule.cnf file
+ 
+ you can upload your events from your local schedules directory to the ftp site
+ you can download events from the ftp site to your local updates directory
+ you can perform a sync which finds remote events and adds them to your local
+ schedules directory
+ 
+ There is a button to delete the update directory when finished",
+ :calendar_help => "On the 'Show Month' tab
+   You can see the current month or
+   enter a year and month
+   for example:
+    Year: 2005
+    Month: 2
+    Click on 'show 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/listeventdates.rb

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

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

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

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+"-"+RwdScheduleVersion+".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.hypernote → superant.com.schedule}/returntomain.rb

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