rwdfoldeditor 0.01

data/code/01rwdcore/selectiontab.rb

@@ -0,0 +1,9 @@
+# this code is to return to the window back from the help window
+def runselectiontab
+
+	
+	@rwd_tab = "selectiontab"
+end
+
+
+

data/code/01rwdcore/setuphelpaboutoptions.rb

@@ -0,0 +1,13 @@
+# help about option setup for rwdtinker application
+def setuphelpaboutoptions 
+
+  @rwd_window = "tinkerhelpabout"
+	@helpaboutoptions = $tinkerhelpaboutarray.rwd_options
+end	
+	
+def setuphelpaboutoptionspassive 
+
+  
+	@helpaboutoptions = $tinkerhelpaboutarray.rwd_options
+end	
+   

data/code/01rwdcore/setuptinkerdocuments.rb

@@ -0,0 +1,6 @@
+# Bind document names  to rwdtinker document tab
+def setuptinkerdocuments 
+
+	@tinkerdocumentsarray = $tinkerdocumentsarray.rwd_options
+end	
+   

data/code/01rwdcore/test_cases.rb

@@ -0,0 +1,109 @@
+# test harness
+
+	
+require 'test/unit/testcase'
+require 'test/unit/assertions'
+include Test::Unit::Assertions
+include Test::Unit  
+def rwdtinker_all_tests 
+	print "in rwdtinker all tests\n"
+  $testrwdtinkertestcase = TestSuite.new
+	test_runrwdtinkerbackwindow
+end
+
+def test_runrwdtinkerbackwindow
+
+
+	begin
+  testasserts = 0
+  print "Starting rwdtinker tests!\n"
+		runrwdtinkerbackwindow
+    
+    assert_equal("tinkerbackwindow",@rwd_window) ; testasserts += 1 
+     runselectiontab
+     assert_equal("selectiontab",@rwd_tab) ; testasserts += 1
+    showjumplinkoptions
+    @a_jumplinkinput = "returntomain"
+   runjumplinkcommand
+    assert_equal("main",@rwd_window) ; testasserts += 1 
+		@a_jumplinkinput = "helpscreen"
+    runjumplinkcommand 
+    
+     assert_equal("rwdtinkerhelpwindow",@rwd_window)  ; testasserts += 1
+     returntomain
+     assert_equal("main",@rwd_window)  ; testasserts += 1
+     runtinkerdocuments
+     assert_equal("documentsrwdtinkerone",@rwd_tab)  ; testasserts += 1
+     	runrwdtinkerbackwindow
+    
+    assert_equal("tinkerbackwindow",@rwd_window) ; testasserts += 1 
+    @a_installapplet="/usr/src/rwdapplets/rwdtinker/zips/rwdahelloworld-0.5"
+    viewgemappletcontents
+    assert_not_nil(@appletcontentstext)  ; testasserts += 1
+    runrwdtinkerwin2version
+      assert_equal("applicationversion",@rwd_window) ; testasserts += 1 
+        returntomain
+     assert_equal("main",@rwd_window)  ; testasserts += 1
+      	runrwdtinkerbackwindow
+    
+    assert_equal("tinkerbackwindow",@rwd_window) ; testasserts += 1 
+    runremotezipsinstall
+     assert_equal("superantcomremotezipsinstall",@rwd_tab) ; testasserts += 1
+    runeditconfiguration   
+    assert_equal("editconfigurationfile",@rwd_tab) ; 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
+	raise NotImplementedError, 'Need to write test_choosenewhelptopic'
+	raise NotImplementedError, 'Need to write test_listinstalledfiles'
+	raise NotImplementedError, 'Need to write test_listzipfilestoinstall'
+	raise NotImplementedError, 'Need to write test_loadconfigurationrecord'
+	raise NotImplementedError, 'Need to write test_loadconfigurationvariables'
+
+	raise NotImplementedError, 'Need to write test_main'
+
+	raise NotImplementedError, 'Need to write test_network_demon'
+
+	raise NotImplementedError, 'Need to write test_network_start'
+
+	raise NotImplementedError, 'Need to write test_openappletname'
+
+	raise NotImplementedError, 'Need to write test_removeapplet'
+
+	raise NotImplementedError, 'Need to write test_returntomain'
+
+	raise NotImplementedError, 'Need to write test_runcontrolcommand'
+
+	raise NotImplementedError, 'Need to write test_runhelpwindow'
+
+	raise NotImplementedError, 'Need to write test_runrwdtinkerversion'
+
+	raise NotImplementedError, 'Need to write test_runrwdtinkerwin2version'
+
+	raise NotImplementedError, 'Need to write test_runviewplatform'
+
+	raise NotImplementedError, 'Need to write test_rwdtinkerversiondiagnostic'
+
+	raise NotImplementedError, 'Need to write test_rwdwindowreturn'
+	raise NotImplementedError, 'Need to write test_saveconfigurationrecord'
+
+	raise NotImplementedError, 'Need to write test_viewappletcontents'
+end
+
+
+
+

data/code/01rwdcore/test_harness.rb

@@ -0,0 +1,13 @@
+# this to start the test harness
+def rwdtest_harness
+
+	print "in test harness\n"
+  
+	$testharnessarray.each { |x| 
+		print "calling #{x}\n"
+		eval("#{x}")
+
+	}
+
+end
+

data/code/01rwdcore/uploadreturns.rb

@@ -0,0 +1,62 @@
+def uploadreturnsfile
+	require 'net/ftp'
+	BasicSocket.do_not_reverse_lookup = true 
+	@returnsftpdisplays = ""
+	randomnumber = rand(9999) + 1000
+	puts randomnumber.to_i
+
+
+	returns_ftpsite = "ftp.superant.com"
+	returns_ftplogin = "anonymous@superant.com"
+	returns_ftppassword = "anonymous@superant.com"
+	returns_ftpdirectory = "/incoming/returns/"
+
+	begin
+		platformdisplay = "Platform is " + RUBY_PLATFORM + "\n"
+		platformdisplay =  platformdisplay + "Ruby Version " + VERSION + "\n" 
+		platformdisplay  = platformdisplay  + "rwdtinker version " + RwdTinkerVersion + "\n"
+		platformdisplay = platformdisplay + "application name " + $rwdapplicationidentity + "\n"
+		platformdisplay = platformdisplay + "program directory " + $progdir + "\n"
+		platformdisplay = platformdisplay  + "hostname " + Resolv.getname(Resolv.getaddress("localhost")) + "\n"
+		platformdisplay = platformdisplay +  "Date " +      Date.today().to_s + "\n"
+		if ! @a_emailupload.empty?
+			platformdisplay = platformdisplay + @a_emailupload + "\n"
+		end
+		if ! @a_emailupload.empty?
+			platformdisplay = platformdisplay + @a_commentupload + "\n"
+		end
+		updatefile = Date.today().to_s + Resolv.getname(Resolv.getaddress("localhost")) + randomnumber.to_s
+
+		tmpdir = ENV['TMP']
+		if tmpdir.to_s.empty?
+			tmpdir = "/tmp"   
+		end
+		fileName = File.join( tmpdir, updatefile)
+		fd = File.open(fileName,"w")
+		fd.print(platformdisplay) # save the record info to the file
+		fd.close
+		ftp = Net::FTP::new(returns_ftpsite)
+		@returnsftpdisplay  = "data uploaded" + "\n" 
+
+		filedirname = File.join(tmpdir,updatefile)
+
+		ftp.debug_mode = false
+		ftp.login(returns_ftplogin, returns_ftppassword)
+		ftp.chdir(returns_ftpdirectory)
+		print "I'm in the directory ", ftp.pwd(), "\n"
+
+		puts filedirname
+		ftp.puttextfile(filedirname  , updatefile)
+		@returnsftpdisplay  =   @returnsftpdisplay + platformdisplay   
+
+
+		ftp.close
+
+	rescue
+		@returnsftpdisplay = "upload error"
+		if ftp
+			ftp.close
+		end
+		print "ftp error"
+	end
+end

data/code/dd0viewphoto/dd0viewphoto.rb

@@ -0,0 +1,3 @@
+def viewphoto
+	@rwd_window = "photo"
+end

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

@@ -0,0 +1,10 @@
+
+def rwdwfoldeditor_0_01()
+$tinkerdocumentsarray.delete_if {|x| x == "HowTo_FoldEditor.txt"}
+$tinkerhelpaboutarray.delete_if {|x| x == "RwdFoldEditor"}
+Helptext.delete_if {|key, value| key == :rwdfoldeditor_generalhelp}
+Helptext.delete_if {|key, value| key == :foldlinkview_help }
+Helptext.delete_if {|key, value| key == :foldlinkutility_help }
+$rwdjumplink.delete_if {|x| x == "RwdFoldEditor"}
+
+end

data/code/superant.com.foldeditor/changehypernotename.rb

@@ -0,0 +1,21 @@
+ # this code is to change the note name
+ def changehypernotedata
+  if ! @a_changehypernotedata.empty? 
+   if ! @a_viewhypernote.empty? 
+   oldName =  @a_viewhypernote + ".txt"
+  
+    
+     newName =  @a_changehypernotedata + ".txt"
+      if  File.exist?(oldName)
+         File.rename(oldName, newName)
+         oldlinkName =  @a_viewhypernote + ".lnk"
+         newlinkName =  @a_changehypernotedata + ".lnk"
+         if  File.exist?(oldlinkName)
+            File.rename(oldlinkName,  newlinkName)
+         end
+     end
+     end
+   end    
+  end
+
+

data/code/superant.com.foldeditor/chooselinkfile.rb

@@ -0,0 +1,6 @@
+   # this method clears the on screen variables
+   def chooselinkfile
+    @a_viewfoldlinkfile = @a_foldeditorlinkinput
+      $foldeditor_linkfile = @a_viewfoldlinkfile
+      
+  end

data/code/superant.com.foldeditor/choosenotefile.rb

@@ -0,0 +1,6 @@
+   # this method clears the on screen variables
+   def choosefoldnotefile
+    @a_viewfoldlink = @a_viewfoldlinktmp
+      
+      
+  end

data/code/superant.com.foldeditor/createnewnotehtml.rb

@@ -0,0 +1,31 @@
+#create a new note
+  def rwdfoldeditcreatenewnote
+  
+  @rwd_call_after_back << "reloadtab"
+     if @rwd_tab ==  "viewrwdfoldeditorfile" # we are on the link file edit tab
+      
+        if @a_foldeditorlinkfile.empty?  # nothing has been typed in the text box
+	     newnotecontent = 'new links'
+        else
+	    newnotecontent = @a_foldeditorlinkfile.to_s
+        end
+        if @a_viewfoldlinkfile.empty? # no title is listed
+	       newnotefilename = "newlinks.fld" # create a fold link file 
+        else
+	     newnotefilename = @a_viewfoldlinkfile.to_s
+        end
+    else # we are on the note edit tab 
+      if  @folddocumentresult.empty?
+             newnotecontent =  'new note'
+       else
+             newnotecontent = @folddocumentresult.to_s
+        end        
+      newnotefilename = "newnote.txt"  # arbitrary file name
+      
+    end
+       
+  $reloadaftercreate = true
+    download("#{newnotecontent}", "#{newnotefilename}")
+   
+    end
+    

data/code/superant.com.foldeditor/helptexthashrwdhypernote.rb

@@ -0,0 +1,38 @@
+  
+
+ Helptext.update( :rwdfoldeditor_generalhelp => "This program is a notes editor
+      
+ text notes can be entered and saved and organized into a fold link file
+ 
+ Notes can be saved in any structure you want in directories
+ 
+  
+ There are tabs to enter notes and links and edit configurations
+ 
+ 'View/Edit Document' - to create a note or edit and existing note
+ 
+ 'FoldEditor File View' - to view and navigate the fold link file
+ 
+ 'RwdFoldEditor edit file' - to edit change fold link files
+        ",
+ :foldlinkview_help => "You can create or edit notes
+   click the bottom button 'list notes' to see a lists 
+   of the notes you already have.
+   'save changes' to save your edits
+   'clear' to clear the screen
+   'Create New Note' to start a new note
+  After creating a new note, you must click 'Load New Title' 
+  to select it, or it will NOT be SAVED",
+  :foldlinkutility_help => "You can choose the link file to work on
+ 
+  You can edit links for note pages
+       
+  You can open the link file if you have one already
+
+  You can see the list of link files by clicking 'List Local Link Files'
+  You can open one of those file
+  
+  If you do not have a link file, you can create one with 'create link file' button
+  
+      "
+)

data/code/superant.com.foldeditor/hyperlinkcreatelinkfile.rb

@@ -0,0 +1,19 @@
+ # this method adds a new address record or saves changes
+ def hyperlinkcreatelinkfile
+require 'fileutils'
+   if ! @a_viewhypernote.empty?
+   newname = "%s" %   [@a_viewhypernote] # grab the new filename to create
+   
+	 fullnewname = newname + ".lnk"
+   @a_viewlinksnote = fullnewname
+        begin # exception trapped block
+         
+        	fd = File.open(fullnewname,"w")
+	       
+	        fd.close
+          @createnewnamerecorddisplay=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.foldeditor/listfoldeditorfiles.rb

@@ -0,0 +1,7 @@
+# this code is to list the fold files that are available
+def loadfoldeditorlinkfilelist
+
+	fileList      = Dir.new("rwd_files").entries.sort.delete_if { |x| ! (x =~ /fld$/) }
+	@foldeditorlinkfiles  = fileList.rwd_options
+end
+

data/code/superant.com.foldeditor/loadfolddocument.rb

@@ -0,0 +1,21 @@
+   # this method views an existing address record
+  def loadfolddocument
+ 
+         require 'fileutils'
+
+	      
+        begin # exception trapped block
+       
+       
+	      fileName =  @a_viewfoldlink
+        
+	      fd = File.open(fileName,"r")
+	      @folddocumentresult =        fd.read
+	      
+	      
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

data/code/superant.com.foldeditor/loadrwdfoldeditlinkfile.rb

@@ -0,0 +1,19 @@
+   # this method views an existing fold link file
+  def loadrwdfoldeditlinkfile
+ 
+         require 'fileutils'
+	      
+        begin # exception trapped block
+      
+	      fileName =  File.join($rwdfoldeditor_directory,@a_viewfoldlinkfile)
+        
+	      fd = File.open(fileName,"r")
+	      @a_foldeditorlinkfile =        fd.read
+	      
+	      
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

data/code/superant.com.foldeditor/openhelpwindowrwdhyernote.rb

@@ -0,0 +1,30 @@
+# this code is to call the help window
+def runhelpwindowrwdfoldeditor
+
+     $help_topic = "rwdfoldeditor_generalhelp"
+   
+   if @rwd_tab == "viewrwdfoldeditorfile"
+        $help_topic = "foldlinkutility_help"
+   end
+     
+   if @rwd_tab == "superantcomfoldeditor"
+        $help_topic = "foldlinkview_help"
+   end
   
+   if @rwd_tab == "superantcomfoldeditorview" 
+      
+    $help_topic = "rwdfoldeditor_generalhelp"
+   end 
+   
+    
+   $helptopicsarray =  $helptopicsarray | ["rwdfoldeditor_generalhelp","foldlinkview_help","foldlinkutility_help"]
+  
+   
+  
+ if @rwd_window != "rwdtinkerhelpwindow"
+       $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+  end
+  runhelpwindow
+end
+
+

data/code/superant.com.foldeditor/runrwdapplet.rb

@@ -0,0 +1,10 @@
+# Application rwdtinker orginally (c) 2004 Steven Gibson under GPL. 
+# 
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+  def runrwdfoldeditorwindow
+   @rwd_window = "rwdfoldeditorwindow"
+   @rwd_tab = "superantcomfoldeditor"
+   end   
+   

data/code/superant.com.foldeditor/rwddisplayfoldlinks.rb

@@ -0,0 +1,33 @@
+   # this method clears the on screen variables
+   def fillziptoinstallnamex(inffile)
+	applet                = inffile.strip
+	@a_viewfoldlink         = applet
+	
+end
+
+   
+  def rwddisplayfoldlinks
+  if @a_viewfoldlinkfile
+       if @a_viewfoldlinkfile.empty?  # a fold link file has not been selected
+  
+             fileName = File.join($rwdfoldeditor_directory,"default.fld")
+	
+	else  # you have picked the fold link file you want to use
+		
+		fileName = File.join($rwdfoldeditor_directory, @a_viewfoldlinkfile.to_s.strip)
+	end
+	else
+		 fileName = File.join($rwdfoldeditor_directory,"default.fld")
+		 end
+  tmpfilearray = []
+    File.open(fileName).each { |line|
+   tmpfilearray  << line.strip  
+}
+
+  @a_displayfoldlinks01 = tmpfilearray.entries.sort.rwd_method("fillziptoinstallnamex")
+ @displayfoldlinkoptions  = tmpfilearray.rwd_options
+ 
+
+ 
+  end 
+ 

data/code/superant.com.foldeditor/rwdtinkerversion.rb

@@ -0,0 +1,10 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a framework for writing programs from RubyWebDialogs
+# For  information see http://www.rubyforge.net/projects/rwdapplications
+
+# return the version constant defined in the config file
+def rwdfoldeditorhelpaboutsetup
+return ["RwdFoldEditor","(c) 2005-2008 Steven Gibson ","Version #{RwdFoldEditorVersion}"]
+end
+
+

data/code/superant.com.foldeditor/savefoldlinkfile.rb

@@ -0,0 +1,20 @@
+  # this method adds a new  record
+  def savefoldlinkfile
+   require 'fileutils'
+    if ! @a_foldeditorlinkfile.empty?  # the document is not empty
+   if ! @a_viewfoldlinkfile.empty?          # the filename is not empty
+   fileName =   File.join($rwdfoldeditor_directory,@a_viewfoldlinkfile.to_s)  # grab the new filename to create
+  
+	
+        begin # exception trapped block
+       
+        	fd = File.open(fileName,"w")
+	        fd.print(  @a_foldeditorlinkfile) # save the record info to the file
+	        fd.close
+      
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+    end
+    end
+  end

data/code/superant.com.foldeditor/savehtmlhypernoterecord.rb

@@ -0,0 +1,20 @@
+  # this method adds a new  record
+  def savefoldeditrecord
+   require 'fileutils'
+    if ! @folddocumentresult.empty?  # the document is not empty
+   if ! @a_viewfoldlink.empty?          # the filename is not empty
+   fileName =   @a_viewfoldlink.to_s  # grab the new filename to create
+  
+	
+        begin # exception trapped block
+       
+        	fd = File.open(fileName,"w")
+	        fd.print(  @folddocumentresult) # save the record info to the file
+	        fd.close
+      
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+    end
+    end
+  end

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

@@ -0,0 +1,19 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a framework for writing programs from RubyWebDialogs
+# For information  see http://www.rubyforge.net/projects/rwdapplications
+
+require 'resolv'
+require 'date'
+
+# return the platform information
+def runviewplatform
+	@platformdisplay = "Platform is " + RUBY_PLATFORM + "\n"
+	@platformdisplay =  @platformdisplay + "Ruby Version " + VERSION + "\n" 
+	@platformdisplay  = @platformdisplay  + "rwdtinker version " + RwdTinkerVersion + "\n"
+	@platformdisplay = @platformdisplay + "program directory " + $progdir + "\n"
+	@platformdisplay = @platformdisplay  + "hostname " + Resolv.getname(Resolv.getaddress("localhost")) + "\n"
+	@platformdisplay = @platformdisplay  + "application name " +  $rwdapplicationidentity   + "\n"
+	@platformdisplay = @platformdisplay +  "Date " +      Date.today().to_s
+
+end
+

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

@@ -0,0 +1,61 @@
+# help text files used by context sensitive help  
+
+ Helptext.update( :tinkerwin2_help => "    You can view the list of applets you can install
+      by clicking on the list files button
+
+           You can download an applet created by someone else
+           
+      put the file in the zips directory
+      
+      rwdtinker applets packaged as RubyGems can be used if you have RubyGems installed.
+      You can download rwdtinker gems at the 'Install Remote Applets' tab
+      to install applets you need the ruby zlib library installed
+      ",
+     :applet_viewing   =>  "You can get a list of all installed applets by clicking the 'listfiles button'
+         To see the text of a install file
+       Type in the name of the file you want.
+      
+       type it without the inf ending
+       rwdapplet-0.1
+       
+       Then click the 'View Installed File' button
+       
+       If it finds the file it will open it. It displays the text the search box.
+
+      You can uninstall applets on this screen",
+      
+  :applet_installation  => " You can download an applet created by someone else\n
+      put the file in the zips directory\n
+      
+      click on the 'list zips' tab\n
+      click on 'list applets available for installing'\n
+      
+      chose the applet you want\n
+      click on 'install applet'\n
+      If all goes well the applet should be installed.\n
+      You will need to restart rwdtinker to see the new screens
+       to install applets you need the ruby zlib library installed",
+
+     :applet_tinkerbackeditconfiguration  => " You can edit the configuration
+  
+  Remember to reload the configuration variables if you want your
+  changes used.",
+  :remotegemapplet_install  => " To download and install use the 'Install Remote Applets'
+  
+  First click on 'List applets in the Remote GEM Repository available for downloading'
+  then go to the very bottom to click on the applet you want
+  then on the top click 'install remote Gem applet package'
+  
+  This installs the package in the Gem system
+  You still need to install it into rwdtinker - do that in the 'List Zips' tab
+  
+  For this feature to work, you need
+  RubyGems installed
+   Variables set correctly in the tinerwin2.cnf file
+      $xpcommand,  $gemdirectory_withgemfiles and  $geminstalled_directory
+    the defaults as shipped will normally be for a Debian Linux system  
+   On Debian Linux, you would usually need to be running rwdtinker as root in order to install RubyGems
+   
+   You can view the list of rwdtinker applets you have installed already by clicking 'view already installed GEM applets'
+ "
+)