rwdtorrent 0.05 → 0.06

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

@@ -0,0 +1,239 @@
+
+#***********************************************************************
+#* Rwd/Tinker -- A Ruby program for the RudyWebDialog.
+#* Copyright (c) 2004 - 2005 by Steven Gibson. All Rights Reserved.
+#*
+#* This library is free software; you can redistribute it and/or
+#* modify it under the terms of the GNU General Public
+#* License as published by the Free Software Foundation; either
+#* .
+#*
+#* These files are distributed in the hope that they will be useful,
+#* but WITHOUT ANY WARRANTY; without even the implied warranty of
+#* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#* General Public License for more details.
+#*
+#* You should have received a copy of the GNU General Public
+#* License along with these files; if not, write to the Free Software
+#* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#*
+#* For further information please contact the author by e-mail
+#* at "smalllinux@gmail.com".
+#***********************************************************************/
+
+
+
+# integrate the new configuration files
+def initiateapplet(nametextlocal)
+	
+	debuginitiate = 0
+	
+	if $DEBUG
+ $stderr.puts "starting config load with: #{nametextlocal}"
+        end
+
+
+  Dir.chdir($progdir )    #changes the current working directory
+	  
+  @confignew =  "configuration/" + "#{nametextlocal}.cnf"
+  @configdist =  "configuration/" + "#{nametextlocal}.dist"
+  Rconftool::install(@configdist,@confignew)
+
+begin 
+
+  configfileload = File.open(@configdist){|f| f.read}
+	 
+       eval configfileload  #load  config file
+       
+     setuphelpaboutoptions # update the help about list
+       setuptinkerdocuments # update the document pull down list
+       runhelpwindow   # update the help menu
+        showjumplinkoptions # update the application link menu
+	runrwdtinkerbackwindow # back to applet window
+	
+	 rescue
+   
+           if $DEBUG
+              $stderr.puts  "error in initiateapplets - config load"
+          end
+        debuginitiate += 1
+  end
+  tempguistorage = $rwd_gui_tinker # if gui load fails restore old
+  begin # error trap
+  
+	# build the actual GUI from the gui parts
+  $tempdoc = " "
+  #get a list of the files and subdirectories on the starting directory only
+  a = Array.new(Dir[GuiDir].entries.sort)
+  #loop through the list, ignore the files and add all new directories found
+  a.each do |x|
+	  #if a directory...
+	  if(test(?d,x))
+		  #use this new dir find to add to the original list of directories
+		  @@root = x + "/**"
+		  #adds the new ones to the array
+		  b = Dir[@@root].entries.sort
+		  b.each do |x|
+			  if(test(?d,x))
+				  a.push(x)  #appends to the end of the array...
+			  end
+		  end
+	  end
+  end
+  a.each do |x|
+	  #if it is a file...
+	  if(!test(?d,x)) 
+		  a.delete(x)
+
+	  else #it is a directory...
+		  loadguifile(x + "/**")
+		  
+		  
+	  end
+  end
+
+$rwd_gui_tinker = $tempdoc
+
+  
+ rescue
+    $rwd_gui_tinker = tempguistorage # restore old gui
+           if $DEBUG
+              $stderr.puts  "error in initiateapplets - gui building"
+          end
+
+        debuginitiate += 1
+end
+
+begin # error trap
+# now load in the code files
+
+$tempdoc  = ""
+tempcodeinstallline  = ""
+
+         @fileName = "installed/" + nametextlocal + ".inf"
+	
+  tmpfilearray = File.readlines(@fileName)
+  
+  tmpfilearray.each do |line|
+	  
+       tempcodeinstallline = line.chomp
+       if tempcodeinstallline.include?('code/')
+	     findfiles(tempcodeinstallline  + "/**")
+            tempcoderesult = eval( $tempdoc ) # read the program code and evaluate
+       end
+end 
+  
+# resultend =  tempcodeinstallline .index("\n",resultstart)
+ tempresult  = @fileName
+ 
+return " applet loading successful " + tempresult 
+
+ rescue
+    if $DEBUG
+              $stderr.puts  "error in initiateapplets - code building"
+          end
+        debuginitiate += 1
+    
+
+  end
+  
+       if  debuginitiate > 0
+         return " initiateapplet .."
+       else
+	   return " initiateapplet success"
+	end
+
+end
+
+=begin
+
+
+  Dir.chdir($progdir) # change back to top program directory
+
+  # build the English Language hash file from the parts
+  languagehashvariable = 'Message = Hash.new { |hh, kk| hh[kk] = "ERROR: Message not found: #{kk.inspect}."; hh[kk] }
+  langmessage = {' + "\n"
+  startlangdir = File.join(LangDir,"en")
+  #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...
+		  findfiles(x + "/**")
+	  end
+  end
+
+
+  #writes the contents of doc into the  languagehashvariable 
+  languagehashvariable  =  languagehashvariable + $tempdoc + "}  ; langmessage.each { |kk, vv| Message[kk] = vv }"
+
+  # END of en Lang building
+  $tempdoc = " "
+  Dir.chdir($progdir) # change back to top program directory
+
+  # build the local Language hash file from the parts
+  startlangdir = File.join(LangDir,$lang)
+  #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...
+		  findfiles(x + "/**")
+	  end
+  end
+
+
+  #writes the contents of doc into the variable
+  languagehashvariable =  languagehashvariable  + " ; Message.update(" + $tempdoc + ' :rwdtinker => "Rwdtinker" ) '
+
+
+  $tempdoc = " "
+
+  Dir.chdir($progdir) # change back to top program directory
+
+  temp = eval(   languagehashvariable )
+
+  $tempdoc = " "
+
+ 
+
+	
+
+
+=end
+
+  

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

@@ -12,10 +12,12 @@ def installapplet
 
 		zf = Zip::ZipFile.new(fileName)
 		zf.sort.each {
+		
 			|entry|
 			zf.extract(entry.to_s, entry.to_s)
 		}
-		@installapplettext = Message[:applet_installed]  
+		@returninitateresults = initiateapplet(nametext)
+		@installapplettext = Message[:applet_installed] + " " +   @returninitateresults 
 
 	rescue
 		@installapplettext = "unzip error - applet may not be installed correctly"

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

@@ -12,10 +12,23 @@ def installgemapplet
 			|entry|
 			zf.extract(entry.to_s, entry.to_s)
 		}
-		@installapplettext = Message[:applet_installed]  
-
-	rescue
-		@installapplettext = "unzip error - applet may not be installed correctly"
+		
+		rescue
+		
+	if $DEBUG
+	$stderr.puts "unzip error - applet may not be installed correctly"
+       end
+        @installapplettext = " .. "
+	
 	end # exception rescue
+	
+		@nametextbase = File.basename(nametext)
+		@returninitateresults = initiateapplet(@nametextbase)
+		@installapplettext = Message[:applet_installed] + " " +   @returninitateresults 
+
+				
+       RWDWindow.new($rwd_gui_tinker, @rwd_window).render("DEFAULT")
+
+	
 end
 

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

@@ -18,11 +18,7 @@ def runhelpwindowtinkerwin2
 	end
 	if @rwd_tab == "editconfigurationfile"
 		$help_topic = "applet_tinkerbackeditconfiguration"
-
-	end
-	if @rwd_tab == "rwdremotecontrol"
-		$help_topic = "remote_control"
-
+	
 	end
 	if @rwd_tab == "superantcomremotezipsinstall"
 		$help_topic = "remotegemapplet_install"

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

@@ -3,8 +3,17 @@ def removeapplet
 	require 'fileutils'
 	nametext = "%s" % [@a_removeapplet]
 
+       fileName = "installed/" + nametext + ".inf"
+       @appletremoveresult = removeappletvariables(nametext)
+       
+       setuphelpaboutoptions # update the help about list
+       setuptinkerdocuments # update the document pull down list
+       runhelpwindow   # update the help menu
+        showjumplinkoptions # update the application link menu
+	runrwdtinkerbackwindow # back to applet window
+
 	begin # exception trapped block
-		fileName = "installed/" + nametext + ".inf"
+		
 		count =  0
 		fd = File.open(fileName,"r") 
 
@@ -19,14 +28,18 @@ def removeapplet
 			count = 1
 		}
 		fd.close
+ 
+           
 
 		FileUtils.rm_rf( fileName)
-
-
-		@removeapplettext = "applet files removed! - restart rwd to finish uninstalling"    
-
+		
+		  
+		@removeapplettext = "applet files removed!" + " " + @appletremoveresult
+             
+             runbackwindowappletremove
+             
 	rescue
-		@removeapplettext = "\n" + "error"
+		@removeapplettext = " removeapplet" + "  .."
 
 	end # exception rescue
 

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

@@ -0,0 +1,52 @@
+
+#***********************************************************************
+#* Rwd/Tinker -- A Ruby program for the RudyWebDialog.
+#* Copyright (c) 2004 - 2005 by Steven Gibson. All Rights Reserved.
+#*
+#* This library is free software; you can redistribute it and/or
+#* modify it under the terms of the GNU General Public
+#* License as published by the Free Software Foundation; either
+#* .
+#*
+#* These files are distributed in the hope that they will be useful,
+#* but WITHOUT ANY WARRANTY; without even the implied warranty of
+#* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#* General Public License for more details.
+#*
+#* You should have received a copy of the GNU General Public
+#* License along with these files; if not, write to the Free Software
+#* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#*
+#* For further information please contact the author by e-mail
+#* at "steven@superant.com".
+#***********************************************************************/
+
+def removeappletvariables(tempremovename)
+	
+ 	 begin # exception trapped block
+	 if $DEBUG
+	$stderr.puts "in removeappletvariables"
+	end
+	 # removefileinf = File.open(tempremove){|f| f.read}
+	 
+        temp = tempremovename.gsub("-","_")
+        removemethod =  temp.gsub(".","_")
+       
+          
+        send "#{removemethod}"
+	
+	tmpremoveapplet = " successfull applet variable removal "
+	
+ 	 rescue
+ 	
+		tmpremoveapplet =  " removeappletvariables .."
+
+	 end # exception rescue
+  
+      return  tmpremoveapplet
+      
+    end
+
+
+  
+  

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

@@ -9,3 +9,7 @@ def runrwdtinkerbackwindow
 	@rwd_tab = "rwdzipslister"
 end   
 
+def runbackwindowappletremove
+	@rwd_window = "tinkerbackwindow"
+	@rwd_tab = "filelister"
+end   

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

@@ -0,0 +1,13 @@
+
+def rwdwtorrent_0_06()
+
+$tinkerdocumentsarray.delete_if {|x| x == "HowTo_Torrent.txt"}
+$tinkerhelpaboutarray.delete_if {|x| x == "RwdTorrent"}
+$testharnessarray.delete_if {|x| x == "rwdtorrent_all_tests"}
+Helptext.delete_if {|key, value| key == :torrent_help}
+Helptext.delete_if {|key, value| key == :torrentsize_help }
+Helptext.delete_if {|key, value| key == :rwdtorrent_generalhelp  }
+Helptext.delete_if {|key, value| key == :rwdtorrent_configuration }
+$rwdjumplink.delete_if {|x| x == "RwdTorrent"}
+
+end

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

@@ -3,13 +3,13 @@
  
          require 'fileutils'
           
-               @a_torrentconfigurationfilename = "rwdtorrent.cnf" 
+               @a_torrentconfigurationfilename = "rwdwtorrent-" + RwdTorrentVersion + ".cnf" 
         
 	      
         begin # exception trapped block
        
        Dir.chdir($progdir)
-	      fileName = File.join(ConfigurationDir, "rwdtorrent.cnf")
+	      fileName = File.join(ConfigurationDir, @a_torrentconfigurationfilename)
         
         
 	      fd = File.open(fileName,"r")

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

@@ -1,7 +1,8 @@
    # this method loads the on screen variables into the running class
    def loadrwdtorrentconfigurationvariables
-   
-   configfiletoload = File.join(ConfigurationDir,"rwdtorrent.cnf")
+
+    tmpfilename = "rwdwtorrent-" + RwdTorrentVersion + ".cnf"    
+   configfiletoload = File.join(ConfigurationDir, tmpfilename)
    begin
     load configfiletoload
     @extratorrentconfigdatadisplay = ""

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

@@ -3,8 +3,8 @@
 # For more information about  see http://www.rubyforge.net/projects/rwdapplications
   
   # call the window  
-  def returntomaintorrent
-   @rwd_window = "main"
+  def runmaintorrentwindow
+   @rwd_window = "rwdtorrentwindow"
    @rwd_tab = "superantcomtorrenttab"
    end   
    

data/code/superant.com.rwdtorrent/runeditconfiguration.rb

@@ -4,7 +4,7 @@
   
   # call the window  
        def runedittorrentconfiguration
-   @rwd_window = "main"
+   @rwd_window = "rwdtorrentwindow"
    @rwd_tab = "viewrwdtorrentconfiguration"
    end 
    

data/code/superant.com.rwdtorrent/runtorrentwindow.rb

@@ -100,7 +100,7 @@ def rwdtorrentwindowtwo
 			 
 
 			@display_use_rate = true
-			@display_start_timer
+			# @display_start_timer
 			num_pieces = 0
 			start = Time.now
 			every = 10
@@ -181,7 +181,7 @@ end
 			$bt.on_event(self, :trying_peer) { |s, p| display_untried_peers -= 1 unless display_untried_peers == 0 }
 
 			display_total = $bt.total_bytes
-			@display_start_timer
+			#@display_start_timer
 
 			if true
 

data/code/superant.com.rwdtorrent/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 rwdgutenberghelpaboutsetup
+return ["RwdTorrent","(c) 2004-2008 Steven Gibson ","Version #{RwdTorrentVersion}"]
+end
+
+

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

@@ -2,7 +2,7 @@
   def saverwdtorrentconfiguration
    require 'fileutils'
    
-   newname = "rwdtorrent.cnf" # grab the filename to create
+   newname = "rwdwtorrent-" + RwdTorrentVersion + ".cnf" # grab the filename to create
    newdata =@a_torrentconfiglines.to_s 
 	 
         begin # exception trapped block

data/code/superant.com.rwdtorrent/test_cases.rb

@@ -3,8 +3,7 @@
 	
 require 'test/unit/testcase'
 require 'test/unit/assertions'
-include Test::Unit::Assertions
-include Test::Unit  
+
 def rwdtorrent_all_tests 
 	print "in rwdtorrent all tests\n"
   $testrwdtorrenttestcase = TestSuite.new

data/code/superant.com.rwdtorrent/viewtorrentmetafile.rb

@@ -1,5 +1,7 @@
 # show torrent metafile details on screen
-   require 'extras/rubytorrent'
+
+  require 'extras/rubytorrent'
+
    def viewtorrentfile
     
     if !   @a_viewtorrent.to_s.empty?

data/configuration/language.dist

@@ -1,7 +1,8 @@
-##VERSION:1.62
+##VERSION:1.69
 #language selection file
 ##NAME:$lang:0
 #$lang = "jp"
 $lang= "en"
 #$lang= "nl"
 #$lang= "es"
+#$lang= "fr"

data/configuration/rwdapplicationidentity.dist

@@ -1,3 +1,3 @@
-##VERSION:1.63
+##VERSION:1.69
 $rwdapplicationidentity = "rwdtinker main application"
 

data/configuration/rwdtinker.dist

@@ -1,4 +1,4 @@
-##VERSION:1.66
+##VERSION:1.74
 ConfigurationDir = "configuration" # for use in program - init.rb has this value without using this constant
 CodeName = "rwdtinker"
 CodeNameFile = CodeName + ".rb"
@@ -9,12 +9,10 @@ LangDir = "lang"
   $help_topic = "general_help"
    $helptopicsarray = [ "general_help","network_help"]
   $prevouswindow ="main" 
-   $rwdcontrolports =["13713","13714","13715","13716","13717","13718"]
+   $rwdcontrolports =["13713","13714","13715","13716","13717","13718"]   # remote control code not actived 2007
  $port = 7705
 $rwdjumplink = ["helpscreen","tinkerbackwindow","returntomain","opendocuments","editconfiguration"]
-$tinkerhelpaboutarray = ["Tinker"]
 Browser_Exe = 'mozilla '
-$tinkerdocumentsarray +=["COPYING","HowTo_Tinker.txt","rwdapplications.html","RubyWebDialogs.html"]
-RwdTinkerVersion = "1.66"
-	
-   
+$tinkerdocumentsarray +=["HowTo_Tinker.txt","rwdapplications.html","RubyWebDialogs.html"]
+RwdTinkerVersion = "1.74"
+

data/configuration/{rwdtorrent.dist → rwdwtorrent-0.06.dist}

@@ -1,4 +1,4 @@
-##VERSION:0.05
+##VERSION:0.06
 ##NAME:$rwdtorrentfilesdir:0
 $rwdtorrentfilesdir="torrentfiles"
 ##NAME:$rwdtorrentdownloads:0
@@ -13,6 +13,11 @@ TorrentRootDir=$progdir + "/"
 $testharnessarray += ["rwdtorrent_all_tests"]
 $tinkerdocumentsarray += ["HowTo_Torrent.txt"]
 $tinkerhelpaboutarray += ["RwdTorrent"]
-RwdTorrentVersion = "0.05"
+##NAME: $rwdjumplink:0
+$rwdjumplink += ["RwdTorrent"]
+##NAME: JumpLink:0
+JumpLink.update(:RwdTorrent=>"runmaintorrentwindow")
+##NAME:RwdGutenbergVersion:0
+RwdTorrentVersion = "0.06"
 
       

data/configuration/tinkerwin2variables.dist

@@ -1,4 +1,4 @@
-##VERSION:1.63
+##VERSION:1.69
 TinkerWin2ConfigurationFileName = "tinkerwin2variables.cnf" # this file name - do not change
 ##NAME:$zipslocation:0
 $zipslocation = "zips" # location of applets to add
@@ -7,11 +7,11 @@ $zipslocation = "zips" # location of applets to add
  $xpcommand = " "  # Linux machines
 # $xpcommand =  "cmd /C "  # XP machines with cmd shell
 ##NAME:$gemdirectory_withgemfiles:0
- $gemdirectory_withgemfiles = "/usr/lib/ruby/gems/1.8/gems"
+ $gemdirectory_withgemfiles = "/var/lib/gems/1.8/gems"
 # $gemdirectory_withgemfiles = "c:\\ruby\\lib\\ruby\\gems\\1.8\\gems"  # XP machine
 ##NAME:$geminstalled_directory:0
 # $geminstalled_directory = "/ruby/lib/ruby/gems/1.8/gems" # XP machine
- $geminstalled_directory = "/usr/lib/ruby/gems/1.8/gems" # Debian Linux
+ $geminstalled_directory = "/var/lib/gems/1.8/gems" # Debian Linux
 
 RwdTinkerWin2Version = "0.8"
 

data/ev/net.rb

@@ -784,8 +784,8 @@ class HTTPServer
               end
 
               if (not remote) or (remote and (auth.nil? or auth.empty? or authenticate(auth, realm, req, resp)))
-                $stderr.puts "#{count2} #{Time.new.strftime("%Y-%m-%d %H:%M:%S")} #{ip} #{req.user} #{req.request.to_s.strip}"
-
+            #    $stderr.puts "#{count2} #{Time.new.strftime("%Y-%m-%d %H:%M:%S")} #{ip} #{req.user} #{req.request.to_s.strip}"
+             1 == 1
                 begin
                   yield(req, resp)
                 rescue Exception => e