bigtinker 0.94 → 0.95

data/code/{superant.com.words/runrwdwordsbackwindow.rb → superant.com.schedule/runrwdscheduleicsbackwindow.rb}

@@ -3,8 +3,8 @@
 # For more information about  see http://www.rubyforge.net/projects/rwdapplications
   
   # call the window  
-  def runrwdwordsbackwindow
-   @rwd_window = "rwdwordsbackwindow"
-   @rwd_tab = "dictlookup"
+  def runrwdscheduleicsbackwindow
+   @rwd_window = "rwdscheduleicswindow"
+   @rwd_tab = "Viewicseventlist"
    end   
    

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

@@ -0,0 +1,34 @@
+# Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
+# 
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+  def runrwdschedulemenu1
+   @rwd_window = "rwdschedulewindow"
+   @rwd_tab = "Vieweventlist"
+   end   
+  def runrwdschedulemenu2
+   @rwd_window = "rwdschedulewindow"
+   @rwd_tab = "editeventrecordfile"
+   end   
+   
+   
+  def runrwdschedulemenu3
+   @rwd_window = "rwdschedulewindow"
+   @rwd_tab = "eventutilitiesrwdschedule"
+   end  
+ def runrwdschedulemenu4
+   @rwd_window = "rwdschedulesyncwindow"
+   @rwd_tab = "rwdschedulesynctasks"
+   end  
+   
+        def runrwdschedulemenu10
+   @rwd_window = "rwdschedulesyncwindow"
+   @rwd_tab = "viewrwdscheduleconfiguration"
+   end 
+   
+       def runrwdschedulemenu11
+   @rwd_window = "main"
+   @rwd_tab = "documentsrwdtinkerone"
+   end 
+  

data/code/{superant.com.rwdcalc/runrwdcalcwindow.rb → superant.com.schedule/runrwdschedulesyncbackwindow.rb}

@@ -1,10 +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 runrwdcalcwindow
-   @rwd_window = "rwdcalcwindow"
-  @rwd_tab = "rwdfcalc"
-   end   
+# 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 runrwdschedulesyncbackwindow
+   @rwd_window = "rwdschedulesyncwindow"
+   @rwd_tab = "rwdschedulesynctasks"
+   end   
    

data/code/{superant.com.hypernote/rwdtinkerversion.rb → superant.com.schedule/rwdmoviesversion.rb}

@@ -3,8 +3,8 @@
 # For  information see http://www.rubyforge.net/projects/rwdapplications
 
 # return the version constant defined in the config file
-def rwdhypernotehelpaboutsetup
-return ["Hypernote","(c) 2004,2005 Steven Gibson ","Version #{RwdHyperNoteVersion}"]
+def rwdschedulehelpaboutsetup
+return ["RwdSchedule","(c) 2004-2008 Steven Gibson ","Version #{RwdScheduleVersion}"]
 end
 
 

data/code/{superant.com.hypernote → superant.com.schedule}/saveconfigurationrecord.rb

@@ -1,9 +1,10 @@
   # this method adds a new address record
-  def saverwdhypernoteconfiguration
+  def saverwdscheduleconfiguration
    require 'fileutils'
    
-   newname = "rwdhypernote.cnf" # grab the filename to create
-   newdata =@a_hypconfigline1.to_s + "\n" + @a_hypconfigline2.to_s + "\n" + @a_hypconfigline3.to_s + "\n" + @a_hypconfigline4.to_s + "\n" + @a_hypconfigline5.to_s + "\n" + @a_hypconfigline6.to_s + "\n" + @a_hypconfigline7.to_s + "\n" + @a_hypconfigline8.to_s + "\n" + @a_hypconfigline9.to_s + "\n"
+   newname = RwdScheduleName+"-"+RwdScheduleVersion+".cnf" # grab the filename to create
+   newdata =@a_schconfigurationfile
+   
 	 
         begin # exception trapped block
           fileName = File.join( ConfigurationDir, newname )

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

@@ -0,0 +1,25 @@
+  # this method adds a new  record
+  def saveeventrecord 
+   require 'fileutils'
+   if @a_eventfilename
+   newname = "%s" %   [@a_eventfilename] # grab the new filename to create
+   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")
+	        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/superant.com.schedule/saveicseventrecord.rb

@@ -0,0 +1,98 @@
+  # 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
+ daydate = temptimedata
+     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_eventendicshour.empty?
+    tempendtimedata= daydate     + "T" + @a_eventendicshour.to_s
+    else
+    tempendtimedata = daydate     + "T" + "00"
+   end
+    if ! @a_eventendicsminute.empty?
+    tempendtimedata = tempendtimedata + @a_eventendicsminute.to_s
+else
+    tempendtimedata = tempendtimedata  +  "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"
+     
+  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
+          @newicseventresult= 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/syncrwdschedule.rb

@@ -0,0 +1,30 @@
+def syncrwdscheduledata
+    require 'fileutils'
+   @rwdschedulesyncresult  = ""
+ begin
+    
+@rwdschedulesyncresult  = "updating local files" + "\n" 
+    Dir.chdir($progdir)
+    
+    localfileListarray = Dir.new($rwdschedule_directory).entries.sort.delete_if { |tmpfile| ! (tmpfile =~ /sch$/) }
+      remotefileListarray = Dir.new($rwdschedule_updatedirectory ).entries.sort.delete_if { |tmpfile| ! (tmpfile =~ /sch$/) }
+  
+    tempupdatefilelistarray = remotefileListarray -   localfileListarray 
+    
+   if  tempupdatefilelistarray
+           tempupdatefilelistarray.each do |temp|
+            tmpfilenametosync = File.join($rwdschedule_updatedirectory,temp)
+            tmpfilenamecopied = File.join($rwdschedule_directory,temp)
+             FileUtils.cp( tmpfilenametosync, tmpfilenamecopied)
+            @rwdschedulesyncresult  =   @rwdschedulesyncresult + temp + "\n"   
+      
+      end
+      end
+
+  
+rescue
+ 
+
+print "sync error"
+end
+end

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

@@ -0,0 +1,45 @@
+# test harness
+
+	
+require 'test/unit/testcase'
+require 'test/unit/assertions'
+  
+def rwdschedule_all_tests 
+	print "in rwdschedule all tests\n"
+  $testrwdscheduletestcase = TestSuite.new
+	test_runrwdschedule
+end
+
+def test_runrwdschedule
+
+
+	begin
+  testasserts = 0
+  print "Starting rwdtorrent tests!\n"
+     runselectiontab
+     assert_equal("selectiontab",@rwd_tab) ; testasserts += 1
+    runrwdschedulemenu10   
+    assert_equal("viewrwdscheduleconfiguration",@rwd_tab) ; testasserts += 1    
+        loadrwdscheduleconfiguration
+    assert_equal(RwdScheduleName,@a_schconfigurationfilename) ; testasserts += 1    
+     
+ $stderr.print "tests completed succesfully!\n"
+ $stderr.print testasserts, " asserts performed\n"
+
+	rescue  NotImplementedError, Exception
+		$stderr.print $!
+
+	end
+  
+end
+
+
+
+def teststobedown
+ runtinkerhelpabout
+          assert_equal("rwdtinkerhelpwindow",@rwd_tab)  ; testasserts += 1
+end
+
+
+
+

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

@@ -0,0 +1,30 @@
+def uploadrwdschedulefiles
+  require 'net/ftp'
+  BasicSocket.do_not_reverse_lookup = true 
+   @rwdscheduleftpdisplays = ""
+  begin
+    ftp = Net::FTP::new($rwdschedule_ftpsite)
+@rwdscheduleftpdisplay  = "files uploaded" + "\n" 
+    
+    fileListarray = Dir.new($rwdschedule_directory).entries.sort.delete_if { |tmpfile| ! (tmpfile =~ /sch$/) }
+    if fileListarray
+      ftp.debug_mode = false
+      ftp.login($rwdschedule_ftplogin, $rwdschedule_ftppassword)
+      ftp.chdir($rwdschedule_ftpdirectory)
+      print "I'm in the directory ", ftp.pwd(), "\n"
+      fileListarray.each do |temp|
+             tmpfilenametoupload = File.join($rwdschedule_directory,temp)
+             ftp.puttextfile(tmpfilenametoupload  , temp)
+             @rwdscheduleftpdisplay  =   @rwdscheduleftpdisplay + temp + "\n"   
+        end
+      end
+   ftp.close
+  
+rescue
+ 
+ if ftp
+ ftp.close
+end
+print "ftp error"
+end
+end

data/code/superant.com.schedule/viewevent.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/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/code/superant.com.schedule/viewrwdschedulesconfiguration.rb

@@ -0,0 +1,21 @@
+  def viewrwdschedulesconfiguration 
+    require 'fileutils'
+    begin # exception trapped block
+    
+     Dir.chdir($progdir)
+     rwdschedulesconfigurationfile = File.join( "configuration", RwdScheduleName )
+     if  File.exist?(rwdschedulesconfigurationfile)
+       fd = File.open(rwdschedulesconfigurationfile,"r")
+       @rwdschedulesconfigurationtext = " "
+       while ! fd.eof?
+	        @rwdschedulesconfigurationtext = fd.read
+       end
+       fd.close
+     else
+	@rwdschedulesconfigurationtext  = "File error"
+     end
+    rescue SystemCallError, StandardError
+     $stderr.print "system call error: " + $!
+     @rwdschedulesconfigurationtext = "File error"
+    end # exception rescue
+  end

data/configuration/bigtinker.dist

@@ -1,3 +1,3 @@
-##VERSION:0.94
+##VERSION:0.95
 $tinkerhelpaboutarray += ["BigTinker"]
-BigTinkerVersion = "0.94"
+BigTinkerVersion = "0.95"

data/configuration/language.dist

@@ -1,7 +1,8 @@
-##VERSION:1.62
+##VERSION:1.69
 #language selection file
 ##NAME:$lang:0
 #$lang = "jp"
 $lang= "en"
 #$lang= "nl"
 #$lang= "es"
+#$lang= "fr"

data/configuration/rwdapplicationidentity.dist

@@ -1,3 +1,3 @@
-##VERSION:1.63
+##VERSION:1.69
 $rwdapplicationidentity = "rwdtinker main application"
 

data/configuration/rwdtinker.dist

@@ -1,4 +1,4 @@
-##VERSION:1.68
+##VERSION:1.76
 ConfigurationDir = "configuration" # for use in program - init.rb has this value without using this constant
 CodeName = "rwdtinker"
 CodeNameFile = CodeName + ".rb"
@@ -9,11 +9,10 @@ LangDir = "lang"
   $help_topic = "general_help"
    $helptopicsarray = [ "general_help","network_help"]
   $prevouswindow ="main" 
-   $rwdcontrolports =["13713","13714","13715","13716","13717","13718"]
+   $rwdcontrolports =["13713","13714","13715","13716","13717","13718"]   # remote control code not actived 2007
  $port = 7705
 $rwdjumplink = ["helpscreen","tinkerbackwindow","returntomain","opendocuments","editconfiguration"]
 Browser_Exe = 'mozilla '
-$tinkerdocumentsarray +=["COPYING","HowTo_Tinker.txt","rwdapplications.html","RubyWebDialogs.html"]
-RwdTinkerVersion = "1.65"
-	
-   
+$tinkerdocumentsarray +=["HowTo_Tinker.txt","rwdapplications.html","RubyWebDialogs.html"]
+RwdTinkerVersion = "1.76"
+

data/configuration/rwdwschedule-1.04.dist

@@ -0,0 +1,25 @@
+##VERSION:1.04
+##NAME: $rwdschedule_directory:0
+$rwdschedule_directory = "schedules"
+##NAME: $rwdschedule_ftpsite:0
+$rwdschedule_ftpsite = "ftp.site.com"
+##NAME: $rwdschedule_ftplogin:0
+$rwdschedule_ftplogin = "login"
+##NAME: $rwdschedule_ftppassword:0
+$rwdschedule_ftppassword = "anonymous"
+##NAME: $rwdschedule_ftpdirectory:0
+$rwdschedule_ftpdirectory = "/incoming/rwdschedules"
+##NAME: $rwdschedule_updatedirectory:0
+$rwdschedule_updatedirectory = "updates"
+$testharnessarray += ["rwdschedule_all_tests"]
+$tinkerhelpaboutarray += ["RwdSchedule"] 
+$tinkerdocumentsarray += ["HowTo_Schedule.txt"]
+$extras_directory = "extras"
+##NAME:JumpLink:0
+JumpLink.update(:RwdScheduleConfiguration=>"runrwdschedulemenu10", :ScheduleEditRecord=>"runrwdschedulemenu1", :ScheduleICSwindow=>"runrwdscheduleicsbackwindow")
+##NAME:rwdjumplink:0 
+$rwdjumplink +=["ScheduleICSwindow","ScheduleEditRecord","RwdScheduleConfiguration"]
+##NAME:RwdScheduleVersion:0
+RwdScheduleVersion = "1.04"
+##NAME:RwdScheduleName:0
+RwdScheduleName = "rwdwschedule"

data/configuration/rwdwshell-1.04.dist

@@ -0,0 +1,16 @@
+##VERSION:1.04
+##NAME:$shellscript_directory:0
+$shellscript_directory = "scripts"
+##NAME:$testharnessarray:0
+$testharnessarray += ["rwdshell_all_tests"]
+##NAME:$tinkerhelpaboutarray:0
+$tinkerhelpaboutarray += ["RwdShell"] 
+##NAME:$tinkerdocumentsarray
+$tinkerdocumentsarray += ["HowTo_Shell.txt"]
+JumpLink.update(:RwdShellBackWindow=>"runrwdshellbackwindow", :RunShell=>"runrwdshellwindow")
+##NAME:$rwdjumplink:0
+$rwdjumplink +=["RwdShellBackWindow", "RunShell"]
+##NAME:RwdShellVersion:0
+RwdShellVersion = "1.04"
+
+

data/configuration/tinkerwin2variables.dist

@@ -1,4 +1,4 @@
-##VERSION:1.63
+##VERSION:1.69
 TinkerWin2ConfigurationFileName = "tinkerwin2variables.cnf" # this file name - do not change
 ##NAME:$zipslocation:0
 $zipslocation = "zips" # location of applets to add

data/gui/00coreguibegin/applicationguitop.rwd

@@ -1,4 +1,4 @@
 $rwdguivar=
 "<application>
-  <window name=\"main\" title=\"BigTinker - RubyWebDialogs\">
+  <window name=\"main\" title=\"BigTinker - Webdialogs for Ruby\">
 <tabs>"

data/gui/frontwindow0/cc0openphoto.rwd

@@ -0,0 +1,22 @@
+$rwdguivar=  
+	
+"	
+	<tab name=\"viewtinkerlogo\" caption=\"Tinker\">
+
+    <table>
+      <row> <p align=\"right\">#{Message[:tinker_logo]}</row>
+
+    </table>
+    <image src=\"tinker.png\"> </image>
+    <table>
+      <row> <p></row>
+
+    </table>
+      <horizontal>
+      
+      <button caption=#{Message[:help]} action=\"runhelpwindow\"/>
+      
+      
+     </horizontal>
+
+	</tab>"

data/gui/{frontwindowselectionbegin/selectiontabbegin → frontwindowselections}/00selectiontabbegin.rwd

@@ -1,6 +1,6 @@
 $rwdguivar=
 "	
-      <tab name=\"selectiontab\" caption=\"Menu Panel\">
+      <tab name=\"selectiontab\" caption=#{Message[:menu_panel]}>
 
       <table>
       <row> <p align=\"right\">Open a new location </row>

data/gui/frontwindowselections/jumplinkcommands.rwd

@@ -0,0 +1,15 @@
+$rwdguivar=
+"
+<horizontal>
+<button caption=#{Message[:showjump_links]} action=\"showjumplinkoptions\"/>
+<button caption=#{Message[:help]} action=\"runhelpwindowtinkerwin2\"/>
+</horizontal>
+ <table>
+      <select name=\"a_jumplinkinput\">  %%jumplinkoptions%% </select>
+
+   </table>
+
+      <horizontal>
+      <button caption=#{Message[:jumptoapplication_location]} action=\"runjumplinkcommand\"/>
+    </horizontal>
+"

data/gui/frontwindowtdocuments/{superant.com.documents/tinkerdocuments.rwd → tinkerdocuments.rwd}

@@ -1,7 +1,7 @@
 $rwdguivar=
 "
 <horizontal>
-<button caption=\"Show Documents List\" action=\"setuptinkerdocuments\"/>
+<button caption=#{Message[:showdocument_list]} action=\"setuptinkerdocuments\"/>
 
 </horizontal>
  <table>
@@ -9,6 +9,6 @@ $rwdguivar=
 
    </table>
 <horizontal>
-      <button caption=\"Open Document\" action=\"runopentinkerdocument\"/>
+      <button caption=#{Message[:open_document]} action=\"runopentinkerdocument\"/>
   </horizontal>
 "

data/gui/{helpaboutbegin/superant.com.helpaboutbegin → frontwindowtdocuments}/zzdocumentend.rwd

@@ -1,7 +1,7 @@
 $rwdguivar=
 "     
 <horizontal>       
-      <button caption=\"Help\" action=\"runhelpwindow\"/>
+      <button caption=#{Message[:help]} action=\"runhelpwindow\"/>
       
     </horizontal>
 	</tab>"

data/gui/helpaboutbegin/zzzzhelpscreenstart.rwd

@@ -0,0 +1,3 @@
+$rwdguivar=
+"
+<helpwindow name=\"main\" title=#{Message[:help_about]}>"

data/gui/helpaboutbegin/zzzzzzhelpabouttab.rwd

@@ -0,0 +1,15 @@
+$rwdguivar=
+"
+<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>
+"

data/gui/helpaboutzend/zhelpscreenstart2.rwd

@@ -0,0 +1,3 @@
+$rwdguivar=
+"
+<helpwindow name=\"tinkerbackwindow\" title=#{Message[:help_about]}>"