rwdtorrent 0.01

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.rwdtinkerbackwindow/controlclient.rb

@@ -0,0 +1,99 @@
+# Bind message passing socket to rwdtinker application
+
+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
+
+    commandtext =  @a_remotecommandinput.to_s 
+   remotehostnotfound = true
+ if (commandtext == "stop")
+ begin
+ client = UDPSocket::new()
+ client.send(commandtext, 0, ip, port)
+		@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
+  # Close the socket after use
+ client.close()
+ end
+
+ remotehostnotfound = true
+ if (commandtext == "query") 
+ begin
+ client = UDPSocket::new()
+ client.send(commandtext, 0, ip, port)
+		@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
+
+# Close the socket after use
+client.close()
+end
+
+ if remotehostnotfound
+     @remotecommandresult =  "Remote Host not running"
+ end
+end
+
+# list the remote control options on the screen
+def showremoteportoptions
+ 
+ @remoteportoptions = $rwdcontrolports.rwd_options
+  @remotecommandoptions = ["query","stop"].rwd_options
+ end
+
+

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

@@ -0,0 +1,25 @@
+# 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
+  
+
+  
+  
+   require 'resolv'
+   require 'date'
+   
+   # return the platform information
+   def runviewplatform
+   @platformdisplay = "Platform is " + RUBY_PLATFORM + "\n"
+    @platformdisplay =  @platformdisplay + "Ruby Version " + VERSION + "\n" 
+    @platformdisplay  = @platformdisplay  + "rwdtinker version " + RwdTinkerVersion + "\n"
+    @platformdisplay = @platformdisplay + "program directory " + $progdir + "\n"
+    @platformdisplay = @platformdisplay  + "hostname " + Resolv.getname(Resolv.getaddress("localhost")) + "\n"
+      @platformdisplay = @platformdisplay  + "application name " +  $rwdapplicationidentity   + "\n"
+   @platformdisplay = @platformdisplay +  "Date " +      Date.today().to_s
+    
+   end
+   
+
+ 

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

@@ -0,0 +1,61 @@
+# help text files used by context sensitive help  
+
+ 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
+      
+      rwdtinker applets packaged as RubyGems can be used if you have RubyGems installed.
+      You can download rwdtinker gems at the 'Install Remote Applets' tab
+      to install applets you need the ruby zlib library installed
+      ",
+     :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
+       to install applets you need the ruby zlib library installed",
+
+     :applet_tinkerbackeditconfiguration  => " You can edit the configuration
+  
+  Remember to reload the configuration variables if you want your
+  changes used.",
+  :remotegemapplet_install  => " To download and install use the 'Install Remote Applets'
+  
+  First click on 'List applets in the Remote GEM Repository available for downloading'
+  then go to the very bottom to click on the applet you want
+  then on the top click 'install remote Gem applet package'
+  
+  This installs the package in the Gem system
+  You still need to install it into rwdtinker - do that in the 'List Zips' tab
+  
+  For this feature to work, you need
+  RubyGems installed
+   Variables set correctly in the tinerwin2.cnf file
+      $xpcommand,  $gemdirectory_withgemfiles and  $geminstalled_directory
+    the defaults as shipped will normally be for a Debian Linux system  
+   On Debian Linux, you would usually need to be running rwdtinker as root in order to install RubyGems
+   
+   You can view the list of rwdtinker applets you have installed already by clicking 'view already installed GEM applets'
+ "
+)

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

@@ -0,0 +1,24 @@
+# code in install rwdtinker applets - now uses ruby.zip module
+  def installapplet
+   
+    nametext = "%s" % [@a_installapplet]
+
+        begin # exception trapped block
+
+
+   require 'extras/zip/zip'
+   	 fullname =  nametext + ".zip"
+     fileName = File.join($zipslocation,fullname)
+
+  zf = Zip::ZipFile.new(fileName)
+ 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/installgemapplet.rb

@@ -0,0 +1,20 @@
+# install rwdtinker applet from a long directory location 
+  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/installremotegem.rb

@@ -0,0 +1,19 @@
+# download gem of rwdtinker applet
+  def superantcominstallremotegemapplet
+   require 'fileutils'
+   
+    tempnametext = "%s" % [@superantcominstallremoteappletinput]
+	 temparray = tempnametext.split(/ /)
+   nametext  = temparray[0]
+        begin # exception trapped block
+   	 
+  	
+	        commandline = $xpcommand + "gem install " + nametext
+         
+         @superantcominstallremotegemappletresult = `#{commandline}`
+   
+       rescue
+            @superantcominstallremotegemappletresult  = "error during gem install!"
+        end # exception rescue
+
+  end

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

@@ -0,0 +1,12 @@
+# this code is to list the gem directories that are installed
+def superantcomshowgemfiledirs
+ 
+  fileList      = Dir.new($gemdirectory_withgemfiles).entries.sort.delete_if { |x| ! (x =~ /\Arwdzip/) }
+  @superantcomshowgemappletdirsresult  = fileList.rwd_method("superantcomshowgemappletdirsname")
+end
+ 
+def superantcomshowgemappletdirsname(inffile)
+  applet                = inffile
+  @a_gemfiledirsinput       = applet
+  
+end

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

@@ -0,0 +1,54 @@
+# this code is to list the zips
+
+
+def fillzipappletname(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("fillzipappletname")
+      end  

data/code/superant.com.rwdtinkerbackwindow/listinstalledfiles.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/superant.com.rwdtinkerbackwindow/listzips.rb

@@ -0,0 +1,31 @@
+# this code is to list the zipped applets that can be installed
+
+ 
+def fillziptoinstallname(inffile)
+  applet                = inffile.gsub(/\.zip$/, "")
+  @a_installapplet        = applet
+  
+end
+
+
+
+  
+def  listzipfilestoinstall
+ startlangdir = File.join($progdir, $zipslocation )
+ #get a list of the files and subdirectories on the starting directory only
+      
+    
+        a = Array.new(Dir["#{startlangdir}/*"].entries.sort)
+        
+         #loop through and get the files names
+         a.each do |x|
+               # only zip files
+                  if x =~ /\.zip/
+                  #  puts "#{x}"        #adds the file to the array to display on the screen
+                   $zipsarraylocal =  $zipsarraylocal | ["#{x}"] 
+               end
+              
+             end
+      
+         @zipslistresult = $zipsarraylocal.rwd_method("fillziptoinstallname")
+      end  

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

@@ -0,0 +1,32 @@
+   # this method puts the configuration rexord on the screen
+  def loadconfigurationrecord
+ 
+         require 'fileutils'
+         if TinkerWin2ConfigurationFileName 
+               @a_configurationfilename = TinkerWin2ConfigurationFileName 
+         end
+	      
+        begin # exception trapped block
+       
+       Dir.chdir($progdir)
+	      fileName = File.join(ConfigurationDir, TinkerWin2ConfigurationFileName)
+        
+	      fd = File.open(fileName,"r")
+	      @a_configline1=        fd.readline.chomp
+	      @a_configline2 =  fd.readline.chomp
+        @a_configline3 = fd.readline.chomp
+          @a_configline4 = fd.readline.chomp
+        @a_configline5 = fd.readline.chomp
+         @a_configline6 = fd.readline.chomp 
+          @a_configline7 =fd.readline.chomp
+          @a_configline8 = fd.readline.chomp
+	 
+	      while ! fd.eof?
+	        @extraconfigdatadisplay = fd.readline
+	      end
+        fd.close
+        rescue SystemCallError, StandardError
+            $stderr.print "system call error: " + $!
+        end # exception rescue
+
+  end