rwdhypernote 0.03

data/code/superant.com.hypernote/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.hypernote/listhypernotelinks.rb

@@ -0,0 +1,52 @@
+# this code is to list the links
+
+def fillhypernotelinkname(inffile)
+  
+  @a_viewlinksnote  =  inffile
+end
+
+ def findnotelinkfiles(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 lnk files
+                  if x =~ /rb|lnk|lnk/
+                    puts "#{x}"        #opens the file thats in fileName as read only
+                   $noteslinksarray =  $noteslinksarray | ["#{x}"] 
+                  end
+               end
+          end
+  end
+  
+def rwdhypernotelistlinkdirs
+ $noteslinksarray = [""]
+ startlangdir = $rwdhypernote_directory
+ #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...
+                        findnotelinkfiles(x + "/**")
+                end
+        end
+         @notelinksrecordsresult = $noteslinksarray.rwd_method("fillhypernotelinkname")
+      end  

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

@@ -0,0 +1,55 @@
+# this code is to list the notes
+
+
+
+def fillhypernotename(inffile)
+  applet                = inffile.gsub(/\.txt$/, "")
+  @a_viewhypernote  = applet
+  
+end
+
+ def findnotefiles(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 txt files
+                  if x =~ /rb|txt|txt/
+                    puts "#{x}"        #opens the file thats in fileName as read only
+                   $notesarray =  $notesarray | ["#{x}"] 
+                  end
+               end
+          end
+  end
+  
+def listnotedirs
+ startlangdir = $rwdhypernote_directory
+ $notesarray = [""]
+ #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...
+                        findnotefiles(x + "/**")
+                end
+        end
+         @noterecordsresult = $notesarray.entries.sort.rwd_method("fillhypernotename")
+      end  

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

@@ -0,0 +1,33 @@
+# this code is to list the internal links
+
+
+def fillhypernotelinksname(inffile)
+  applet                = inffile.gsub(/\.txt$/, "")
+  @a_viewhypernote  = applet
+  
+end
+
+
+  
+def listlocalnotelinks
+ filenamestoopenarray = [" "]
+        if @a_viewhypernote
+        begin
+        fileName =@a_viewhypernote + ".lnk" 
+         
+        fd = File.open(fileName,"r")
+	                  while ! fd.eof?
+	        templinkline = fd.readline.chomp
+         filenamestoopenarray = filenamestoopenarray | ["#{templinkline}"]
+        end   
+           fd.close
+           @noterecordsresult = " "
+         @localnotelinksrecordsresult =  filenamestoopenarray .rwd_method("fillhypernotelinksname")
+      rescue
+      @localnotelinksrecordsresult = "error opening  #{fileName} file"
+      end # end of error function
+     
+      end
+     end 
+
+  

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

@@ -0,0 +1,34 @@
+   # this method puts the configuration rexord on the screen
+  def loadrwdscheduleconfiguration
+ 
+         require 'fileutils'
+          
+               @a_schconfigurationfilename = "rwdschedule.cnf" 
+        
+	      
+        begin # exception trapped block
+       
+       Dir.chdir($progdir)
+	      fileName = File.join(ConfigurationDir, "rwdschedule.cnf")
+        
+        
+	      fd = File.open(fileName,"r")
+	      @a_schconfigline1=        fd.readline.chomp
+	      @a_schconfigline2 =  fd.readline.chomp
+        @a_schconfigline3 = fd.readline.chomp
+          @a_schconfigline4 = fd.readline.chomp
+        @a_schconfigline5 = fd.readline.chomp
+         @a_schconfigline6 = fd.readline.chomp 
+          @a_schconfigline7 =fd.readline.chomp
+          @a_schconfigline8 = fd.readline.chomp
+           @a_schconfigline9 = fd.readline.chomp
+	 
+	      while ! fd.eof?
+	        @extraschconfigdatadisplay = fd.readline
+	      end
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

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

@@ -0,0 +1,13 @@
+   # this method loads the on screen variables into the running class
+   def loadrwdscheduleconfigurationvariables
+   
+   configfiletoload = File.join(ConfigurationDir,"rwdschedule.cnf")
+   begin
+    load configfiletoload
+    @extraschconfigdatadisplay = ""
+@newschconfigurationresult = "Config Variables loaded"
+rescue
+ @extraschconfigdatadisplay = ""
+ @newschconfigurationresult = "loading error"
+ end
+  end

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

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

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

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

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

@@ -0,0 +1,23 @@
+# this code is to call the help window
+def runhelpwindowrwdhypernote
+
+     $help_topic = "rwdhypernote_generalhelp"
+   if @rwd_tab == "superantcomeditnoterecordfile"
+     $help_topic = "rwdhypernote_generalhelp"
+   end
   
+   if @rwd_tab == "rwdhypernoteeditlinksrecordfile" 
+     $help_topic = "hypernotelinks_help"
+   end
+  
+   $helptopicsarray =  $helptopicsarray | ["rwdhypernote_help","hypernotelinks_help"]
+  
+   
+  
+ if @rwd_window != "rwdtinkerhelpwindow"
+       $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+  end
+  runhelpwindow
+end
+
+

data/code/superant.com.hypernote/returntomain.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 returntomainx
+   @rwd_window = "main"
+   @rwd_tab = "rwdscheduleselectiontab"
+   end   
+   

data/code/superant.com.hypernote/rwdhypernotehelpabout.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 runrwdhypernoteversion
+  @rwd_window = "applicationversion"
+  @versionappnamedisplay = "RwdHyperNote"
+  @versioncopyrightdisplay = "(c) 2004 Steven Gibson "
+  @versionnumberdisplay =  "Version " + RwdHyperNoteVersion
+
+   end
+  

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

@@ -0,0 +1,18 @@
+  # this method adds a new address record
+  def saverwdXconfiguration
+   require 'fileutils'
+   
+   newname = "rwdschedule.cnf" # grab the filename to create
+   newdata =@a_schconfigline1.to_s + "\n" + @a_schconfigline2.to_s + "\n" + @a_schconfigline3.to_s + "\n" + @a_schconfigline4.to_s + "\n" + @a_schconfigline5.to_s + "\n" + @a_schconfigline6.to_s + "\n" + @a_schconfigline7.to_s + "\n" + @a_schconfigline8.to_s + "\n" + @a_schconfigline9.to_s + "\n"
+	 
+        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.hypernote/savehypernoterecord.rb

@@ -0,0 +1,20 @@
+  # this method adds a new  record
+  def savehypernoterecord
+   require 'fileutils'
+    if ! @a_notedata.empty?
+   if ! @a_viewhypernote.empty?
+   fileName =   @a_viewhypernote.to_s + ".txt" # grab the new filename to create
+  
+	
+        begin # exception trapped block
+       
+        	fd = File.open(fileName,"w")
+	        fd.print(  @a_notedata) # 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.hypernote/savelinkrecord.rb

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

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

@@ -0,0 +1,21 @@
+  def viewrwdschedulesconfiguration 
+    require 'fileutils'
+    begin # exception trapped block
+    
+     Dir.chdir($progdir)
+     rwdschedulesconfigurationfile = File.join( "configuration", "rwdschedule.cnf" )
+     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/code/superant.com.rwdtinkerbackwindow/controlclient.rb

@@ -0,0 +1,99 @@
+# Bind message passing socket to rwdtinker application
+
+def runcontrolcommand
+require 'socket'
+
+# Change this line... 
+ ip =  '127.0.0.1' 
+# And this one...
+ port =  $rwdcontrolport1
+ if @a_remoteportinput
+ port = @a_remoteportinput.to_i
+ end
+
+    commandtext =  @a_remotecommandinput.to_s 
+   remotehostnotfound = true
+ if (commandtext == "stop")
+ begin
+ client = UDPSocket::new()
+ client.send(commandtext, 0, ip, port)
+		@socket = UDPSocket::new()
+		@socket.bind(ip, port)
+	 # Rescue the "Address in use" error
+	 rescue Errno::EADDRINUSE
+		   
+  databack, info = client.recv(128)
+  @remotecommandresult =  databack
+  @lastremotecommand =  "rwdtinker remote:: Port #{port} on host #{ip} ."
+  remotehostnotfound = false
+  
+	 # Rescue the "Address not available" error
+	 rescue Errno::EADDRNOTAVAIL
+		puts "Network plugin: Address #{host} is not available to bind."
+
+	 # Rescue "permission denied errors
+    rescue Errno::EACCES
+		puts "Network plugin: Access denied when binding interface addresses. Did you try to bind a port under 1024 as a regular user?"
+
+# Rescue all other errors
+	 rescue
+   puts "Network plugin: An error occured."
+		
+	 # Rescue all other errors
+	 end
+  if remotehostnotfound
+     @remotecommandresult =  "Remote Host not running"
+     end
+ @socket.close
+  # Close the socket after use
+ client.close()
+ end
+
+ remotehostnotfound = true
+ if (commandtext == "query") 
+ begin
+ client = UDPSocket::new()
+ client.send(commandtext, 0, ip, port)
+		@socket = UDPSocket::new()
+		@socket.bind(ip, port)
+	 # Rescue the "Address in use" error
+	 rescue Errno::EADDRINUSE
+		
+  databack, info = client.recv(128)
+  @remotecommandresult =  databack
+  @lastremotecommand = "rwdtinker remote: Port #{port} on host #{ip} "
+		remotehostnotfound = false
+    
+	 # Rescue the "Address not available' error
+	 rescue Errno::EADDRNOTAVAIL
+		puts "Network plugin: Address #{host} is not available to bind."
+		
+	 # Rescue "permission denied errors
+    rescue Errno::EACCES
+		puts "Network plugin: Access denied when binding interface addresses. Did you try to bind a port under 1024 as a regular user?"
+		
+	 # Rescue all other errors
+	 rescue
+   puts "Network plugin: An error occured."
+		
+	 # Rescue all other errors
+	 end
+@socket.close
+
+# Close the socket after use
+client.close()
+end
+
+ if remotehostnotfound
+     @remotecommandresult =  "Remote Host not running"
+ end
+end
+
+# list the remote control options on the screen
+def showremoteportoptions
+ 
+ @remoteportoptions = $rwdcontrolports.rwd_options
+  @remotecommandoptions = ["query","stop"].rwd_options
+ end
+
+