rwdmovies 0.6

data/Readme.txt

@@ -0,0 +1,57 @@
+rwdapplications are web brower applications
+
+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/
+
+
+Start the program by:
+changing to the directory and
+ruby init.rb
+
+Then point your web browser to:
+http://localhost:7701/
+
+Or to the port that shows on the console or in the config.cnf file
+
+Requirements:
+RubyWebDialogs - I am using 0.0.11 2004-3-9
+ This package you downloaded should have a runtime version of 
+ the needed rubywebdialog files
+
+Ruby I am using version 1.8.2
+
+I have tested this under Linux-Debian kernel 2.6.9
+
+Operation:
+The code files reside in the code directory and are combined before 
+the main Class is loaded
+
+The rwd files in gui are combined before the gui is activated
+
+Trouble shooting:
+
+untar the file
+tar zxvf rwdapplication-x.y.tar.gz
+then cd to the directory
+cd rwdapplication-x.y
+then start the init.rb program file
+ruby init.rb
+
+
+If the program is not working, try looking at the ev subdirectory. That is where
+the runtime of rubywebdialogs are.
+
+for long term installation, I would suggest putting most files in a lib directory
+like /usr/lib/rwdshell
+then make a writable directory the local directory for command files to be written
+like ~/rwdshell
+
+
+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!
+
+Steven Gibson
+stevengibson@superant.com
+http://rwdapplications.rubyforge.org/

data/bin/rwdmovies

@@ -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/ag1core/aa0begin.rb

@@ -0,0 +1,18 @@
+# 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/ag1core/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/eo1rwdmovies/attachtmpmoviepicture.rb

@@ -0,0 +1,24 @@
+ # this code is to attach a photo from the tmp directory
+ def attachtmpmoviepicture
+  if @a_moviefilename
+   $currentmovietext = @a_moviefilename
+  end
+  if $currentmovietext
+    tmpmoviepictureName =  $tmpmoviepicture_directory + "/" + @a_tmppicturename
+   begin 
+   if  File.exist?(tmpmoviepictureName)
+    newmoviepictureName =  $tmpmoviepicture_directory + "/" + $currentmovietext + ".jpg"
+     if ! (tmpmoviepictureName == newmoviepictureName )
+      File.rename(tmpmoviepictureName, newmoviepictureName)
+     end
+    @listpicturesfromtmp = "Picture attached"
+    FileUtils.cp(newmoviepictureName , $rwdmovies_directory) 
+   else 
+    @listpicturesfromtmp = "attachment failed"
+   end
+    rescue
+   @listpicturesfromtmp = "attachment failed"
+   end       
+   end
+  end
+

data/code/eo1rwdmovies/deletemovierecord.rb

@@ -0,0 +1,24 @@
+   # this method views an existing address record
+  def deletemovierecord
+ 
+    require 'fileutils'
+  
+      if @a_moviefilename
+      $currentmovietext =  @a_moviefilename
+      end
+              
+     fileName = $rwdmovies_directory + "/" + $currentmovietext + ".nam"
+     
+
+    begin # exception trapped block
+
+     File.delete(fileName)
+     fileNamephoto = $rwdmovies_directory + "/" + $currentmovietext + ".jpg"
+     if  File.exist?(fileNamephoto)
+       File.delete(fileNamephoto)
+     end
+     rescue SystemCallError, StandardError
+         $stderr.print "system call error: " + $!
+    end # exception rescue
+
+  end

data/code/eo1rwdmovies/eo2viewmoviephoto.rb

@@ -0,0 +1,4 @@
+  def viewmoviephoto
+ @rwd_window = "moviephoto"
+ 
+  end

data/code/eo1rwdmovies/gl7clearscreendisplay.rb

@@ -0,0 +1,15 @@
+   # this method clears the on screen variables
+   def clearmoviescreendisplay
+ 
+        @a_moviefilename = ""
+     @a_moviename =        ""
+	      @a_moviedirector =  ""
+        @a_movieactors = ""
+          @a_movieyear =  ""
+        @a_moviestudio = ""
+         @a_moviecomment1 = "" 
+          @a_moviecomment2 =""
+          @a_moviecomment3 = ""
+
+
+  end

data/code/eo1rwdmovies/listmoviefiles.rb

@@ -0,0 +1,15 @@
+# this code is to list the movie names
+def listmovierecordfiles
+  fileList      = Dir.new($rwdmovies_directory).entries.sort.delete_if { |x| ! (x =~ /nam$/) }
+  @moviefilelistresult  = fileList.rwd_method("fillrwdmovierecordname")
+end
+ 
+def fillrwdmovierecordname(inffile)
+  applet                = inffile.gsub(/\.nam$/, "")
+  @a_moviefilename = applet
+  @a_moviedisplay       = applet
+end
+
+
+
+

data/code/eo1rwdmovies/loadeventrecord.rb

@@ -0,0 +1,30 @@
+   # this method views an existing record
+  def loadmovierecord
+ 
+         require 'fileutils'
+        @a_moviefilename = $currentmovietext
+	      
+        begin # exception trapped block
+       
+       
+	      fileName = $rwdmovies_directory + "/" + $currentmovietext + ".nam"
+        
+	      fd = File.open(fileName,"r")
+	      @a_moviename =        fd.readline.chomp
+	      @a_moviedirector =  fd.readline.chomp
+        @a_movieactors = fd.readline.chomp
+          @a_movieyear = fd.readline.chomp
+        @a_moviestudio = fd.readline.chomp
+         @a_moviecomment1 = fd.readline.chomp 
+          @a_moviecomment2 =fd.readline.chomp
+          @a_moviecomment3 = fd.readline.chomp
+	 
+	      while ! fd.eof?
+	        @extramoviedatadisplay = fd.readline
+	      end
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

data/code/eo1rwdmovies/openmoviedata.rb

@@ -0,0 +1,27 @@
+  def openmoviedata
+   require 'fileutils'
+   
+    $currentmovietext = "%s" % [@a_moviedisplay]
+	 photoname = $currentmovietext + ".jpg"
+        begin # exception trapped block
+        path_to = File.join( "rwd_files", "moviestmp.jpg" )
+        path_from = File.join( $rwdmovies_directory, photoname )
+        if ! File.exist?(path_from)
+        path_from = File.join($rwdmovies_directory,"nophoto.jpg" )
+        end
+        if File.exist?(path_from)
+        FileUtils.cp(path_from, path_to)
+        end
+	 fileName = $rwdmovies_directory + "/" + $currentmovietext + ".nam"
+        
+	fd = File.open(fileName,"r")
+	 @moviedatadisplay = " "
+	while ! fd.eof?
+	 @moviedatadisplay = fd.read
+	 end
+	 fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end

data/code/eo1rwdmovies/renamemovie.rb

@@ -0,0 +1,13 @@
+ # this code is to change the record name
+ def changemoviedata
+  oldName =  $rwdmovies_directory + "/" + @a_moviefilename +  ".nam"
+  newName =  $rwdmovies_directory + "/" + @a_changemoviedata + ".nam"
+   File.rename(oldName, newName)
+     oldphotoName =  $rwdmovies_directory + "/" + @a_moviefilename  + ".jpg"
+     newphotoName =  $rwdmovies_directory + "/" + @a_changemoviedata + ".jpg"
+     if  File.exist?(oldphotoName)
+      File.rename(oldphotoName, newphotoName)
+    end
+   end
+
+

data/code/eo1rwdmovies/rwdmovieshelpabout.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 runrwdmoviesversion
+  @rwd_window = "applicationversion"
+  @versionappnamedisplay = "RwdMovies"
+  @versioncopyrightdisplay = "(c) 2004 Steven Gibson "
+  @versionnumberdisplay =  "Version " + RwdMoviesVersion
+
+   end
+  

data/code/eo1rwdmovies/savemoviechanges.rb

@@ -0,0 +1,19 @@
+  # this method adds a new  record
+  def savemovierecord 
+   require 'fileutils'
+   if @a_moviefilename
+   newname = "%s" %   [@a_moviefilename] # grab the new filename to create
+   newdata =@a_moviename.to_s + "\n" + @a_moviedirector.to_s + "\n" + @a_movieactors.to_s + "\n" + @a_movieyear.to_s + "\n" + @a_moviestudio.to_s + "\n" + @a_moviecomment1.to_s + "\n" + @a_moviecomment2.to_s + "\n" + @a_moviecomment3.to_s + "\n"
+
+  fullnewname = newname + ".nam"
+        begin # exception trapped block
+          fileName = File.join( $rwdmovies_directory, fullnewname )
+        	fd = File.open(fileName,"w")
+	        fd.print(newdata) # save the record info to the file
+	        fd.close
+          @changedmovieresult=newdata # show the record info in the browser
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+    end
+  end

data/code/eo1rwdmovies/viewrwdmoviesconfiguration.rb

@@ -0,0 +1,21 @@
+  def viewrwdmoviesconfiguration 
+    require 'fileutils'
+    begin # exception trapped block
+    
+     Dir.chdir($progdir)
+     rwdmoviesconfigurationfile = File.join( "configuration", "rwdmovies.cnf" )
+     if  File.exist?(rwdmoviesconfigurationfile)
+       fd = File.open(rwdmoviesconfigurationfile,"r")
+       @rwdmoviesconfigurationtext = " "
+       while ! fd.eof?
+	        @rwdmoviesconfigurationtext = fd.read
+       end
+       fd.close
+     else
+	@rwdmoviesconfigurationtext  = "File error"
+     end
+    rescue SystemCallError, StandardError
+     $stderr.print "system call error: " + $!
+     @rwdmoviesconfigurationtext = "File error"
+    end # exception rescue
+  end

data/code/eo1rwdmovies/viewtmppictures.rb

@@ -0,0 +1,12 @@
+# this code is to list the picture names
+def viewtmppicture
+  fileList      = Dir.new($tmpmoviepicture_directory).entries.sort.delete_if { |x| ! (x =~ /jpg$/) }
+  @moviefilelistresult = ""
+  @listpicturesfromtmp  = fileList.rwd_method("filltmpmoviespicture")
+end
+
+def filltmpmoviespicture(inffile)
+  applet                = inffile.gsub(/\.nam$/, "")
+  @a_tmppicturename       = applet
+end
+

data/code/gh9calendar/gh9calendar.rb

@@ -0,0 +1,16 @@
+ require 'fileutils'
+ 
+ def showmonth
+      
+    begin      # begin rescue monitored block	
+
+     command_file_path = File.join( $extras_directory, 'cal.rb' )   
+     
+     @showmonthresult = `ruby  #{command_file_path} -c #{$lang} #{@a_month.to_i} #{@a_year.to_i} ` 
+        
+   rescue # process exeption
+     @showmonthresult = "\n" + "error in eval"
+   end # end of rescue process  # of rescure monitored block        
+
+  end
+  

data/code/xa5rwdtinkercallable/callable.rb

@@ -0,0 +1,13 @@
+# 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
+  
+  # call the rwdtinker helpwindow  
+  def runrwdtinkerhelpwindow
+   @rwd_window = "rwdtinkerhelpwindow"
+   end
+  def runrwdtinkerbackwindow
+   @rwd_window = "tinkerbackwindow"
+   end   
+   

data/code/xb1rwdtinkerbackwindow/05listinstalledfiles.rb

@@ -0,0 +1,11 @@
+# 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")
+end
+ 
+def fillappletname(inffile)
+  applet                = inffile.gsub(/\.inf$/, "")
+  @a_installlist        = applet
+  @a_removeapplet       = applet
+end

data/code/xb1rwdtinkerbackwindow/diagnostictab.rb

@@ -0,0 +1,21 @@
+# 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 Ruby constant 
+  def runrubyversion
+   @rubyversion = "Version " + VERSION
+   end
+   
+   # return the platform constan
+   def runviewplatform
+   @platformdisplay = "Platform is " + RUBY_PLATFORM
+   end
+   
+   # return Rwdtinker version to diagnostic tab
+   def rwdtinkerversiondiagnostic
+   @rwdtinkerversionreturn = "rwdtinker version " + RwdTinkerVersion
+   end
+
+ 

data/code/xb1rwdtinkerbackwindow/ll1openname.rb

@@ -0,0 +1,18 @@
+  def openname 
+   require 'fileutils'
+    nametext = "%s" % [@a_installlist]
+	 
+        begin # exception trapped block
+   	 fileName = "installed/" + nametext + ".inf"
+        
+	fd = File.open(fileName,"r")
+	 @displaytext = " "
+	while ! fd.eof?
+	 @displaytext = fd.read
+	 end
+	 fd.close
+        rescue
+            @displaytext = "\n" + "error"
+        end # exception rescue
+
+  end

data/code/xb1rwdtinkerbackwindow/ll5listzips.rb

@@ -0,0 +1,14 @@
+# this code is to list the zipped applets that can be installed
+def listzipfilestoinstall
+  fileList      = Dir.new("zips").entries.sort.reverse.delete_if { |x| ! (x =~ /zip$/) }
+  @zipslistresult  = fileList.rwd_method("fillziptoinstallname")
+end
+ 
+def fillziptoinstallname(inffile)
+  applet                = inffile.gsub(/\.zip$/, "")
+  @a_installapplet        = applet
+  
+end
+
+
+

data/code/xb1rwdtinkerbackwindow/lm1installapplet.rb

@@ -0,0 +1,20 @@
+  def installapplet
+   require 'fileutils'
+    nametext = "%s" % [@a_installapplet]
+	 
+        begin # exception trapped block
+   	 fileName = "zips/" + nametext + ".zip"
+  	
+	        commandline = "unzip -o " + fileName
+         system( commandline+' > temp.output' )
+        
+    
+      
+    system(commandline)
+   @installapplettext = Message[:applet_installed]  
+   
+       rescue
+            @installapplettext = "Done! - Check applet list - restart rwd to activate the new applet"
+        end # exception rescue
+
+  end

data/code/xb1rwdtinkerbackwindow/mm1removeapplet.rb

@@ -0,0 +1,28 @@
+  def removeapplet
+   require 'fileutils'
+    nametext = "%s" % [@a_removeapplet]
+	 
+        begin # exception trapped block
+   	 fileName = "installed/" + nametext + ".inf"
+        count =  0
+	fd = File.open(fileName,"r") 
+	       
+   	    
+   	    fd.each { |oneline|   
+         if count == 1
+        commandline = "rm -r " + oneline
+         system( commandline+' > temp.output' )
+         end
+         count = 1
+      }
+   fd.close
+    commandline = "rm " + fileName
+    
+    system(commandline)
+   @removeapplettext = "applet files removed! - restart rwd to finish uninstalling"    
+ 
+        rescue
+            @removeapplettext = "\n" + "error"
+        end # exception rescue
+
+  end

data/code/xb1rwdtinkerbackwindow/rwdtinkerwin2version.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 runrwdtinkerwin2version
+  @rwd_window = "applicationversion"
+  @versionappnamedisplay = "RwdTinkerWin2"
+  @versioncopyrightdisplay = "(c) 2004 Steven Gibson "
+  @versionnumberdisplay =  "Version " + RwdTinkerWin2Version
+
+   end
+  

data/code/zz0applicationend/zz0end.rb

@@ -0,0 +1,4 @@
+
+
+end # end of rwdtinker class
+	

data/configuration/aa0rwdframework.cnf

@@ -0,0 +1,14 @@
+
+RwdTinkerVersion = "1.4"
+CodeName = "rwdtinker"
+CodeNameFile = CodeName + ".rb"
+LangNameFile = "rwdlanguage.rb"
+RWDFile	= "rwdtinker.rwd"
+$lang = "nl"
+ @@codedir = "code"
+ @@guidir = "gui" 
+ @@langdir = "lang"
+
+TempLangHashFile = @@langdir + "/" + "templangfile.rb"
+LocalLangHashFile = @@langdir + "/" + "xlocallangfile.rb" 
+$port = 7705

data/configuration/ab1tinkerwin2.cnf

@@ -0,0 +1,4 @@
+
+RwdTinkerWin2Version = "0.5"
+ZipsLocation = "zips" # not yet functional
+

data/configuration/rwdmovies.cnf

@@ -0,0 +1,4 @@
+
+RwdMoviesVersion = "0.6"
+$rwdmovies_directory="movies"
+$tmpmoviepicture_directory = "/tmp"

data/ev/browser.rb

@@ -0,0 +1,109 @@
+require "ev/ruby"
+require "ev/net"
+
+begin
+  require "win32ole"
+  require "win32/registry"
+rescue LoadError
+  $".push "win32ole.so"
+  $".push "win32/registry.rb"
+end
+
+def windowsbrowser
+  $stderr.puts "Looking for default browser..."
+
+  filetype	= "htmlfile"
+  application	= nil
+
+  begin
+    Win32::Registry::HKEY_CLASSES_ROOT.open('.html') do |reg|
+      filetype		= reg[""]
+    end
+
+    Win32::Registry::HKEY_CLASSES_ROOT.open(filetype + '\shell\open\command') do |reg|
+      application	= reg[""]
+    end
+  rescue NameError
+    $stderr.puts "Only available for Windows."
+  end
+
+  application
+end
+
+def linuxbrowser
+  application	= ""
+
+  application	= `which galeon		2> /dev/null`.chomp	if application.empty?
+  application	= `which mozilla	2> /dev/null`.chomp	if application.empty?
+  application	= `which firefox	2> /dev/null`.chomp	if application.empty?
+  application	= `which opera		2> /dev/null`.chomp	if application.empty?
+  application	= `which konqueror	2> /dev/null`.chomp	if application.empty?
+  application	= `which htmlview	2> /dev/null`.chomp	if application.empty?
+  application	= nil						if application.empty?
+
+  application
+end
+
+def defaultbrowser
+  res	= nil
+  res	= windowsbrowser	if windows?
+  res	= linuxbrowser		if linux?
+  res
+end
+
+def showinbrowser(html, browser=defaultbrowser)
+  port, io	= TCPServer.freeport(7701, 7709)
+
+  unless browser.nil?
+    Thread.new do
+      begin
+	#command	= "1234 \"http://localhost:#{port}\""										if linux?
+	#command	= "L:/prog/MozillaFirefox/firefox.exe \"http://localhost:#{port}\""						if cygwin?
+	#command	= Win32::Registry::HKEY_CLASSES_ROOT.open('htmlfile\shell\open\command')[0] + " \"http://localhost:#{port}/\""	if windows?
+
+	command	= "#{browser} \"http://localhost:#{port}\""
+
+	Thread.pass
+
+	system(command)
+      rescue
+      end
+    end
+  end
+
+  HTTPServer.serve([port, io]) do |req, resp|
+    resp << html
+
+    resp.stop
+  end
+end
+
+def tab2html(tab)
+  res	= ""
+
+  tab	= tab.to_html(false)
+
+  res << "<html>\n"
+  res << "<body>\n"
+  res << "<table align='center' border='1' cellspacing='0' cellpadding='3'>\n"
+  res << "<tbody>\n"
+
+  tab.split(/\r*\n/).each do |line|
+    res << "<tr>\n"
+
+    line.split(/\t/, -1).each do |veld|
+      veld	= "&nbsp;"	if veld.compress.empty?
+
+      res << "<td>%s</td>\n" % veld
+    end
+
+    res << "</tr>\n"
+  end
+
+  res << "</tbody>\n"
+  res << "</table>\n"
+  res << "</body>\n"
+  res << "</html>\n"
+
+  res
+end