rwdtorrent 0.01

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

@@ -0,0 +1,32 @@
+# this code is to call the help window
+def runhelpwindowrwdtorrent
+
+     $help_topic = "rwdtorrent_generalhelp"
+   
+   if @rwd_tab == "rwdtorrentrefresh"
+        $help_topic = "torrentrefresh_help"
+   end
+     
+   if @rwd_tab == "superantcomtorrenttab"
+        $help_topic = "torrent_help"
+   end
   
+  
+   if @rwd_tab == "Rwdtorrentsize"
+          $help_topic = "torrentsize_help"
+   end
+   
+  if @rwd_tab == "viewrwdtorrentconfiguration"
+  $help_topic = "rwdtorrent_configuration"
+  end
+   $helptopicsarray =  $helptopicsarray | ["torrent_help","torrentsize_help","rwdtorrent_generalhelp","rwdtorrent_configuration"]
+  
+   
+  
+ if @rwd_window != "rwdtinkerhelpwindow"
+       $previouswindow = @rwd_window
+      $previoustab = @rwd_tab
+  end
+  runhelpwindow
+end
+
+

data/code/superant.com.rwdtorrent/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 = "superantcomtorrenttab"
+   end   
+   

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

@@ -0,0 +1,57 @@
+  def runtorrentwindow
+    $torrenttodownload = $progdir + "/" + $rwdtorrentfilesdir + "/" + @a_viewtorrent + ".torrent"
+     rwdtorrentwindowtwo
+  end
+
+  def runtorrentwindowhttp
+    $torrenttodownload =  @a_viewtorrenthttp
+     rwdtorrentwindowtwo
+  end
+
+  $temptorrentnumber  = 0
+
+def runtorrentthread
+ $torrenttimestart = Time.now
+   Dir.chdir($rwdtorrentdownloads)
+   
+   $bt = RubyTorrent::BitTorrent.new("#{$torrenttodownload}")
+   $torrentpid = fork do
+     puts "\nIn child, pid = #$$ \n"
+     thread = Thread.new do
+      #while true
+       puts $bt.percent_completed
+     
+       
+      #end
+     end
+     $bt.on_event(self, :complete) { thread.kill }
+     thread.join
+    end
+ end
+
+  def rwdtorrentwindowtwo
+  require 'extras/rubytorrent'
+    
+  @rwd_call_after_back << "rwdtorrentwindowtwo"
+  #if @rwd_tab== "rwdtorrentrefresh"
+    @rwd_window	= "torrentdisplaywindowtwo"
+   # end
+ if $temptorrentnumber == 0   
+  runtorrentthread
+    $temptorrentnumber =1
+ end
+ Dir.chdir($progdir)
+   @torrentdisplayvariable =  $bt.percent_completed.to_s
+   @torrentstarttime = $torrenttimestart 
+   @torrentcurrenttime = Time.now.to_s
+   
+   commandtext = TorrentListCmd + $rwdtorrentdownloads + "/" + @a_viewtorrent.to_s + "*"
+
+        begin # exception trapped block
+          @torrentcurrentsize =`#{commandtext}`
+
+   rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+   end # exception rescue
+
+end

data/code/superant.com.rwdtorrent/rwdtorrenthelpabout.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 runrwdtorrentversion
+  @rwd_window = "applicationversion"
+  @versionappnamedisplay = "RwdTorrent"
+  @versioncopyrightdisplay = "(c) 2005 Steven Gibson "
+  @versionnumberdisplay =  "Version " + RwdTorrentVersion
+
+   end
+  

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

@@ -0,0 +1,18 @@
+  # this method adds a new address record
+  def saverwdtorrentconfiguration
+   require 'fileutils'
+   
+   newname = "rwdtorrent.cnf" # grab the filename to create
+   newdata =@a_torrentconfigline1.to_s + "\n" + @a_torrentconfigline2.to_s + "\n" + @a_torrentconfigline3.to_s + "\n" + @a_torrentconfigline4.to_s + "\n" + @a_torrentconfigline5.to_s + "\n" + @a_torrentconfigline6.to_s + "\n" + @a_torrentconfigline7.to_s + "\n" + @a_torrentconfigline8.to_s + "\n" + @a_torrentconfigline9.to_s + "\n"+ @a_torrentconfigline10.to_s + "\n"+ @a_torrentconfigline11.to_s + "\n"+ @a_torrentconfigline9.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.rwdtorrent/stoptorrentdownload.rb

@@ -0,0 +1,12 @@
+# Application rwdtinker orginally (c) 2004 Steven Gibson under GPL. 
+# 
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+  
+  # call the window  
+  def stoptorrentwindow
+  $temptorrentnumber = 0  
+  Process.kill("SIGHUP", $torrentpid)
+   @rwd_window = "main"
+   @rwd_tab = "superantcomtorrenttab"
+   end   
+   

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

@@ -0,0 +1,20 @@
+
+   
+   def viewtorrentlist
+   
+    commandtext = TorrentListCmd + $rwdtorrentdownloads
+
+        begin # exception trapped block
+         
+
+      
+    
+         @a_viewtorrentdisplay =`#{commandtext}`
+        
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end
+
+

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

@@ -0,0 +1,36 @@
+
+   
+   def viewtorrentfile
+   
+    commandtext = "ruby extras/aversa.rb --decode torrentfiles/" + @a_viewtorrent.to_s + ".torrent "
+
+        begin # exception trapped block
+         
+
+      
+    
+         @a_torrentdata =`#{commandtext}`
+        
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end
+def viewtorrentfilehttp
+   
+    commandtext = "ruby extras/aversa.rb --decode " + @a_viewtorrenthttp.to_s 
+
+        begin # exception trapped block
+         
+
+        print commandtext
+         @a_torrentdata =`#{commandtext}`
+        
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end
+
+
+

data/code/zz0applicationend/zz0end.rb

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

data/configuration/language.dist

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

data/configuration/rwdapplicationidentity.dist

@@ -0,0 +1,3 @@
+##VERSION:1.57
+$rwdapplicationidentity = "rwdtorrent bittorrent gui"
+

data/configuration/rwdtinker.dist

@@ -0,0 +1,15 @@
+##VERSION:1.61
+ConfigurationDir = "configuration" # for use in program - init.rb has this value without using this constant
+CodeName = "rwdtinker"
+CodeNameFile = CodeName + ".rb"
+RWDFile	= "rwdtinker.rwd"
+LangDir = "lang"
+ CodeDir = "code" 
+ GuiDir = "gui"  
+  $help_topic = "general_help"
+   $helptopicsarray = [ "general_help","network_help"]
+  $prevouswindow ="main" 
+   $rwdcontrolports =["13713","13714","13715","13716","13717","13718"]
+ $port = 7705
+
+RwdTinkerVersion = "1.61"

data/configuration/rwdtorrent.dist

@@ -0,0 +1,11 @@
+##VERSION:0.01
+##NAME:$rwdtorrentfilesdir:0
+$rwdtorrentfilesdir="torrentfiles"
+##NAME:$rwdtorrentdownloads:0
+$rwdtorrentdownloads="downloads"
+##NAME:$extrasdir:0
+$extrasdir="extras"
+##NAME:TorrentListCmd:0
+TorrentListCmd="ls -s -1 -h -R "
+
+RwdTorrentVersion = "0.01"

data/configuration/tinkerwin2variables.dist

@@ -0,0 +1,17 @@
+##VERSION:1.57
+TinkerWin2ConfigurationFileName = "tinkerwin2variables.cnf" # this file name - do not change
+##NAME:$zipslocation:0
+$zipslocation = "zips" # location of applets to add
+ $zipsarray = [""] ; $zipsarraylocal = [""]
+##NAME:$xpcommand:0
+ $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 = "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
+
+RwdTinkerWin2Version = "0.8"
+

data/downloads/nodownloads.txt

@@ -0,0 +1 @@
+Linux

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

data/ev/ftools.rb

@@ -0,0 +1,170 @@
+require "ftools"
+
+class Dir
+  def self.mkdirrec(dir)
+    pdir	= File.dirname(dir)
+
+    if not pdir.empty? and not File.directory?(pdir)
+      Dir.mkdirrec(pdir)
+    end
+
+    Dir.mkdir(dir)	rescue nil
+  end
+
+  def self.copy(from, to)
+    if File.directory?(from)
+      pdir	= Dir.pwd
+      todir	= File.expand_path(to)
+
+      mkdirrec(todir)
+
+      Dir.chdir(from)
+        Dir.new(".").each do |e|
+          Dir.copy(e, todir+"/"+e)	if not [".", ".."].include?(e)
+        end
+      Dir.chdir(pdir)
+    else
+      todir	= File.dirname(File.expand_path(to))
+
+      mkdirrec(todir)
+
+      File.copy(from, to)
+    end
+  end
+
+  def self.move(from, to)
+    Dir.copy(from, to)
+    Dir.rm_rf(from)
+  end
+
+  def self.rm_rf(entry)
+    if File.ftype(entry) == "directory"
+      pdir	= Dir.pwd
+
+      Dir.chdir(entry)
+        Dir.new(".").each do |e|
+          Dir.rm_rf(e)	if not [".", ".."].include?(e)
+        end
+      Dir.chdir(pdir)
+
+      Dir.delete(entry)
+    else
+      File.delete(entry)
+    end
+  end
+
+  def self.find(entry=nil, mask=nil)
+    entry	= "."	if entry.nil?
+
+    entry	= entry.gsub!(/[\/\\]*$/, "")	unless entry.nil?
+
+    mask	= /^#{mask}$/i	if mask.kind_of?(String)
+
+    res	= []
+
+    if File.directory?(entry)
+      pdir	= Dir.pwd
+
+      res += ["%s/" % entry]	if mask.nil? or entry =~ mask
+
+      begin
+        Dir.chdir(entry)
+
+        begin
+          Dir.new(".").each do |e|
+            res += Dir.find(e, mask).collect{|e| entry+"/"+e}	unless [".", ".."].include?(e)
+          end
+        ensure
+          Dir.chdir(pdir)
+        end
+      rescue Errno::EACCES => error
+        puts error
+      end
+    else
+      res += [entry]	if mask.nil? or entry =~ mask
+    end
+
+    res
+  end
+end
+
+class File
+  def self.rollbackup(file, mode=nil)
+    backupfile	= file + ".RB.BACKUP"
+    controlfile	= file + ".RB.CONTROL"
+    res		= nil
+
+    File.touch(file)    unless File.file?(file)
+
+	# Rollback
+
+    if File.file?(backupfile) and File.file?(controlfile)
+      $stdout.puts "Restoring #{file}..."
+
+      File.copy(backupfile, file)				# Rollback from phase 3
+    end
+
+	# Reset
+
+    File.delete(backupfile)	if File.file?(backupfile)	# Reset from phase 2 or 3
+    File.delete(controlfile)	if File.file?(controlfile)	# Reset from phase 3 or 4
+
+	# Backup
+
+    File.copy(file, backupfile)					# Enter phase 2
+    File.touch(controlfile)					# Enter phase 3
+
+	# The real thing
+
+    if block_given?
+      if mode.nil?
+        res	= yield
+      else
+        File.open(file, mode) do |f|
+          res	= yield(f)
+        end
+      end
+    end
+
+	# Cleanup
+
+    File.delete(backupfile)					# Enter phase 4
+    File.delete(controlfile)					# Enter phase 5
+
+	# Return, like File.open
+
+    res	= File.open(file, (mode or "r"))	unless block_given?
+
+    res
+  end
+
+  def self.touch(file)
+    File.open(file, "a"){|f|}
+  end
+
+  def self.which(file)
+    res	= nil
+
+    if windows?
+      file	= file.gsub(/\.exe$/i, "") + ".exe"
+      sep		= ";"
+    else
+      sep		= ":"
+    end
+
+    catch :stop do
+      ENV["PATH"].split(/#{sep}/).reverse.each do |d|
+        if File.directory?(d)
+          Dir.new(d).each do |e|
+             if e.downcase == file.downcase
+               res	= File.expand_path(e, d)
+               throw :stop
+            end
+          end
+        end
+      end
+    end
+
+    res
+  end
+end