rwdshell 0.97 → 0.98

data/Readme.txt

@@ -193,7 +193,13 @@ http://www.erikveen.dds.nl/rubywebdialogs/index.html
 Thanks, Steven Gibson
 
 == Changelog
+version 0.98
+ updated for rwdtinker version 1.61 
+ add in test harness
+
 version 0.97
+ correct bug in shell command eval
+ beginning to add context help 
  updated for rwdtinker version 1.58
  added rconftool use to update configuration files
  changed applets removal to not use external rm

data/code/01rwdcore/01rwdcore.rb

@@ -7,11 +7,13 @@
 class RwdTinker  < RWDialog
  
   def main
-  @rwd_window = "main"
+    @rwd_window = "main"
     @result = "idle"
     @display= "idle"
-
+    if TestNow 
     
+      rwdtest_harness
+    end
   end
   
   def inspect

data/code/01rwdcore/test_cases.rb

@@ -0,0 +1,126 @@
+# test harness
+def rwdtinker_all_tests 
+print "in rwdtinker all tests\n"
+test_runrwdtinkerbackwindow
+ end
+
+
+def test_runrwdtinkerbackwindow
+   
+require 'test/unit' 
+  begin
+  
+runrwdtinkerbackwindow
+
+   raise NotImplementedError, 'Need to write test_runrwdtinkerbackwindow'
+
+   rescue  NotImplementedError
+  $stderr.print $!
+  
+  end
+  end
+  
+  
+
+  def test_choosenewhelptopic
+    raise NotImplementedError, 'Need to write test_choosenewhelptopic'
+  end
+
+
+  def test_listinstalledfiles
+    raise NotImplementedError, 'Need to write test_listinstalledfiles'
+  end
+
+  
+  def test_listzipfilestoinstall
+    raise NotImplementedError, 'Need to write test_listzipfilestoinstall'
+  end
+
+  def test_loadconfigurationrecord
+    raise NotImplementedError, 'Need to write test_loadconfigurationrecord'
+  end
+
+  def test_loadconfigurationvariables
+    raise NotImplementedError, 'Need to write test_loadconfigurationvariables'
+  end
+
+  def test_loadgemspecrecord
+    raise NotImplementedError, 'Need to write test_loadgemspecrecord'
+  end
+
+  def test_loadrubyslippersconfiguration
+    raise NotImplementedError, 'Need to write test_loadrubyslippersconfiguration'
+  end
+
+  def test_loadrubyslippersconfigurationvariables
+    raise NotImplementedError, 'Need to write test_loadrubyslippersconfigurationvariables'
+  end
+
+  def test_main
+    raise NotImplementedError, 'Need to write test_main'
+  end
+
+  def test_network_demon
+    raise NotImplementedError, 'Need to write test_network_demon'
+  end
+
+  def test_network_start
+    raise NotImplementedError, 'Need to write test_network_start'
+  end
+
+  def test_openappletname
+    raise NotImplementedError, 'Need to write test_openappletname'
+  end
+
+  def test_removeapplet
+    raise NotImplementedError, 'Need to write test_removeapplet'
+  end
+
+  def test_returntomain
+    raise NotImplementedError, 'Need to write test_returntomain'
+  end
+
+  def test_runcontrolcommand
+    raise NotImplementedError, 'Need to write test_runcontrolcommand'
+  end
+
+
+  def test_runhelpwindow
+    raise NotImplementedError, 'Need to write test_runhelpwindow'
+  end
+
+
+  
+
+  def test_runrwdtinkerversion
+    raise NotImplementedError, 'Need to write test_runrwdtinkerversion'
+  end
+
+  def test_runrwdtinkerwin2version
+    raise NotImplementedError, 'Need to write test_runrwdtinkerwin2version'
+  end
+
+  def test_runviewplatform
+    raise NotImplementedError, 'Need to write test_runviewplatform'
+  end
+
+  def test_rwdtinkerversiondiagnostic
+    raise NotImplementedError, 'Need to write test_rwdtinkerversiondiagnostic'
+  end
+
+  def test_rwdwindowreturn
+    raise NotImplementedError, 'Need to write test_rwdwindowreturn'
+  end
+
+  def test_saveconfigurationrecord
+    raise NotImplementedError, 'Need to write test_saveconfigurationrecord'
+  end
+
+
+  def test_viewappletcontents
+    raise NotImplementedError, 'Need to write test_viewappletcontents'
+  end
+
+
+  
+ 

data/code/01rwdcore/test_harness.rb

@@ -0,0 +1,15 @@
+# this to start the test harness
+def rwdtest_harness
+ 
+print "in test harness\n"
+$testharnessarray.each { |x| 
+print "calling #{x}\n"
+eval("#{x}")
+ 
+ }
+ 
+   end
+ 
+
+
+

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/diagnostictab.rb

@@ -3,19 +3,23 @@
 # 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
+
+  
+  
+   require 'resolv'
+   require 'date'
    
-   # return the platform constan
+   # return the platform information
    def runviewplatform
-   @platformdisplay = "Platform is " + RUBY_PLATFORM
+   @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
    
-   # return Rwdtinker version to diagnostic tab
-   def rwdtinkerversiondiagnostic
-   @rwdtinkerversionreturn = "rwdtinker version " + RwdTinkerVersion
-   end
 
  

data/configuration/language.dist

@@ -1,4 +1,4 @@
-##VERSION:1.57
+##VERSION:1.61
 #language selection file
 ##NAME:$lang:0
 #$lang = "jp"

data/configuration/rwdapplicationidentity.dist

@@ -1,3 +1,3 @@
-##VERSION:1.58
-$rwdapplicationidentity = "rwdshell application"
+##VERSION:1.61
+$rwdapplicationidentity = "rwdtinker main application"
 

data/configuration/rwdshell.dist

@@ -1,3 +1,3 @@
-##VERSION:0.97
+##VERSION:0.98
 $shellscript_directory = "scripts"
-RwdShellVersion = "0.97"
+RwdShellVersion = "0.98"

data/configuration/rwdtinker.dist

@@ -1,4 +1,4 @@
-##VERSION:1.58
+##VERSION:1.61
 ConfigurationDir = "configuration" # for use in program - init.rb has this value without using this constant
 CodeName = "rwdtinker"
 CodeNameFile = CodeName + ".rb"
@@ -12,4 +12,4 @@ LangDir = "lang"
    $rwdcontrolports =["13713","13714","13715","13716","13717","13718"]
  $port = 7705
 
-RwdTinkerVersion = "1.58"
+RwdTinkerVersion = "1.61"

data/configuration/tinkerwin2variables.dist

@@ -1,4 +1,4 @@
-##VERSION:1.57
+##VERSION:1.61
 TinkerWin2ConfigurationFileName = "tinkerwin2variables.cnf" # this file name - do not change
 ##NAME:$zipslocation:0
 $zipslocation = "zips" # location of applets to add

data/extras/zip/ioextras.rb

@@ -0,0 +1,114 @@
+module IOExtras
+  module FakeIO
+    def kind_of?(object)
+      object == IO || super
+    end
+  end
+
+  # Implements many of the convenience methods of IO
+  # such as gets, getc, readline and readlines 
+  # depends on: input_finished?, produce_input and read
+  module AbstractInputStream  
+    include Enumerable
+    include FakeIO
+
+    def initialize
+      super
+      @lineno = 0
+      @outputBuffer = ""
+    end
+
+    attr_accessor :lineno
+
+    def readlines(aSepString = $/)
+      retVal = []
+      each_line(aSepString) { |line| retVal << line }
+      return retVal
+    end
+    
+    def gets(aSepString=$/)
+      @lineno = @lineno.next
+      return read if aSepString == nil
+      aSepString="#{$/}#{$/}" if aSepString == ""
+      
+      bufferIndex=0
+      while ((matchIndex = @outputBuffer.index(aSepString, bufferIndex)) == nil)
+	bufferIndex=@outputBuffer.length
+	if input_finished?
+	  return @outputBuffer.empty? ? nil : flush 
+	end
+	@outputBuffer << produce_input
+      end
+      sepIndex=matchIndex + aSepString.length
+      return @outputBuffer.slice!(0...sepIndex)
+    end
+    
+    def flush
+      retVal=@outputBuffer
+      @outputBuffer=""
+      return retVal
+    end
+    
+    def readline(aSepString = $/)
+      retVal = gets(aSepString)
+      raise EOFError if retVal == nil
+      return retVal
+    end
+    
+    def each_line(aSepString = $/)
+      while true
+	yield readline(aSepString)
+      end
+    rescue EOFError
+    end
+    
+    alias_method :each, :each_line
+  end
+
+
+  #relies on <<
+  module AbstractOutputStream 
+    include FakeIO
+
+    def write(data)
+      self << data
+      data.to_s.length
+    end
+
+
+    def print(*params)
+      self << params.to_s << $\.to_s
+    end
+
+    def printf(aFormatString, *params)
+      self << sprintf(aFormatString, *params)
+    end
+
+    def putc(anObject)
+      self << case anObject
+	      when Fixnum then anObject.chr
+	      when String then anObject
+	      else raise TypeError, "putc: Only Fixnum and String supported"
+	      end
+      anObject
+    end
+    
+    def puts(*params)
+      params << "\n" if params.empty?
+      params.flatten.each {
+	|element|
+	val = element.to_s
+	self << val
+	self << "\n" unless val[-1,1] == "\n"
+      }
+    end
+
+  end
+
+end # IOExtras namespace module
+
+
+
+# Copyright (C) 2002-2004 Thomas Sondergaard
+# rubyzip is free software; you can redistribute it and/or
+# modify it under the terms of the ruby license.

data/extras/zip/stdrubyext.rb

@@ -0,0 +1,111 @@
+unless Enumerable.method_defined?(:inject)
+  module Enumerable  #:nodoc:all
+    def inject(n = 0)
+      each { |value| n = yield(n, value) }
+      n
+    end
+  end
+end
+
+module Enumerable #:nodoc:all
+  # returns a new array of all the return values not equal to nil
+  # This implementation could be faster
+  def select_map(&aProc)
+    map(&aProc).reject { |e| e.nil? }
+  end
+end
+
+unless Object.method_defined?(:object_id)
+  class Object
+    # Using object_id which is the new thing, so we need
+    # to make that work in versions prior to 1.8.0
+    alias object_id id
+  end
+end
+
+unless File.respond_to?(:read)
+  class File
+    # singleton method read does not exist in 1.6.x
+    def self.read(fileName)
+      open(fileName) { |f| f.read }
+    end
+  end
+end
+
+class String
+  def starts_with(aString)
+    rindex(aString, 0) == 0
+  end
+
+  def ends_with(aString)
+    index(aString, -aString.size)
+  end
+
+  def ensure_end(aString)
+    ends_with(aString) ? self : self + aString
+  end
+
+  def lchop
+    slice(1, length)
+  end
+end
+
+class Time
+  
+  #MS-DOS File Date and Time format as used in Interrupt 21H Function 57H:
+  # 
+  # Register CX, the Time:
+  # Bits 0-4  2 second increments (0-29)
+  # Bits 5-10 minutes (0-59)
+  # bits 11-15 hours (0-24)
+  # 
+  # Register DX, the Date:
+  # Bits 0-4 day (1-31)
+  # bits 5-8 month (1-12)
+  # bits 9-15 year (four digit year minus 1980)
+  
+  
+  def to_binary_dos_time
+    (sec/2) +
+      (min  << 5) +
+      (hour << 11)
+  end
+
+  def to_binary_dos_date
+    (day) +
+      (month << 5) +
+      ((year - 1980) << 9)
+  end
+
+  # Dos time is only stored with two seconds accuracy
+  def dos_equals(other)
+    to_i/2 == other.to_i/2
+  end
+
+  def self.parse_binary_dos_format(binaryDosDate, binaryDosTime)
+    second = 2 * (       0b11111 & binaryDosTime)
+    minute = (     0b11111100000 & binaryDosTime) >> 5 
+    hour   = (0b1111100000000000 & binaryDosTime) >> 11
+    day    = (           0b11111 & binaryDosDate) 
+    month  = (       0b111100000 & binaryDosDate) >> 5
+    year   = ((0b1111111000000000 & binaryDosDate) >> 9) + 1980
+    begin
+      return Time.local(year, month, day, hour, minute, second)
+    end
+  end
+end
+
+class Module
+  def forward_message(forwarder, *messagesToForward)
+    methodDefs = messagesToForward.map { 
+      |msg| 
+      "def #{msg}; #{forwarder}(:#{msg}); end"
+    }
+    module_eval(methodDefs.join("\n"))
+  end
+end
+
+
+# Copyright (C) 2002, 2003 Thomas Sondergaard
+# rubyzip is free software; you can redistribute it and/or
+# modify it under the terms of the ruby license.