bigtinker 0.97 → 0.98

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

@@ -1,4 +1,3 @@
-
 #***********************************************************************
 #* Rwd/Tinker -- A Ruby program for the RudyWebDialog.
 #* Copyright (c) 2004 - 2005 by Steven Gibson. All Rights Reserved.

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

@@ -1,4 +1,6 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # install rwdtinker applet from a long directory location 
+
 def installgemapplet
 	require 'fileutils'
 	require 'lib/zip/zip'

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

@@ -1,4 +1,6 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # this code is to list the zips
+
 def fillzipappletname(inffile)
 	applet                = inffile.gsub(/\.zip$/, "")
 	@a_installapplet = applet

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

@@ -1,4 +1,6 @@
-# this code is to list the applets that are installed
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# this code is to list the applets that are installed
+
 def listinstalledfiles
 	fileList      = Dir.new("installed").entries.sort.reverse.delete_if { |x| ! (x =~ /inf$/) }
 	@filesresult  = fileList.rwd_method("fillappletname")

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

@@ -1,4 +1,6 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # this code is to list the zipped applets that can be installed
+
 def fillziptoinstallname(inffile)
 	applet                = inffile.gsub(/\.zip$/, "")
 	@a_installapplet        = applet
@@ -7,6 +9,8 @@ end
 
 def  listzipfilestoinstall
 	
+		$zipsarraylocal = []
+		
 	if  $zipslocation.slice(0,1) == "/" ||   $zipslocation.include?(":")
 	    startlangdir = $zipslocation 
          else	

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

@@ -1,4 +1,6 @@
-# this method puts the configuration rexord on the screen
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# this method puts the configuration rexord on the screen
+
 def loadconfigurationrecord
 
 	require 'fileutils'

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

@@ -23,7 +23,9 @@ def runhelpwindowtinkerwin2
 	if @rwd_tab == "superantcomremotezipsinstall"
 		$help_topic = "remotegemapplet_install"
 	end
-
+	if @rwd_tab == "localechangertab"
+        $help_topic = "localechanger_help"
+	end
 	
 	if @rwd_window != "rwdtinkerhelpwindow"
 		$previouswindow = @rwd_window

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

@@ -0,0 +1,9 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# help about option setup for rwdtinker application
+
+
+def showlocalechoicesoptions
+
+  @localechooseoptions = $langarray.rwd_options
+end	
+   

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

@@ -1,3 +1,4 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL.
 #view contents of a tinker applet
 def viewappletcontents
 	require 'fileutils'

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

@@ -1,13 +1,16 @@
+#view the log on the tab
+
 def rwdtinkerrunviewlog
 	   require 'lib/rwdtinker/rwdtinkertools'
 	   
+                  logfilelocation = File.join(LogDirectory, 'rwdtinker.log')      
            if @a_rwdtinkerlognumber == nil
 		        @a_rwdtinkerlognumber = 11
-	                 @returnlogdisplay = RwdtinkerTools.tail("rwd_files/log/rwdtinker.log",@a_rwdtinkerlognumber.to_i)
+		        
+	    end
+		        
+	         @returnlogdisplay = RwdtinkerTools.tail(logfilelocation , @a_rwdtinkerlognumber.to_i)
 			 
-	   else
-		         @returnlogdisplay = RwdtinkerTools.tail("rwd_files/log/rwdtinker.log",@a_rwdtinkerlognumber.to_i)
-
-           end
+	   
 end
 

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

@@ -0,0 +1,24 @@
+
+def rwdwschedule()
+$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"}
+
+  if DeleteScheduleConfig
+
+                 fileName =  File.join("configuration","rwdwschedule.cnf")
+                 File.delete(fileName)
+    end
+    return true
+
+end
+

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

@@ -0,0 +1,14 @@
+ # this code is to archive  the event
+ def archiveevent
+  oldName =  $rwdschedule_directory + "/" + @a_viewevent +  ".sch"
+  newName =  $rwdschedule_directory + "/" + "archive" + "/" + @a_viewevent + ".sch"
+ begin 
+ File.move(oldName, newName)
+  @eventfilechangeresult = "event archived" 
+  rescue
+  @eventfilechangeresult = "archive error"
+  end
+  
+   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 'lib/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.foldeditor → superant.com.schedule}/helptexthashload.rb

@@ -1,7 +1,7 @@
    # this code loads the help text
 
                  
-               tmphelpfilename = "rwdfoldeditorhelpfiles.txt" 
+               tmphelpfilename = "rwdschedulehelpfiles.txt" 
                tmphelpdir = "rwd_files"
 	      
         begin # exception trapped block
@@ -16,7 +16,7 @@
 	     eval  tmphelptext
 	     
         rescue SystemCallError, StandardError
-	    $rwdtinkerlog.error  "foldeditor help file load: system call error: "
+	    $rwdtinkerlog.error  "foldschedules help file load: system call error: "
         end # exception rescue
 
   

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