rwdschedule 0.6 → 0.07

data/gui/tinkerbackwindows/superant.com.tinkerhelpwindow/1appname.rwd

@@ -0,0 +1,31 @@
+$rwdguivar=
+"
+<window name = \"rwdtinkerhelpwindow\" title=#{Message[:rwdtinker_help]}>
+<horizontal>
+%rwdhelptopic%
+</horizontal>
+
+<table>
+ <row> <p></row>
+ 
+ </table>
+<horizontal> 
+%%rwdhelpdataoutput%%
+</horizontal>
+<row> <p></row>
+<table>
+
+
+ <row> <p></row>
+</table>
+<horizontal>
+
+<button caption=\"Return\" action=\"rwdwindowreturn\"/>
+</horizontal>
+<table>
+ <row> <p></row>
+ 
+ </table>
+ 
+%%rwdhelpsubchoicesoutput%%
+"

data/gui/{xa1versionwindow → tinkerbackwindows/superant.com.versionwindow}/1appname.rwd

@@ -1,6 +1,6 @@
 $rwdguivar=
 "
-<window name = \"applicationversion\" title=\"Application Version\">
+<window name = \"applicationversion\" title=#{Message[:application_version]}>
 
  <row> <p></row>
           <p>%versionappnamedisplay%</p>
@@ -11,7 +11,7 @@ $rwdguivar=
 <p>%versionnumberdisplay%</p>
 
       <horizontal>
-       <cancel/>
+<button caption=#{Message[:return]} action=returntomain/>
     </horizontal>
 
 </window>"

data/gui/tinkerbackwindows/superant.com.versionwindow/helpaboutwindow.rwd

@@ -0,0 +1,17 @@
+$rwdguivar=
+"
+<window name=tinkerhelpabout title=#{Message[:help_about]}>
+<horizontal>
+<button caption=#{Message[:showhelpabout_links]} action=\"setuphelpaboutoptions\"/>
+
+</horizontal>
+ <table>
+      <select name=\"a_helpaboutinput\">  %%helpaboutoptions%% </select>
+
+   </table>
+
+      <horizontal>
+      <button caption=#{Message[:openselectedhelp_about]} action=\"runrwdtinkerversion\"/>
+    </horizontal>
+    </window>
+"

data/init.rb

@@ -18,216 +18,162 @@
 #* 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".
+#* at "smalllinux@gmail.com".
 #***********************************************************************/
 
-require "ev/rwd"
+require 'logger'
+
+LogDirectory = 'rwd_files/log/'
+logfilelocation = File.join(LogDirectory, 'rwdtinker.log')
+
+$rwdtinkerlog = Logger.new( logfilelocation , 'weekly' )
+$rwdtinkerlog.level = Logger::INFO
+
+require "lib/rwd/rwd"
 require 'fileutils'
-	
+require 'lib/rconftool'
+
+$KCODE = 'u'
+require 'jcode'
+
 $progdir = File::expand_path( File.dirname(__FILE__))
 
-        $tempdoc = " "
- 
- def findfiles(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 rwd files
-                  if x =~ /rb|rwd|txt/
-                    fileA=File.open("#{x}","r")        #opens the file thats in fileName as read only
-                    $tempdoc+=fileA.read    #reads the file into the doc string
-                    fileA.close    
-                  end
-               end
-          end
-  end
-  def loadguifile(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 rwd files
-              if x =~ /rb|rwd|txt/
-		           load x      #opens the file thats in fileName and reads it
-		           $tempdoc += $rwdguivar # adds the file into the doc string
-              end
-            end
-          end
-  end 
-        
-# Read in the configuration files
- 
- Dir.chdir("configuration")    #changes the current working directory
-      
- fileList = Dir.new(".").entries.sort.reverse.delete_if { |x| ! (x =~ /cnf$/) } #creates an Array separated with \n
- @doc = ""
- fileList.length.times{               #opening of a block
-    fileName=fileList.pop                #pops the first item out of the Array
-    load fileName     #loads the the config file thats in fileName 
+tempdoc = " "
+
+# integrate the new configuration files
+MAINconfignew =  "rwdconfig.cnf"
+MAINconfigdist = "rwdconfig.dist"
+Rconftool::install(MAINconfigdist,MAINconfignew)
+
+#load main config file
+load 'rwdconfig.cnf'
+
+Dir.chdir("configuration")    #changes the current working directory
+
+fileList = Dir.new(".").entries.sort.reverse.delete_if { |x| ! (x =~ /dist$/) } #creates an Array separated with \n
+@doc = ""
+fileList.length.times{               #opening of a block
+configdist =fileList.pop                #pops the first item out of the Array
+tempconfigfile = configdist.gsub(/\.dist$/, "")
+confignew = tempconfigfile + ".cnf"
+Rconftool::install(configdist,confignew)     #integrates new file with old 
   }       #closing block
- # END of configuration reading 
-
- Dir.chdir($progdir) # change back to top program directory
-
- # build the English Language hash file from the parts
- startlangdir = @@langdir +"/" + "en"
- #get a list of the files and subdirectories on the starting directory only
-        alanghash = Array.new(Dir[startlangdir].entries.sort)
-        #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...
-                        findfiles(x + "/**")
-                end
-        end
+  # END of configuration integration 
+  Dir.chdir($progdir)
+
+  # Read in the configuration files
+  Dir.chdir("configuration")    #changes the current working directory
+
+  fileList = Dir.new(".").entries.sort.reverse.delete_if { |x| ! (x =~ /cnf$/) } #creates an Array separated with \n
+  @doc = ""
+  fileList.length.times{               #opening of a block
+  fileName=fileList.pop                #pops the first item out of the Array
+  load fileName     #loads the the config file thats in fileName 
+  }       #closing block
+  # END of configuration reading 
 
- fileLangHash=File.open(TempLangHashFile,"w")        #deletes and opens a the file in fileName
- fileLangHash.write($tempdoc)                     #writes the contents of doc into the file
- fileLangHash.close 
- # END of Lang building
-  $tempdoc = " "
   Dir.chdir($progdir) # change back to top program directory
- 
- # build the local Language hash file from the parts
- startlangdir = @@langdir +"/" + $lang
- #get a list of the files and subdirectories on the starting directory only
-        alanghash = Array.new(Dir[startlangdir].entries.sort)
-        #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...
-                        findfiles(x + "/**")
-                end
-        end
 
- filelocalLangHash=File.open(LocalLangHashFile,"w")        #deletes and opens a the file in fileName
- filelocalLangHash.write($tempdoc)                     #writes the contents of doc into the file
- filelocalLangHash.close
 
-$tempdoc = " "
- 
- Dir.chdir($progdir) # change back to top program directory
-
- # build the language hash constant object from the lang parts
- #get a list of the files in lang directory only
-        alangfile = Dir.new(@@langdir).entries.sort.reverse.delete_if { |x| ! (x =~ /rb$/) }
-        alangfile.length.times{
-        fileName = alangfile.pop
-        Dir.chdir($progdir)
-        Dir.chdir(@@langdir) 
-        fileLangA=File.open("#{fileName}","r")        #opens the file thats in fileName as read only
-        $tempdoc += fileLangA.read    #reads the file into the doc string
-        fileLangA.close    
-        }
-        
-Dir.chdir($progdir)
- fileLangB=File.open(LangNameFile,"w")        #deletes and opens a the file in fileName
- fileLangB.write($tempdoc)                     #writes the contents of doc into the file
- fileLangB.close 
- load LangNameFile # load the  file
-
- $tempdoc = " "
-
- # build the actual program from the code parts
- #get a list of the files and subdirectories on the starting directory only
-        a = Array.new(Dir[@@codedir].entries.sort)
-        #loop through the list, ignore the files and add all new directories found
-        a.each do |x|
-          #if a directory...
-          if(test(?d,x))
-            # add to the original list of directories
-            @@root = x + "/**"
-            #adds the new ones to the array
-            b = Dir[@@root].entries.sort
-            b.each do |x|
-              if(test(?d,x))
-                a.push(x)  #appends to the end of the array...
-              end
-            end
-          end
-        end
-        a.each do |x|
-                #if it is a file...
-                if(!test(?d,x))
-                        a.delete(x)
-                  else              #it is a directory...
-                        findfiles(x + "/**")
-                end
+  # build the English Language hash file from the parts
+  Message = Hash.new { |hh, kk| hh[kk] = "ERROR: Message not found: #{kk.inspect}."; hh[kk] }
+  langmessage = { :clear => "Clear", :rwdtinker => "Rwdtinker" }  ; langmessage.each { |kk, vv| Message[kk] = vv }
+  
+    def msgid(programkey)
+	  $programkey = programkey
+  end
+  
+  def msgstr(programmsg)
+	  if programmsg == ""
+		  $rwdtinkerlog.info "msgstr: no translation for #{$programkey}"
+	 else
+                 Message.update( $programkey.to_sym => programmsg ) 
         end
+end
+ 
+  require 'lib/rwdtinker/rwdlangdir'
+ 
+  tempdoc = " "
+  #go get all the po language file files in english
+    tempdoc = RwdtinkerTools.findlanguagefiles(LangDir,"en")
 
- fileB=File.open(CodeNameFile,"w")        #deletes and opens a the file in fileName
- fileB.write($tempdoc)                     #writes the contents of doc into the file
- fileB.close 
- require CodeName # load the program file
-
-# build the actual GUI from the gui parts
- $tempdoc = " "
- #get a list of the files and subdirectories on the starting directory only
-        a = Array.new(Dir[@@guidir].entries.sort)
-        #loop through the list, ignore the files and add all new directories found
-        a.each do |x|
-                #if a directory...
-                if(test(?d,x))
-                        #use this new dir find to add to the original list of directories
-                        @@root = x + "/**"
-                        #adds the new ones to the array
-                        b = Dir[@@root].entries.sort
-                        b.each do |x|
-                                if(test(?d,x))
-                                        a.push(x)  #appends to the end of the array...
-                                end
-                        end
-                end
-        end
-        a.each do |x|
-                #if it is a file...
-                if(!test(?d,x)) 
-                        a.delete(x)
-                
-                else #it is a directory...
-                        loadguifile(x + "/**")
-                end
-        end
+  #writes the contents of doc into the  languagehashvariable 
+  languagehashvariable  =  tempdoc 
 
-   fileB=File.open(RWDFile,"w")        #deletes and opens a the file in fileName
-   fileB.write($tempdoc)                     #writes the contents of doc into the file
-   fileB.close
-   
+  # END of en Lang building
+  tempdoc = " "
+  Dir.chdir($progdir) # change back to top program directory
+
+  # build the local Language hash file from the parts
+    
+    $lang = $langarray[0]  # pick the language of choice
+  
+   # Go get all the po files for the language of choice
+    tempdoc  = RwdtinkerTools.findlanguagefiles(LangDir,$lang)
+    # the contents of doc into the variable
+    languagehashvariable =  languagehashvariable   + tempdoc 
+
+    Dir.chdir($progdir) # change back to top program directory
+    
+    # lets read those po files, first english then the chosen language
+    temp = eval(   languagehashvariable )
+
+  
+
+  # build the actual program from the code parts
+  require 'lib/rwdtinker/rwdcodedir'
+  
+  tempdoc =  RwdtinkerTools.findprogramfiles(CodeDir)
+
+  # load the program file
+ 
+  tempcoderesult = eval( tempdoc )
+
+  # build the actual GUI from the gui parts
+   require 'lib/rwdtinker/rwdguidir'
    
+  tempdoc = RwdtinkerTools.findguifiles(GuiDir)
+  
+
+  # gui variable is done
+  guiRWD = ""
+  $rwd_gui_tinker =  tempdoc
+  require 'socket'		# Network stuff
+  host = "127.0.0.1"
+  port = $port
+
+  # Create a socket to listen on and bind it to the host and port 
+  freeportfound = false
+  until freeportfound
+	  begin
+		  @socket = UDPSocket::new()
+		  @socket.bind(host, port)
+		  freeportfound = true
+		  $port = port
+		  # Rescue the "Address in use" error
+	  rescue Errno::EADDRINUSE
+		  $rwdtinkerlog.warn "RWD Startup: Port #{port} on host #{host} is already in use."
+		  port=port +1
+		  $rwdtinkerlog.warn "trying port: #{port}"
+		  # Rescue the "Address not available' error
+	  rescue Errno::EADDRNOTAVAIL
+		  $rwdtinkerlog.warn "RWD Startup: Address #{host} is not available to bind."
+		  port =port + 1
+		  $rwdtinkerlog.warn "trying port: #{port}"
+		  # Rescue "permission denied errors
+	  rescue Errno::EACCES
+		  $rwdtinkerlog.warn "RWD Startup: Access denied when binding interface addresses. ?"
+		  port =port + 1
+		  $rwdtinkerlog.warn "trying port: #{port}"
+		  # Rescue all other errors
+	  rescue
+		  $rwdtinkerlog.warn "RWD Startup: An error occured."
+		  port =port + 1
+		  $rwdtinkerlog.warn "trying port: #{port}"
+		  # Rescue all other errors
+	  end
+  $port = port
+  end
 
-RwdTinker.file(RWDFile).serve($port) # start the main class and program
+  
+  RwdTinker.new(  $rwd_gui_tinker ).serve(port) # start the main class and program

data/installed/rwdscheduledate2.inf

@@ -0,0 +1,6 @@
+## rwdschedule sample data
+rwd_files/schedules/20050120T09.ics
+rwd_files/schedules/Enterprise.ics
+rwd_files/schedules/US Holidays.ics
+rwd_files/schedules/testics05.ics
+rwd_files/schedules/200505may02a.sch

data/installed/rwdwschedule.inf

@@ -0,0 +1,20 @@
+## rwdwschedule
+gui/tinkerbackwindows/superant.com.rwdschedulesback
+gui/tinkerbackwindows/superant.com.rwdschedules
+gui/tinkerbackwindows/superant.com.rwdschedulebackwindow
+code/superant.com.schedule
+code/superant.com.rwdcalendar
+lang/en/rwdcalendar
+lang/es/rwdcalendar
+lang/nl/rwdcalendar
+lang/hi/rwdcalendar
+lang/ja/rwdcalendar
+lang/fr/rwdcalendar
+tests/makedist-rwdwhypernote.rb
+tests/gemspec-rwdwschedule
+rwd_files/HowTo_Schedule.txt
+rwd_files/rwdschedulehelpfiles.txt
+configuration/rwdwschedule.dist
+lib/cal.rb
+lib/icalendar
+lib/icalendar.rb

data/lang/en/rwdcalendar/en.po

@@ -0,0 +1,32 @@
+# Lang file for rwdcalendar - en
+
+   msgid "year"
+   msgstr "Year:"
+      
+  msgid "month"
+  msgstr "Month:"
+ 
+   msgid "show_month"
+   msgstr '"Show Month"'
+   
+   msgid "rwdschedule_calendar_generalhelp"
+  msgstr "Use the 'Edit Event' tab<br>      The first field is the most important. It is the filename that<br>      will be created. I use the event date starting with yearmonthday<br>      2005january11 <br>      The following lines for entry are for you to fill in as you want.<br>     When you are finished press the Save Changes button <br> You use this same screen for editing an already saved event "
+
+ msgid "rwdschedule_filelist_generalhelp"
+    msgstr "Click on the list events button.   <br>   Click on the date you want          <br>       Then click the 'Open' button         <br>       If it finds the record it will open it. It displays the record as text  under the 'Open' button."
+ 
+   msgid "event_utilities_help "
+       msgstr "On the event utilities tab     <br>  You can rename event filenames  <br>  You can delete events"
+       
+       msgid "rwdschedule_calendar_configuration"
+       msgstr "click on 'Edit Configuration'  <br> You can view the configuration file  <br><br>  You can edit the configuration  <br>  Remember to reload the configuration variables if you want your  changes used."
+       
+       msgid "rwdschedule_calendar_sync"
+        msgstr "Sync for multiple computers<br> If you are like me, you have more than one system<br> I use rwdTinker at home on my Linux laptop at work I use it on XP<br>  So I am adding schedule events on different machines.  <br> There is  a function to help sync the separate systems  <p> in 'Selection Panel' click on 'Open Schedule Sync Window' <p> First you need your ftp details set in the configuration/rwdschedule.cnf file <p> you can upload your events from your local schedules directory to the ftp site<br> you can download events from the ftp site to your local updates directory<br> you can perform a sync which finds remote events and adds them to your local schedules directory<br> There is a button to delete the update directory when finished"
+ 
+ msgid "rwdschedule_calendar_help"
+ msgstr "On the 'Show Month' tab<br>   You can see the current month or enter a year and month  <br>   for example:  <br>    Year: 2005  <br>    Month: 2  <br>    Click on 'show month'  <br>        It will display one month"
+ 
+  msgid "rwdschedule_icsfile_help"
+  msgstr "You can create an ics file<br>      you can view a raw ics file <br>      Rename ics File<br>      Delete ics File<br>      <br><br>      format of date      year = 2005<br>      month = 02<br>      day = 01<br>      hour = 01<br>      minute = 01<br>"
+