rwdschedule 0.5

data/Readme.txt

@@ -0,0 +1,57 @@
+rwdapplications are web brower applications
+
+The GUI interface used is RubyWebDialogs 
+
+RubyWebDialogs is a platform independent graphical user interface for Ruby applications. It generates HTML and serves it with an internal HTTP server, so you can use your favorite web browser as the front end for your Ruby application. All this means, that it can be used on almost every platform, like Ruby itself. http://www.erikveen.dds.nl/rubywebdialogs/
+
+
+Start the program by:
+changing to the directory and
+ruby init.rb
+
+Then point your web browser to:
+http://localhost:7701/
+
+Or to the port that shows on the console or in the config.cnf file
+
+Requirements:
+RubyWebDialogs - I am using 0.0.11 2004-3-9
+ This package you downloaded should have a runtime version of 
+ the needed rubywebdialog files
+
+Ruby I am using version 1.8.2
+
+I have tested this under Linux-Debian kernel 2.6.9
+
+Operation:
+The code files reside in the code directory and are combined before 
+the main Class is loaded
+
+The rwd files in gui are combined before the gui is activated
+
+Trouble shooting:
+
+untar the file
+tar zxvf rwdapplication-x.y.tar.gz
+then cd to the directory
+cd rwdapplication-x.y
+then start the init.rb program file
+ruby init.rb
+
+
+If the program is not working, try looking at the ev subdirectory. That is where
+the runtime of rubywebdialogs are.
+
+for long term installation, I would suggest putting most files in a lib directory
+like /usr/lib/rwdshell
+then make a writable directory the local directory for command files to be written
+like ~/rwdshell
+
+
+Closing the browser doesn't terminate the application. You have to use the application's close-button  And terminating the application doesn't terminate the application when running in network mode. You just log out.
+
+Don't use the back-button of the browser! Strange and unpredictable things may and will happen!
+
+Steven Gibson
+stevengibson@superant.com
+http://rwdapplications.rubyforge.org/

data/bin/rwdschedule

@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+#--
+# Copyright 2004 Steven Gibson <steven@superant.com>
+#   RwdTinker application
+#
+# This program is free software. It may be redistributed and/or modified under
+# the terms of the GPL version 2 (or later), or the
+# Ruby licence.
+# 
+#++
+
+
+$progdir = File::expand_path( File.dirname(__FILE__))
+
+Dir.chdir($progdir)
+
+Dir.chdir("..")
+
+`ruby init.rb` 

data/code/ag1core/aa0begin.rb

@@ -0,0 +1,18 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a framework for writing programs from RubyWebDialogs
+# http://www.erikveen.dds.nl/rubywebdialogs/index.html 
+# For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
+# This class is the top class for the RwdTinker application 
+ 
+class RwdTinker  < RWDialog
+ 
+  def main
+  @rwd_window = "main"
+    @result = "idle"
+    @display= "idle"
+  end
+  
+  def inspect
+   "Rwdtinker Application " 
+   end
+  

data/code/ag1core/rwdtinkerversion.rb

@@ -0,0 +1,15 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a framework for writing programs from RubyWebDialogs
+# http://www.erikveen.dds.nl/rubywebdialogs/index.html 
+# For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
+  
+  # return the version constant defined in the config file
+  def runrwdtinkerversion
+  @rwd_window = "applicationversion"
+  @versionappnamedisplay = "RwdTinker"
+  @versioncopyrightdisplay = "(c) 2004 Steven Gibson "
+  @versionnumberdisplay =  "Version " + RwdTinkerVersion
+
+   end
+  
+  

data/code/al5languagefiles/alanguagehashbegin.rb

@@ -0,0 +1,4 @@
+  
+
+ Message = Hash.new { |hh, kk| hh[kk] = "ERROR: Identificador de mensaje desconocido: #{kk.inspect}."; hh[kk] }
+    langmessage = {

data/code/al5languagefiles/languagehash.rb

@@ -0,0 +1,4 @@
+        # The encoding for the webpages. This should match the encoding used
+        # to create these messages.
+  
+

data/code/al5languagefiles/templangfile.rb

@@ -0,0 +1,6 @@
+ # English Language files for RwdTinker core
+
+      :module_unknown              => "Module unknown",
+      :applet_installed          => "applet installed!.",
+  
+

data/code/al5languagefiles/zlanguagehashend.rb

@@ -0,0 +1,6 @@
+
+    }
+    langmessage.each { |kk, vv| Message[kk] = vv }
+  
+
+

data/code/gg0schedules/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/gg0schedules/gg0viewevent.rb

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

data/code/gg0schedules/gg9saveeventchanges.rb

@@ -0,0 +1,18 @@
+  # this method adds a new address record
+  def saveeventrecord 
+   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"
+        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/gg0schedules/gh5listdaterecords.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/gg0schedules/gl7clearscreendisplay.rb

@@ -0,0 +1,15 @@
+   # this method clears the on screen variables
+   def cleareventscreendisplay
+ 
+        @a_eventfilename = ""
+      @a_eventtime = ""
+      @a_eventwhat =""
+      @a_eventaddress =""
+      @a_eventphone =""
+      @a_eventemail =""
+      @a_eventcomment1 =""
+      @a_eventcomment2 =""
+      @a_eventcomment3 = ""
+
+
+  end

data/code/gg0schedules/gm3deletecontactrecord.rb

@@ -0,0 +1,24 @@
+   # this method views an existing address record
+  def deletecontactrecord
+ 
+    require 'fileutils'
+  
+      if @a_viewnamedata
+      $currentnametext =  @a_viewnamedata
+      end
+              
+     fileName = $addressfiles_directory + "/" + $currentnametext + ".nam"
+     $stderr.print fileName
+
+    begin # exception trapped block
+
+     File.delete(fileName)
+     fileNamephoto = $addressfiles_directory + "/" + $currentnametext + ".png"
+     if  File.exist?(fileNamephoto)
+       File.delete(fileNamephoto)
+     end
+     rescue SystemCallError, StandardError
+         $stderr.print "system call error: " + $!
+    end # exception rescue
+
+  end

data/code/gg0schedules/loadeventrecord.rb

@@ -0,0 +1,30 @@
+   # this method views an existing address record
+  def loadeventrecord
+ 
+         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/gg0schedules/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/gg0schedules/rwdaddresseshelpabout.rb

@@ -0,0 +1,14 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a framework for writing programs from RubyWebDialogs
+# http://www.erikveen.dds.nl/rubywebdialogs/index.html 
+# For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
+  
+  # return the version constant defined in the config file
+  def runrwdaddressesversion
+  @rwd_window = "applicationversion"
+  @versionappnamedisplay = "RwdAddresses"
+  @versioncopyrightdisplay = "(c) 2004 Steven Gibson "
+  @versionnumberdisplay =  "Version " + RwdAddressesVersion
+
+   end
+  

data/code/gg0schedules/rwdschedulehelpabout.rb

@@ -0,0 +1,14 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a framework for writing programs from RubyWebDialogs
+# http://www.erikveen.dds.nl/rubywebdialogs/index.html 
+# For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
+  
+  # return the version constant defined in the config file
+  def runrwdscheduleversion
+  @rwd_window = "applicationversion"
+  @versionappnamedisplay = "RwdSchedule"
+  @versioncopyrightdisplay = "(c) 2004 Steven Gibson "
+  @versionnumberdisplay =  "Version " + RwdScheduleVersion
+
+   end
+  

data/code/gh9calendar/gh9calendar.rb

@@ -0,0 +1,16 @@
+ require 'fileutils'
+ 
+ def showmonth
+      
+    begin      # begin rescue monitored block	
+
+     command_file_path = File.join( $extras_directory, 'cal.rb' )   
+     
+     @showmonthresult = `ruby  #{command_file_path} -c #{$lang} #{@a_month.to_i} #{@a_year.to_i} ` 
+        
+   rescue # process exeption
+     @showmonthresult = "\n" + "error in eval"
+   end # end of rescue process  # of rescure monitored block        
+
+  end
+  

data/code/lm1installapplets/ll5listzips.rb

@@ -0,0 +1,14 @@
+# this code is to list the zipped applets that can be installed
+def listzipfilestoinstall
+  fileList      = Dir.new("zips").entries.sort.reverse.delete_if { |x| ! (x =~ /zip$/) }
+  @zipslistresult  = fileList.rwd_method("fillziptoinstallname")
+end
+ 
+def fillziptoinstallname(inffile)
+  applet                = inffile.gsub(/\.zip$/, "")
+  @a_installapplet        = applet
+  
+end
+
+
+

data/code/lm1installapplets/lm1installapplet.rb

@@ -0,0 +1,20 @@
+  def installapplet
+   require 'fileutils'
+    nametext = "%s" % [@a_installapplet]
+	 
+        begin # exception trapped block
+   	 fileName = "zips/" + nametext + ".zip"
+  	
+	        commandline = "unzip -o " + fileName
+         system( commandline+' > temp.output' )
+        
+    
+      
+    system(commandline)
+   @installapplettext = Message[:applet_installed]  
+   
+       rescue
+            @installapplettext = "Done! - Check applet list - restart rwd to activate the new applet"
+        end # exception rescue
+
+  end

data/code/ssdiagnostictab/diagnostictab.rb

@@ -0,0 +1,20 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a framework for writing programs from RubyWebDialogs
+# http://www.erikveen.dds.nl/rubywebdialogs/index.html 
+# For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
+  
+  # return the Ruby constant 
+  def runrubyversion
+   @rubyversion = "Version " + VERSION
+   end
+   
+   # return the platform constan
+   def runviewplatform
+   @platformdisplay = "Platform is " + RUBY_PLATFORM
+   end
+   
+   # return Rwdtinker version to diagnostic tab
+   def rwdtinkerversiondiagnostic
+   @rwdtinkerversionreturn = "rwdtinker version " + RwdTinkerVersion
+   end
+  

data/code/xa5rwdtinkercallable/callable.rb

@@ -0,0 +1,13 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a framework for writing programs from RubyWebDialogs
+# http://www.erikveen.dds.nl/rubywebdialogs/index.html 
+# For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the rwdtinker helpwindow  
+  def runrwdtinkerhelpwindow
+   @rwd_window = "rwdtinkerhelpwindow"
+   end
+  def runrwdtinkerbackwindow
+   @rwd_window = "tinkerbackwindow"
+   end   
+