rwdgutenberg 0.03

data/Books/Sam2.gut

@@ -0,0 +1,2 @@
+Books/8sam810.txt
+#Samantha Among the Brethren

data/Readme.txt

@@ -0,0 +1,94 @@
+= rwdgutenberg - for rwdtinker and RubyWebDialogs
+
+rwdgutenberg is a bookreading program
+
+The GUI interface used is RubyWebDialogs 
+
+RubyWebDialogs is a platform independent graphical user interface for Ruby applications. It generates HTML and serves it with an internal HTTP server, so you can use your favorite web browser as the front end for your Ruby application. All this means, that it can be used on almost every platform, like Ruby itself. http://www.erikveen.dds.nl/rubywebdialogs/
+
+== Quick Start
+ Start the program by typing 
+ ruby init.rb
+
+ Then point your web browser to:
+ http://localhost:7705/
+ 
+To exit, press the x inside the browser window.
+
+== rwdgutenberg
+
+ This program is a book reader 
+ a book info can be entered and saved in a book directory
+ 
+ Bookdata can be saved in a file in the book directory
+ 
+ 
+== Tabs
+ 
+ There are tabs to enter bookdata and links and edit configurations
+ 
+ View/Edit Note - to create a bookdata or edit and existing bookdata
+ 
+ View/Edit Links - to edit links
+ 
+ Note Utilities - to rename or delete bookdata
+ 
+ Edit Configuration - to change the configuration of rwdgutenberg
+ 
+        
+== Using over a Network
+  
+To serve the application over your local LAN,change the last line in the
+init.rb file to something like:
+RwdTinker.file(RWDFile).serve(8080, "-r" ? ".rwduids" : nil)
+Then you should be able to login at: http://yourhostname:8080
+
+You have to authorize yourself. The .rwuids example is a string with
+the name of the authorization file, relative to the home directory
+of the user that started the service. This file has to be in the form of:
+
+user1 = password
+user2 = pass phrase
+
+Thus the file .rwduids might contain:
+
+erik = secret
+
+== Requirements:
+RubyWebDialogs - I am using 0.0.12 
+Ruby I am using version 1.8.2
+
+
+I have tested this under Linux-Debian kernel 2.6.9
+
+== PROBLEMS:
+
+Closing the browser doesn't terminate the application. You have to use the application's close-button  And terminating the application doesn't terminate the application when running in network mode. You just log out.
+
+Don't use the back-button of the browser! Strange and unpredictable things may and will happen!
+
+
+== contacts
+  For more information see:
+ http://rwdapplications.rubyforge.org/wiki/wiki.pl
+
+
+ For more information about RubyWebDialogs see:
+ http://www.erikveen.dds.nl/rubywebdialogs/index.html
+
+
+Steven Gibson
+steven@superant.com
+
+== Changelog 
+version 0.03
+ edit data doc
+ delete file, rename file
+ 
+version 0.02
+ search directories
+ create new data files
+
+version 0.01
+ First Release
+ 

data/bin/rwdgutenberg

@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+#--
+# Copyright 2004 Steven Gibson <steven@superant.com>
+#   RwdTinker application
+#
+# This program is free software. It may be redistributed and/or modified under
+# the terms of the GPL version 2 (or later), or the
+# Ruby licence.
+# 
+#++
+
+
+$progdir = File::expand_path( File.dirname(__FILE__))
+
+Dir.chdir($progdir)
+
+Dir.chdir("..")
+
+`ruby init.rb` 

data/code/01rwdcore/01rwdcore.rb

@@ -0,0 +1,20 @@
+# 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
+# This class is the top class for the RwdTinker application 
+ 
+class RwdTinker  < RWDialog
+ 
+  def main
+  @rwd_window = "main"
+    @result = "idle"
+    @display= "idle"
+
+    
+  end
+  
+  def inspect
+   "Rwdtinker Application " 
+   end
+  

data/code/01rwdcore/02helptexthashbegin.rb

@@ -0,0 +1,4 @@
+  
+
+ Helptext = Hash.new { |hh, kk| hh[kk] = "ERROR: Identificador de mensaje desconocido: #{kk.inspect}."; hh[kk] }
+    helpmessage = {

data/code/01rwdcore/03helptexthash.rb

@@ -0,0 +1,31 @@
+ # Help files for RwdTinker core
+
+   
+      :general_help          => "You can work with Applets:  go to 'Selection tab', 
+                                  On that back screen you will find:
+                                  List Applets:  you can see and delete installed applets
+                                  List Zips: you can see lists of applets that you can install
+                                  Edit Configuration: You can view the rwdtinker configuration and change it
+                                  Diagnostic Tab: You can view the environments variables that rwdtinker is running with
+      ",
+      :network_help  => "Using over a Network: To serve the application over your local LAN,change the last line in the
+init.rb file to something like:\n
+RwdTinker.file(RWDFile).serve(8080, '-r' ? '.rwduids' : nil)\n
+Then you should be able to login at: http://yourhostname:8080",
+
+          
+  :documents_rwdtinker => "Documents:
+  
+  
+  when you click on a document name, the document should pop up in a 
+  browser window, or in another browser tab.",
+  :remote_control => "Remote control gives you a way to determine what applications are running on which ports
+  
+  The name of the application is set in the config file
+  You need to click the show remote command choices first - this will show the port and query choices
+   Then you can click in 'Run Command' to see if other applications are running.
+   
+   The remote ports daemon will not be running unless you start it.
+   
+  "
+      

data/code/01rwdcore/04helptextend.rb

@@ -0,0 +1,6 @@
+
+    }
+    helpmessage.each { |kk, vv| Helptext[kk] = vv }
+  
+
+

data/code/01rwdcore/openhelpwindow.rb

@@ -0,0 +1,31 @@
+# this code is to call the help window
+def runhelpwindow
+  $helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing","applet_tinkerbackeditconfiguration","remote_control"]
+  
+ if @rwd_window == "main"
+   if @rwd_tab == "documentsrwdtinkerone"
+     $help_topic = "documents_rwdtinker"
+   end
+ 
+end
+ 
+   if @rwd_window == "rwdtinkerhelpwindow"
+   puts "in help window processing"
+  else
+   $previouswindow = @rwd_window
+   $previoustab = @rwd_tab
+   end
+    
+   
+  @rwdhelptopic = $help_topic
+  @rwdhelpdataoutput      = "#{Helptext[:"#{$help_topic}"]}"
+  @rwdhelpsubchoicesoutput = $helptopicsarray.rwd_method("choosenewhelptopic")
+  @rwd_window = "rwdtinkerhelpwindow"
+end
+ 
+ def choosenewhelptopic(inffile)
+  $help_topic                 = inffile
+  runhelpwindow
+  end
+
+

data/code/01rwdcore/returntomain.rb

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

data/code/01rwdcore/rwdtinkerversion.rb

@@ -0,0 +1,15 @@
+# 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 runrwdtinkerversion
+  @rwd_window = "applicationversion"
+  @versionappnamedisplay = "RwdTinker"
+  @versioncopyrightdisplay = "(c) 2004 Steven Gibson "
+  @versionnumberdisplay =  "Version " + RwdTinkerVersion
+
+   end
+  
+  

data/code/01rwdcore/rwdwindowreturn.rb

@@ -0,0 +1,11 @@
+# this code is to return to the window back from the help window
+def rwdwindowreturn
+ 
+
+   @rwd_window = "#{$previouswindow}"
+   @rwd_tab = "#{$previoustab}"
+   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/superant.com.gutenberg/changegutenbergname.rb

@@ -0,0 +1,16 @@
+ # this code is to change the note name
+ def changegutenbergdata
+  if ! @a_changegutenbergdata.empty? 
+   if ! @a_viewgutenberg.empty? 
+   oldName =  @a_viewgutenberg + ".gut"
+  
+    
+     newName =  @a_changehypernotedata + ".gut"
+      if  File.exist?(oldName)
+         File.rename(oldName, newName)
+     end
+     end
+   end    
+  end
+
+

data/code/superant.com.gutenberg/clearbookscreendisplay.rb

@@ -0,0 +1,8 @@
+   # this method clears the on screen variables
+   def clearbookscreendisplay
+ 
+        @a_viewgutenberg = ""
+      @a_gutenbergdata = ""
+      
+
+  end

data/code/superant.com.gutenberg/copyfilename.rb

@@ -0,0 +1,24 @@
+ # this code is to reproduce the note name
+ def copygutenbergfilename
+ 
+   
+   if ! @a_viewgutenberg.empty? 
+   
+     sourcefile =  $rwdgutenberg_directory + "/" + @a_viewgutenberg + ".gut"
+     begin  
+     if File.exist?(sourcefile)
+      if ! @a_changegutenbergdata.empty? 
+       distfile = $rwdgutenberg_directory + "/" + @a_changegutenbergdata + ".gut"
+       File.copy(sourcefile,distfile)
+       @gutenbergfilechangeresult = "#{@a_changegutenbergdata} Created"
+       else
+        @gutenbergfilechangeresult = "need distination filename"
+       end
+     end
+     rescue
+      @gutenbergfilechangeresult = "Copy Error"
+     end
+   end     
+  end
+
+

data/code/superant.com.gutenberg/createnewnote.rb

@@ -0,0 +1,23 @@
+#
+  def rwdgutenbergcreatebookrecord
+    if  @a_gutenbergdata.empty?
+      newnotecontent =  'new note'
+    else
+      newnotecontent = @a_gutenbergdata.to_s
+    end
+    if  @a_viewgutenberg.empty?
+      newnotefilename = $rwdgutenberg_directory + "/" + "newnote.gut"
+    else
+      newnotefilename = $rwdgutenberg_directory + "/" + @a_viewgutenberg.to_s + ".gut"
+    end
+      begin # exception trapped block
+       
+        	fd = File.open(newnotefilename,"w")
+	        fd.print(  newnotecontent) # save the record info to the file
+	        fd.close
+      
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end
+    
+   end

data/code/superant.com.gutenberg/deletegutenbergrecord.rb

@@ -0,0 +1,21 @@
+   # this method deletes a record
+  def deletegutenbergrecord
+ 
+    require 'fileutils'
+    if ! @a_viewgutenberg.empty? 
+    fileName = $rwdgutenberg_directory + "/" + @a_viewgutenberg + ".gut"
+    
+    begin # exception trapped block
+        if  File.exist?(fileName)
+          File.delete(fileName)
+       
+        end
+        
+        #gutenbergrecordsresult = ""
+        
+    @gutenbergfilechangeresult = "File Deleted!"
+     rescue 
+         @gutenbergfilechangeresult = "File Deletion error"
+    end # exception rescue
+   end
+  end 

data/code/superant.com.gutenberg/gutenbergcreatefile.rb

@@ -0,0 +1,9 @@
+# create new gutenberg data file
+ def gutenbergcreatefile
+
+   filelocation = $rwdgutenberg_directory + "/" +@a_newgutenbergdata + ".gut"
+   p filelocation
+   fileB=File.open(filelocation,"w")        #deletes and opens a the file in fileName
+   fileB.write(@a_newfilegutenberg)                     #writes the contents of doc into the file
+   fileB.close 
+   end

data/code/superant.com.gutenberg/helptexthashrwdgutenberg.rb

@@ -0,0 +1,41 @@
+  
+
+ Helptext.update( :rwdgutenberg_generalhelp => "This program is a text file reader
+      
+ links to a text file can be saved in the Books directory
+ 
+ There are tabs to enter notes and links and edit configurations
+ 
+ 'View/Edit Booklist' - to create or edit a file
+ 
+ 'Booklist Utilities' - to rename or delete files
+ 
+ 'Edit Configuration' - to change the configuration of rwdgutenberg
+ 
+       .",
+ :gutenbergedit_help => "You can create or edit booklists
+   click the bottom button 'list Booklists' to see a lists 
+   of the notes you already have.
+   'save changes' to save your edits
+   'clear' to clear the screen
+   'Create New List' to start a new booklist
+  After creating a new note, you must list below to find it
+  and select it, or it will NOT be SAVED",
+  :gutenbergutility_help => "You can change the file
+   rename
+   delete
+   copy name
+   ",
+  
+ 
+       
+       :rwdgutenberg_configuration => " click on 'Edit Configuration'
+ You can view the configuration file
+ 
+  You can edit the configuration
+  
+  Remember to reload the configuration variables if you want your
+  changes used.
+  "
+  
+)