rwdmovies 0.7 → 0.90

data/Readme.txt

@@ -47,9 +47,19 @@ steven@superant.com
 
 http://rwdapplications.rubyforge.org/wiki/wiki.pl
 
-== Changelog
+== Changelog
+version 0.9 
+ added back Amazon search
+ changed width of text fields 
+ updated for rwdtinker version 1.50 - remote control and finding free ports
+
+version 0.8
+  added return from picture window
+  added features to configuration screen
+  added context sensitive help
+
 version 0.7
- updated for rwdtinker version 1.44
+ updated for rwdtinker 1.44
 
 version 0.6
  updated for rwdtinker version 1.4

data/bin/rwdmovies

@@ -1,19 +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("..")
-
+#!/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/{ag1core/aa0begin.rb → 01rwdcore/01rwdcore.rb}

@@ -10,6 +10,8 @@ class RwdTinker  < RWDialog
   @rwd_window = "main"
     @result = "idle"
     @display= "idle"
+
+    
   end
   
   def inspect

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/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/superant.com.rwdmovies/amazonsearch.rb

@@ -0,0 +1,19 @@
+
+
+require 'amazon/search'
+
+include Amazon::Search
+def runmoviesearch
+
+req = Request.new(DEV_TOKEN)
+testmovie = @a_moviefilename
+s =   ['keyword_search', "#{testmovie}", 'video', LITE, 'Name']
+
+
+s.pop
+  
+  # parse and display the results of each search
+  response = req.send(*s) { |prod| @moviesearchdisplay = prod, '' }
+ # printf("Arguments returned from search were:\n\n%s\n", response.args.inspect)
+
+end

data/code/superant.com.rwdmovies/helptexthashrwdmovies.rb

@@ -0,0 +1,24 @@
+  
+
+ Helptext.update( :rwdmovies_help => "     Use the 'View Movies' tab
+        rwdmovies is meant to be used to keep track of your DVD and VHS collection.
+      
+      You use the 'Edit Movie' tab for creating or editing an already saved movie record",
+      :rwdmovies_generalhelp => "
+       Click on the 'View Movies'  tab to view movies.
+      
+       rwdmovies is meant to be used to keep track of your DVD and VHS collection.
+       
+       You can add movies and a poster for each movie.",
+       :rwdmovies_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."
+
+       
+      
+
+)

data/code/{eo1rwdmovies → superant.com.rwdmovies}/listmoviefiles.rb

@@ -1,7 +1,11 @@
 # this code is to list the movie names
-def listmovierecordfiles
+def listmovierecordfiles
+ begin
   fileList      = Dir.new($rwdmovies_directory).entries.sort.delete_if { |x| ! (x =~ /nam$/) }
   @moviefilelistresult  = fileList.rwd_method("fillrwdmovierecordname")
+  rescue
+   @moviefilelistresult = "file error"
+   end
 end
  
 def fillrwdmovierecordname(inffile)

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

@@ -0,0 +1,34 @@
+   # this method puts the configuration rexord on the screen
+  def loadrwdmoviesconfiguration
+ 
+         require 'fileutils'
+          
+               @a_movconfigurationfilename = "rwdmovies.cnf" 
+        
+	      
+        begin # exception trapped block
+       
+       Dir.chdir($progdir)
+	      fileName = File.join(ConfigurationDir, "rwdmovies.cnf")
+        
+        
+	      fd = File.open(fileName,"r")
+	      @a_movconfigline1=        fd.readline.chomp
+	      @a_movconfigline2 =  fd.readline.chomp
+        @a_movconfigline3 = fd.readline.chomp
+          @a_movconfigline4 = fd.readline.chomp
+        @a_movconfigline5 = fd.readline.chomp
+         @a_movconfigline6 = fd.readline.chomp 
+          @a_movconfigline7 =fd.readline.chomp
+          @a_movconfigline8 = fd.readline.chomp
+           @a_movconfigline9 = fd.readline.chomp
+	 
+	      while ! fd.eof?
+	        @extramovconfigdatadisplay = fd.readline
+	      end
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

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

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

data/code/superant.com.rwdmovies/openhelpwindowrwdmovies.rb

@@ -0,0 +1,22 @@
+# this code is to call the help window
+def runhelpwindowrwdmovies
+
+     $help_topic = "rwdmovies_generalhelp"
+   if @rwd_tab == "viewnamedata"
+     $help_topic = "rwdmovies_help"
+   end
+    if @rwd_tab == "viewrwdmoviesconfiguration"
+    $help_topic = "rwdmovies_configuration"
+    end
+   $helptopicsarray =  $helptopicsarray | ["rwdmovies_configuration","rwdmovies_generalhelp","rwdmovies_help"]
+  
+   
+  
+ if @rwd_window != "rwdtinkerhelpwindow"
+       $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+  end
+  runhelpwindow
+end
+
+

data/code/{eo1rwdmovies → superant.com.rwdmovies}/openmoviedata.rb

@@ -1,7 +1,7 @@
   def openmoviedata
    require 'fileutils'
    
-    $currentmovietext = "%s" % [@a_moviedisplay]
+    $currentmovietext = "%s" % [@a_moviefilename]
 	 photoname = $currentmovietext + ".jpg"
         begin # exception trapped block
         path_to = File.join( "rwd_files", "moviestmp.jpg" )

data/code/superant.com.rwdmovies/returntomain.rb

@@ -0,0 +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
+  
+  # return to main 
+  def returntomain
+   @rwd_window = "main"
+   @rwd_tab="selectiontab"
+   end   
+   

data/code/superant.com.rwdmovies/runrwdmoviesbackwindow.rb

@@ -0,0 +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 runrwdmoviesbackwindow
+   @rwd_window = "rwdmovieswindow"
+   @rwd_tab= "viewrwdmovielist"
+   end   
+   

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

@@ -0,0 +1,18 @@
+  # this method adds a new address record
+  def saverwdmoviesconfiguration
+   require 'fileutils'
+   
+   newname = "rwdmovies.cnf" # grab the filename to create
+   newdata =@a_movconfigline1.to_s + "\n" + @a_movconfigline2.to_s + "\n" + @a_movconfigline3.to_s + "\n" + @a_movconfigline4.to_s + "\n" + @a_movconfigline5.to_s + "\n" + @a_movconfigline6.to_s + "\n" + @a_movconfigline7.to_s + "\n" + @a_movconfigline8.to_s + "\n" + @a_movconfigline9.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
+          @newmovconfigurationresult=newdata # show the record info in the browser
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+    
+  end

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

@@ -0,0 +1,100 @@
+#
+
+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
+# Done!
+
+ 
+    commandtext =  @a_remotecommandinput.to_s 
+  
+ remotehostnotfound = true
+
+client = UDPSocket::new()
+client.send(commandtext, 0, ip, port)
+
+
+if (commandtext == "stop")
+begin
+		@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
+end
+
+remotehostnotfound = true
+if (commandtext == "query")
+begin
+		@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
+end
+  if remotehostnotfound
+     @remotecommandresult =  "Remote Host not running"
+     end
+# Close the socket after use
+client.close()
+
+end
+
+def showremoteportoptions
+ 
+ @remoteportoptions = $rwdcontrolports.rwd_options
+  @remotecommandoptions = ["query","stop"].rwd_options
+ end
+
+

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

@@ -0,0 +1,37 @@
+  
+
+ 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",
+     :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",
+     :applet_tinkerbackeditconfiguration  => " You can edit the configuration
+  
+  Remember to reload the configuration variables if you want your
+  changes used."
+
+)

data/code/{xb1rwdtinkerbackwindow → superant.com.rwdtinkerbackwindow}/installapplet.rb

@@ -1,21 +1,21 @@
   def installapplet
    require 'fileutils'
+   require 'extras/zip/zip'
     nametext = "%s" % [@a_installapplet]
 	 
         begin # exception trapped block
    	 fullname =  nametext + ".zip"
      fileName = File.join($zipslocation,fullname)
-  	
-	        commandline = $unzipprogram + fileName
-         system( commandline+' > temp.output' )
-        
-    
-      
-    system(commandline)
+
+  zf = Zip::ZipFile.new(fileName)
+ zf.sort.each {
+  |entry|
+      zf.extract(entry.to_s, entry.to_s)
+                     }
    @installapplettext = Message[:applet_installed]  
    
        rescue
-            @installapplettext = "Done! - Check applet list - restart rwd to activate the new applet"
+            @installapplettext = "unzip error - applet may not be installed correctly"
         end # exception rescue
 
   end

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

@@ -0,0 +1,21 @@
+  def installgemapplet
+   require 'fileutils'
+   require 'extras/zip/zip'
+    nametext = "%s" % [@a_installapplet]
+	 
+        begin # exception trapped block
+   	 fullname =  nametext + ".zip"
+     
+
+  zf = Zip::ZipFile.new(fullname)
+ zf.sort.each {
+  |entry|
+      zf.extract(entry.to_s, entry.to_s)
+                     }
+   @installapplettext = Message[:applet_installed]  
+   
+       rescue
+            @installapplettext = "unzip error - applet may not be installed correctly"
+        end # exception rescue
+
+  end

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

@@ -0,0 +1,54 @@
+# this code is to list the zips
+
+
+def fillhypernotename(inffile)
+  applet                = inffile.gsub(/\.zip$/, "")
+  @a_installapplet = applet
+  
+end
+
+ def findzipfiles(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 zip files
+                  if x =~ /\.zip/
+                    puts "#{x}"        #opens the file thats in fileName as read only
+                   $zipsarray =  $zipsarray | ["#{x}"] 
+                  end
+               end
+          end
+  end
+  
+def listgemzips
+ startlangdir = $geminstalled_directory
+ #get a list of the files and subdirectories on the starting directory only
+        alanghash = Array.new(Dir[startlangdir].entries.sort)
+        p alanghash
+        #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...
+                        findzipfiles(x + "/**")
+                end
+        end
+         @zipslistresult = $zipsarray.rwd_method("fillhypernotename")
+      end  

data/code/{xb1rwdtinkerbackwindow → superant.com.rwdtinkerbackwindow}/loadconfigurationrecord.rb

@@ -1,4 +1,4 @@
-   # this method views an existing address record
+   # this method puts the configuration rexord on the screen
   def loadconfigurationrecord
  
          require 'fileutils'

data/code/{xb1rwdtinkerbackwindow → superant.com.rwdtinkerbackwindow}/loadconfigurationvariables.rb

@@ -1,4 +1,4 @@
-   # this method clears the on screen variables
+   # this method loads the on screen variables into the running class
    def loadconfigurationvariables
    
    configfiletoload = File.join(ConfigurationDir,TinkerWin2ConfigurationFileName)