rwdhypernote 0.15 → 0.16

data/code/superant.com.dialogmap/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 rwddialogmaphelpaboutsetup
+return ["RwdDialogMap","(c) 2005-2008 Steven Gibson ","Version #{RwdDialogMapVersion}"]
+end
+
+

data/code/superant.com.dialogmap/saveconfigurationrecord.rb

@@ -0,0 +1,20 @@
+  # this method adds a new address record
+  def saverwddialogconfiguration
+   require 'fileutils'
+
+   
+   newname = "rwdwdialogmap.cnf" # grab the filename to create
+   newdata = @a_diaconfigurationfile
+   
+	  
+        begin # exception trapped block
+          fileName = File.join( ConfigurationDir, newname )
+        	fd = File.open(fileName,"w")
+	        fd.print(newdata) # save the record info to the file
+	        fd.close
+          @newconfigurationresult=newdata # show the record info in the browser
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+    
+  end

data/code/superant.com.dialogmap/savelinkrecord.rb

@@ -0,0 +1,23 @@
+  # this method adds a new  record
+  def dialogmapsavelinkrecord
+   require 'fileutils'
+    if ! @a_dialogmapdatahtml.empty?
+   if ! @a_viewdialogmaphtml.empty?
+   fileName = "%s" %   [@a_viewdialogmaphtml] # grab the new filename to create
+  
+	
+        begin # exception trapped block
+       
+        	fd = File.open(fileName,"w")
+	        fd.print(  @a_dialogmapdatahtml) # save the record info to the file
+	        fd.close
+   if $DEBUG   
+    p fileName
+   end
+      
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+    end
+    end
+  end

data/code/superant.com.dialogmap/viewdialogmaphtml3.rb

@@ -0,0 +1,66 @@
+# this code is to list the notes
+
+
+def viewdialog3a
+	if $temp_rwddialogmap_directory == nil
+                     startdir = $rwddialogmap_directory
+        else
+                   startdir = $temp_rwddialogmap_directory 
+       end
+          @dialog_directory3 = startdir
+         fileName =  File.join(startdir, @a_dialoginput3a)
+        @doeslinkexistA = "active"
+	@doeslinkexistB = "hidden"
+	@doeslinkexistC = "hidden"
+	begin
+	      fd = File.open(fileName,"r")
+	 @a_dialogdata3 =        fd.read
+	 rescue
+	        if $DEBUG
+		    $stderr.puts "file error in viewdialog3a"
+		 end
+	end
+end
+ 
+def viewdialog3b
+	if $temp_rwddialogmap_directory == nil
+                     startdir = $rwddialogmap_directory
+        else
+                   startdir = $temp_rwddialogmap_directory   
+       end
+          @dialog_directory3 = startdir
+         fileName =  File.join(startdir, @a_dialoginput3b)
+        @doeslinkexistA = "hidden"
+	@doeslinkexistB = "active"
+	@doeslinkexistC = "hidden"
+	begin
+	      fd = File.open(fileName,"r")
+	 @a_dialogdata3 =        fd.read
+	 rescue
+	        if $DEBUG
+		    $stderr.puts "file error in viewdialog3a"
+		 end
+	 end
+ end
+
+ 
+ def viewdialog3c
+	if $temp_rwddialogmap_directory == nil
+                     startdir =  $rwddialogmap_directory
+        else
+		startdir = $temp_rwddialogmap_directory 
+       end
+          @dialog_directory3 = startdir
+         fileName =  File.join(startdir, @a_dialoginput3c)
+        @doeslinkexistC = "active"
+	@doeslinkexistA = "hidden"
+	@doeslinkexistB = "hidden"
+	begin
+	      fd = File.open(fileName,"r")
+	 @a_dialogdata3 =        fd.read
+	 rescue
+	        if $DEBUG
+		    $stderr.puts "file error in viewdialog3c"
+		 end
+	 end
+ end

data/code/superant.com.dialogmap/xmlprettyprint.rb

@@ -0,0 +1,65 @@
+  #pritty print xml
+  require 'rexml/document'
+ 
+     
+def pretty_print2(parent_node, itab)
+         buffer = ''
+    
+        parent_node.elements.each do |node|
+    
+          buffer += ' ' * itab + "<#{node.name}#{get_att_list(node)}"
+      
+          if node.to_a.length > 0
+            buffer += ">"
+            if node.text.nil?
+              buffer += "\n"
+            buffer += pretty_print(node,itab+2) 
+            buffer += ' ' * itab + "</#{node.name}>\n"
+            else
+              node_text = node.text.strip
+              if node_text != ''
+                buffer += node_text 
+                buffer += "</#{node.name}>\n"        
+              else
+                buffer += "\n" + pretty_print(node,itab+2) 
+                buffer += ' ' * itab + "</#{node.name}>\n"        
+              end
+            end
+          else
+            buffer += "/>\n"
+          end
+          
+        end
+      buffer
+end
+    
+      def get_att_list2(node)
+        att_list = ''
+        node.attributes.each { |attribute, val| att_list += " #{attribute}='#{val}'" }
+        att_list
+      end
+      
+      def pretty_xml2(doc)
+        buffer = ''
+        xml_declaration = doc.to_s.match('<\?.*\?>').to_s
+        buffer += "#{xml_declaration}\n" if not xml_declaration.nil?
+        xml_doctype = doc.to_s.match('<\!.*\">').to_s
+        buffer += "#{xml_doctype}\n" if not xml_doctype.nil?
+        buffer += "<#{doc.root.name}#{get_att_list2(doc.root)}"
+        if doc.root.to_a.length > 0
+          buffer +=">\n#{pretty_print2(doc.root,2)}</#{doc.root.name}>"
+        else
+        buffer += "/>\n"
+end
+return buffer
+      end
+ 
+ def loadxmlrecord2
+	 if File.exist?(@a_viewdialogxml2.to_s.strip)
+                       xml_data = File.new(@a_viewdialogxml2.to_s.strip)
+                      doc = REXML::Document.new xml_data
+                          @xmlfileresult2 = pretty_xml2(doc)
+        else
+	    @xmlfileresult2 =" #{@a_viewdialogxml2.to_s.strip} not found"
+	end
+end

data/code/superant.com.dialogmap/xmlprettyprint2.rb

@@ -0,0 +1,74 @@
+  #pritty print xml
+  require 'rexml/document'
+ 
+     
+       def pretty_print(parent_node, itab)
+         buffer = ''
+    
+        parent_node.elements.each do |node|
+    
+         # buffer += '-' * itab + "<#{node.name}#{get_att_list(node)}"
+      buffer += '-' * itab + "#{get_att_list(node)}"
+          if node.to_a.length > 0
+            buffer += ""
+            if ! node.text.nil?
+           #   buffer += "\n"
+            #buffer += pretty_print(node,itab+2) 
+            #buffer += '-' * itab + "--#{node.name}\n"
+            #else
+              node_text = node.text.strip
+              if node_text != ''
+                buffer += node_text 
+                buffer += "--#{node.name}\n"        
+              else
+                buffer += "\n" + pretty_print(node,itab+2) 
+		buffer  += "\n"
+              #  buffer += '-' * itab + "--#{node.name}\n"        
+              end
+            end
+          else
+            buffer += "\n"
+          end
+          
+        end
+      buffer
+      end
+    
+      def get_att_list(node)
+        att_list = ''
+        node.attributes.each { |attribute, val| 	
+	if attribute == "TEXT"
+	att_list += "#{val}" 
+	end
+	}
+       
+	att_list 
+      end
+      
+      def pretty_xml(doc)
+        buffer = ''
+        xml_declaration = doc.to_s.match('<\?.*\?>').to_s
+        buffer += "#{xml_declaration}\n" if not xml_declaration.nil?
+       
+        xml_doctype = doc.to_s.match('<\!.*\">').to_s
+        buffer += "#{xml_doctype}\n" if not xml_doctype.nil?
+        
+        buffer += "<#{doc.root.name}#{get_att_list(doc.root)}"
+	
+        if doc.root.to_a.length > 0
+          buffer +=">\n#{pretty_print(doc.root,2)}"
+        else
+        buffer += "\n"
+end
+return buffer
+      end
+    
+def loadxmlrecord
+	if File.exist?(@a_viewdialogxml.to_s.strip)
+                xml_data = File.new(@a_viewdialogxml.to_s.strip)
+              doc = REXML::Document.new xml_data
+             @xmlfileresult = pretty_xml(doc)
+        else
+	    @xmlfileresult =" #{@a_viewdialogxml.to_s.strip} not found"
+	end
+  end

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

@@ -10,5 +10,15 @@ Helptext.delete_if {|key, value| key == :rwdhypernote_sync  }
 Helptext.delete_if {|key, value| key == :rwdhypernote_configuration }
 $rwdjumplink.delete_if {|x| x == "RwdHypernote"}
 $rwdjumplink.delete_if {|x| x == "RwdHypernoteTXT"}
+Helptext.delete_if {|key, value| key == :rwddialogmap_generalhelp}
+Helptext.delete_if {|key, value| key == :rwddialogmap_configuration }
+Helptext.delete_if {|key, value| key == :dialogmapedit_help }
+Helptext.delete_if {|key, value| key == :dialogmapxml_help  }
+$rwdjumplink.delete_if {|x| x == "RwdDialogMap"}
+  if DeleteHyperNoteConfig
 
+                 fileName =  File.join("configuration","rwdwhypernote.cnf")
+                 File.delete(fileName)
+    end
+    return true
 end

data/code/superant.com.hypernote/helptexthashload.rb

@@ -0,0 +1,21 @@
+     # this code loads the help text
+
+                  
+               tmphelpfilename = "rwdhypernotehelpfiles.txt" 
+               tmphelpdir = "rwd_files"
+	      
+        begin # exception trapped block
+       
+       
+	      fileName = File.join(tmphelpdir ,tmphelpfilename )
+        
+        
+	      fd = File.open(fileName,"r")
+	      tmphelptext =        fd.read
+             fd.close
+	     eval  tmphelptext
+        rescue SystemCallError, StandardError
+	    $rwdtinkerlog.error  "dialogmap help file load: system call error: "
+        end # exception rescue
+
+  

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

@@ -20,6 +20,35 @@ def runhelpwindowrwdhypernote
   if @rwd_tab == "viewrwdhypernoteconfiguration"
   $help_topic = "rwdhypernote_configuration"
   end
+  
+ if @rwd_tab == "superantcomdialog01"
+    $help_topic = "rwddialogmap_generalhelp"
+    end
+  
+     
+   if @rwd_tab == "superantcomeditnoterecordfile"
+        $help_topic = "dialogmapedit_help"
+   end
+   
+   if @rwd_tab == "superantcomxmlfile" 
+      
+    $help_topic = "dialogmapxml_help"
+   end
+   
+    if @rwd_tab == "superantcommmfile" 
+      
+    $help_topic = "dialogmapxml_help"
+   end 
+   
+  
+   
+  if @rwd_tab == "viewrwddialogconfiguration"
+  $help_topic = "rwddialogmap_configuration"
+  end
+  
+   $helptopicsarray =  $helptopicsarray | ["rwddialogmap_configuration","dialogmapedit_help","rwddialogmap_generalhelp"]
+  
+   
    $helptopicsarray =  $helptopicsarray | ["hypernoteedit_help","rwdhypernote_help","hypernotelinks_help","rwdhypernote_configuration"]
   
    

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

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/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/zz0applicationend/zz0end.rb

@@ -1,4 +1,5 @@
-
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL.
+# end of rwdtinker class
 
 end # end of rwdtinker class
 	

data/configuration/rwdtinker.dist

@@ -1,4 +1,4 @@
-##VERSION: (1.82)
+##VERSION: (1.83)
 ConfigurationDir = "configuration" # for use in program - init.rb has this value without using this constant
 CodeName = "rwdtinker"
 CodeNameFile = CodeName + ".rb"
@@ -10,6 +10,6 @@ LangDir = "lang"
     $prevouswindow ="main" 
    $rwdcontrolports =["13713","13714","13715","13716"]   # remote control code not actived 2007
  $port = 7705
-##NAME: (RwdTinkerVersion):(1.82)
-RwdTinkerVersion = "1.82"
+##NAME: (RwdTinkerVersion):(1.83)
+RwdTinkerVersion = "1.83"
 

data/configuration/rwdwhypernote.dist

@@ -1,10 +1,16 @@
-##VERSION: (0.15)
-##NAME: ($rwdhypernote_directory):(0.15)
+##VERSION: (0.16)
+##NAME: ($rwdhypernote_directory):(0.16)
 $rwdhypernote_directory = "rwd_files/Notes"
-##NAME: ($notesarray):(0.15)
+##NAME: ($notesarray):(0.16)
 $notesarray = ["rwd_files/Notes/changes.txt"]
-##NAME: ($noteslinksarray):(0.15)
+##NAME: ($noteslinksarray):(0.16)
 $noteslinksarray = ["rwd_files/Notes/changes.lnk"]
+##NAME: ($rwddialogmap_directory):(0.16)
+$rwddialogmap_directory = "rwd_files"
+##NAME: ($dialogmapbrowser):(0.16)
+$dialogmapbrowser = "firefox"
+##NAME: ($dialogchoicepull):(0.16)
+$dialogchoicepull = ["default.dlg"]
 $rwdhypernote_ftpsite = "ftp.mysite.com"
 $rwdhypernote_ftplogin = "mylogin"
 $rwdhypernote_ftppassword = "mypassword"
@@ -13,8 +19,12 @@ $rwdhypernote_updatedirectory = "updates"
 $testharnessarray += ["rwdhypernote_all_tests"]
 $tinkerhelpaboutarray += ["RwdHypernote"] 
 $tinkerdocumentsarray += ["HowTo_HyperNote.txt"]
-JumpLink.update(:RwdHypernoteTXT=>"runrwdhypernotetxtwindow", :RwdHypernote=>"runrwdhypernotemain")
-$rwdjumplink +=["RwdHypernote","RwdHypernoteTXT"]
-##NAME: (RwdHyperNoteVersion):(0.15)
-RwdHyperNoteVersion = "0.15"
+##NAME: (JumpLink):(0.16)
+JumpLink.update(:RwdHypernoteTXT=>"runrwdhypernotetxtwindow", :RwdHypernote=>"runrwdhypernotemain",:RwdDialogMap=>"runrwddialogmapmain")
+##NAME: ($rwdjumplink):(0.16)
+$rwdjumplink +=["RwdHypernote","RwdHypernoteTXT","RwdDialogMap"]
+##NAME: (DeleteHyperNoteConfig):(0.16)
+DeleteHyperNoteConfig = true
+##NAME: (RwdHyperNoteVersion):(0.16)
+RwdHyperNoteVersion = "0.16"