rwdschedule 0.98 → 0.99

data/code/01rwdcore/uploadreturns.rb

@@ -1,62 +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
+	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

@@ -1,99 +1,96 @@
 # 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
+	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
 
- if remotehostnotfound
-     @remotecommandresult =  "Remote Host not running"
- 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
-
-
+
+	@remoteportoptions = $rwdcontrolports.rwd_options
+	@remotecommandoptions = ["query","stop"].rwd_options
+end

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

@@ -1,25 +1,19 @@
 # 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
-  
+# For information  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
-   
+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/installapplet.rb

@@ -1,24 +1,25 @@
 # code in install rwdtinker applets - now uses ruby.zip module
-  def installapplet
-   
-    nametext = "%s" % [@a_installapplet]
+def installapplet
 
-        begin # exception trapped block
+	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
+		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
 
-  end

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

@@ -1,20 +1,21 @@
 # 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
+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

@@ -1,19 +1,20 @@
 # 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
+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
+