rwdaddresses 1.01 → 1.02

data/code/superant.com.rwdaddresses/savevcardrecord.rb

@@ -0,0 +1,76 @@
+  # this method adds a new  record
+  def savevcardrecord 
+  Dir.chdir($progdir) 
+ require 'fileutils'
+   require 'extras/vpim/maker/vcard'
+   if ! @a_filename.empty?
+   newname = "%s" %   [@a_filename] # grab the new filename to create
+   
+	 fullnewname = newname  + ".vcf"
+       if ! @a_name.empty?
+        contactnameText =  @a_name.to_s
+     else
+        contactnameText = @a_filename.to_s 
+    end
+     card = Vpim::Maker::Vcard.make(contactnameText) do |card|
+     card.add_name do |name|
+      name.family = contactnameText
+      
+    end
+    if ! @a_address.empty?
+    addressText = @a_address.to_s
+    else
+    addressText = " "
+    end
+      if ! @a_citystatezip.empty?
+    localityText = @a_citystatezip.to_s
+    else
+    localityText = " "
+    end
+    
+     card.add_addr do |addr|
+    addr.preferred = true
+    addr.location = 'home'
+    addr.street = addressText
+    addr.locality = localityText
+    addr.country = 'rwdaddress'
+    end
+      if ! @a_phone.empty?
+    phoneText = @a_phone.to_s
+    else
+    phoneText = " "
+    end
+    
+    
+     card.add_tel(phoneText) do |tel|
+    tel.location = 'home'
+    
+  end
+    if ! @a_email.empty?
+    emailText = @a_email.to_s
+    else
+    emailText = " "
+    end
+  
+  card.add_email(emailText) { |e| e.location = 'home' }
+    
+    
+  
+
+  end # end of vcard creation 
+    
+  end
+  vCardString = card.to_s
+    p vCardString
+    
+        begin # exception trapped block
+          fileName = File.join($addressfiles_directory, fullnewname )
+       	fd = File.open(fileName,"w")
+	     fd.print( vCardString ) # save the record info to the file
+	     fd.close
+          @createnewnamerecorddisplay= vCardString # show the record info in the browser
+        rescue SystemCallError, StandardError
+          $stderr.print "system call error: " + $!
+        end # exception rescue
+    
+  end

data/code/superant.com.rwdaddresses/syncrwdaddress.rb

@@ -1,30 +1,28 @@
 def syncrwdaddressdata
-    require 'fileutils'
-   @rwdaddressessyncresult  = ""
- begin
-    
-@rwdaddressessyncresult  = "updating local files" + "\n" 
-    Dir.chdir($progdir)
-    
-    localfileListarray = Dir.new($addressfiles_directory).entries.sort.delete_if { |tmpfile| ! (tmpfile =~ /nam$/) }
-      remotefileListarray = Dir.new($rwdaddresses_updatedirectory ).entries.sort.delete_if { |tmpfile| ! (tmpfile =~ /nam$/) }
-  
-    tempupdatefilelistarray = remotefileListarray -   localfileListarray 
-    
-   if  tempupdatefilelistarray
-           tempupdatefilelistarray.each do |temp|
-            tmpfilenametosync = File.join($rwdaddresses_updatedirectory,temp)
-            tmpfilenamecopied = File.join($addressfiles_directory,temp)
-             FileUtils.cp( tmpfilenametosync, tmpfilenamecopied)
-            @rwdaddressessyncresult  =   @rwdaddressessyncresult + temp + "\n"   
-      
-      end
-      end
+	require 'fileutils'
+	@rwdaddressessyncresult  = ""
+	begin
 
-  
-rescue
- 
+		@rwdaddressessyncresult  = "updating local files" + "\n" 
+		Dir.chdir($progdir)
 
-print "sync error"
-end
+		localfileListarray = Dir.new($addressfiles_directory).entries.sort.delete_if { |tmpfile| ! (tmpfile =~ /nam$/) }
+		remotefileListarray = Dir.new($rwdaddresses_updatedirectory ).entries.sort.delete_if { |tmpfile| ! (tmpfile =~ /nam$/) }
+
+		tempupdatefilelistarray = remotefileListarray -   localfileListarray 
+
+		if  tempupdatefilelistarray
+			tempupdatefilelistarray.each do |temp|
+				tmpfilenametosync = File.join($rwdaddresses_updatedirectory,temp)
+				tmpfilenamecopied = File.join($addressfiles_directory,temp)
+				FileUtils.cp( tmpfilenametosync, tmpfilenamecopied)
+				@rwdaddressessyncresult  =   @rwdaddressessyncresult + temp + "\n"   
+
+			end
+		end
+
+
+	rescue
+		print "sync error"
+	end
 end

data/code/superant.com.rwdaddresses/uploadrwdaddressfiles.rb

@@ -1,30 +1,30 @@
 def uploadrwdaddressfiles
-  require 'net/ftp'
-  BasicSocket.do_not_reverse_lookup = true 
-   @rwdaddressftpdisplays = ""
-  begin
-    ftp = Net::FTP::new($rwdaddresses_ftpsite)
-@rwdaddressesftpdisplay  = "files uploaded" + "\n" 
-    
-    fileListarray = Dir.new($addressfiles_directory).entries.sort.delete_if { |tmpfile| ! (tmpfile =~ /nam$/) }
-    if fileListarray
-      ftp.debug_mode = false
-      ftp.login($rwdaddresses_ftplogin, $rwdaddresses_ftppassword)
-      ftp.chdir($rwdaddresses_ftpdirectory)
-      print "I'm in the directory ", ftp.pwd(), "\n"
-      fileListarray.each do |temp|
-             tmpfilenametoupload = File.join($addressfiles_directory,temp)
-             ftp.puttextfile(tmpfilenametoupload  , temp)
-             @rwdaddressesftpdisplay  =   @rwdaddressesftpdisplay + temp + "\n"   
-        end
-      end
-   ftp.close
-  
-rescue
- 
- if ftp
- ftp.close
-end
-print "ftp error"
-end
+	require 'net/ftp'
+	BasicSocket.do_not_reverse_lookup = true 
+	@rwdaddressftpdisplays = ""
+	begin
+		ftp = Net::FTP::new($rwdaddresses_ftpsite)
+		@rwdaddressesftpdisplay  = "files uploaded" + "\n" 
+
+		fileListarray = Dir.new($addressfiles_directory).entries.sort.delete_if { |tmpfile| ! (tmpfile =~ /nam$/) }
+		if fileListarray
+			ftp.debug_mode = false
+			ftp.login($rwdaddresses_ftplogin, $rwdaddresses_ftppassword)
+			ftp.chdir($rwdaddresses_ftpdirectory)
+			print "I'm in the directory ", ftp.pwd(), "\n"
+			fileListarray.each do |temp|
+				tmpfilenametoupload = File.join($addressfiles_directory,temp)
+				ftp.puttextfile(tmpfilenametoupload  , temp)
+				@rwdaddressesftpdisplay  =   @rwdaddressesftpdisplay + temp + "\n"   
+			end
+		end
+		ftp.close
+
+	rescue
+
+		if ftp
+			ftp.close
+		end
+		print "ftp error"
+	end
 end

data/code/superant.com.rwdaddresses/viewaddressconfiguration.rb

@@ -1,21 +1,21 @@
-  def viewaddressesconfiguration 
-    require 'fileutils'
-    begin # exception trapped block
-    
-     Dir.chdir($progdir)
-     rwdaddrssesconfigurationfile = File.join( "configuration", "rwdaddresses.cnf" )
-     if  File.exist?(rwdaddrssesconfigurationfile)
-       fd = File.open(rwdaddrssesconfigurationfile,"r")
-       @rwdaddressesconfigurationtext = " "
-       while ! fd.eof?
-	        @rwdaddressesconfigurationtext = fd.read
-       end
-       fd.close
-     else
-	@rwdaddressesconfigurationtext  = "File error"
-     end
-    rescue SystemCallError, StandardError
-     $stderr.print "system call error: " + $!
-     @rwdaddressesconfigurationtext = "File error"
-    end # exception rescue
-  end
+def viewaddressesconfiguration 
+	require 'fileutils'
+	begin # exception trapped block
+
+		Dir.chdir($progdir)
+		rwdaddrssesconfigurationfile = File.join( "configuration", "rwdaddresses.cnf" )
+		if  File.exist?(rwdaddrssesconfigurationfile)
+			fd = File.open(rwdaddrssesconfigurationfile,"r")
+			@rwdaddressesconfigurationtext = " "
+			while ! fd.eof?
+				@rwdaddressesconfigurationtext = fd.read
+			end
+			fd.close
+		else
+			@rwdaddressesconfigurationtext  = "File error"
+		end
+	rescue SystemCallError, StandardError
+		$stderr.print "system call error: " + $!
+		@rwdaddressesconfigurationtext = "File error"
+	end # exception rescue
+end

data/code/superant.com.rwdaddresses/viewnamedata.rb

@@ -1,27 +1,28 @@
-  def viewnamedata 
-        require 'fileutils'
-        $currentnametext = "%s" % [@a_viewnamedata]
-	      photoname = $currentnametext + ".jpg"
-        begin # exception trapped block
-        path_to = File.join( "rwd_files", "contacttmp.jpg" )
-        path_from = File.join($addressfiles_directory, photoname )
-        if ! File.exist?(path_from)
-        path_from = File.join($addressfiles_directory,"nophoto.jpg" )
-        end
-         
-         Dir.chdir($progdir)
-        FileUtils.cp(path_from, path_to)
-         sleep $photodelay
-	      fileName = $addressfiles_directory + "/" + $currentnametext + ".nam"
-        
-	      fd = File.open(fileName,"r")
-	      @viewnamedatadisplay = " "
-	      while ! fd.eof?
-	        @viewnamedatadisplay = fd.read
-	      end
-        fd.close
-        rescue SystemCallError, StandardError
-            $stderr.print "system call error: " + $!
-        end # exception rescue
+#view name
+def viewnamedata 
+	require 'fileutils'
+	$currentnametext = "%s" % [@a_viewnamedata]
+	photoname = $currentnametext + ".jpg"
+	begin # exception trapped block
+		path_to = File.join( "rwd_files", "contacttmp.jpg" )
+		path_from = File.join($addressfiles_directory, photoname )
+		if ! File.exist?(path_from)
+			path_from = File.join($addressfiles_directory,"nophoto.jpg" )
+		end
 
-  end
+		Dir.chdir($progdir)
+		FileUtils.cp(path_from, path_to)
+		sleep $photodelay
+		fileName = $addressfiles_directory + "/" + $currentnametext + ".nam"
+
+		fd = File.open(fileName,"r")
+		@viewnamedatadisplay = " "
+		while ! fd.eof?
+			@viewnamedatadisplay = fd.read
+		end
+		fd.close
+	rescue SystemCallError, StandardError
+		$stderr.print "system call error: " + $!
+	end # exception rescue
+
+end

data/code/superant.com.rwdaddresses/viewphoto.rb

@@ -1,4 +1,4 @@
-  def viewcontactphoto
- @rwd_window = "contactphoto"
- 
-  end
+def viewcontactphoto
+	@rwd_window = "contactphoto"
+end
+

data/code/superant.com.rwdaddresses/viewrwdaddressesconfiguration.rb

@@ -1,21 +1,23 @@
-  def viewrwdaddressesconfiguration 
-    require 'fileutils'
-    begin # exception trapped block
-    
-     Dir.chdir($progdir)
-     rwdaddressesconfigurationfile = File.join( "configuration", "rwdaddresses.cnf" )
-     if  File.exist?(rwdaddressesconfigurationfile)
-       fd = File.open(rwdaddressesconfigurationfile,"r")
-       @rwdaddressesconfigurationtext = " "
-       while ! fd.eof?
-	        @rwdaddressesconfigurationtext = fd.read
-       end
-       fd.close
-     else
-	@rwdaddressesconfigurationtext  = "File error"
-     end
-    rescue SystemCallError, StandardError
-     $stderr.print "system call error: " + $!
-     @rwdaddressesconfigurationtext = "File error"
-    end # exception rescue
-  end
+#view configuration
+def viewrwdaddressesconfiguration 
+	require 'fileutils'
+	begin # exception trapped block
+
+		Dir.chdir($progdir)
+		rwdaddressesconfigurationfile = File.join( "configuration", "rwdaddresses.cnf" )
+		if  File.exist?(rwdaddressesconfigurationfile)
+			fd = File.open(rwdaddressesconfigurationfile,"r")
+			@rwdaddressesconfigurationtext = " "
+			while ! fd.eof?
+				@rwdaddressesconfigurationtext = fd.read
+			end
+			fd.close
+		else
+			@rwdaddressesconfigurationtext  = "File error"
+		end
+	rescue SystemCallError, StandardError
+		$stderr.print "system call error: " + $!
+		@rwdaddressesconfigurationtext = "File error"
+	end # exception rescue
+end
+

data/code/superant.com.rwdaddresses/viewtmpcontactphoto.rb

@@ -1,12 +1,12 @@
 # this code is to list the photo names
 def viewtmpcontactphoto
-  fileList      = Dir.new($tmpphoto_directory).entries.sort.delete_if { |x| ! (x =~ /jpg$/) }
-  @listnamerecordfilesresult = ""
-  @listphotosfromtmp  = fileList.rwd_method("filltmpcontactphoto")
+	fileList      = Dir.new($tmpphoto_directory).entries.sort.delete_if { |x| ! (x =~ /jpg$/) }
+	@listnamerecordfilesresult = ""
+	@listphotosfromtmp  = fileList.rwd_method("filltmpcontactphoto")
 end
- 
+
 def filltmpcontactphoto(inffile)
-  applet                = inffile.gsub(/\.nam$/, "")
-  @a_tmpphotoname       = applet
+	applet                = inffile.gsub(/\.nam$/, "")
+	@a_tmpphotoname       = applet
 end
 

data/code/superant.com.rwdaddresses/viewvcarddata.rb

@@ -0,0 +1,22 @@
+#view name
+def viewvcarddata 
+	require 'fileutils'
+	$currentnametext = "%s" % [@a_viewvcarddata]
+	
+	begin # exception trapped block
+		
+
+		
+		fileName = $addressfiles_directory + "/" + $currentnametext + ".vcf"
+
+		fd = File.open(fileName,"r")
+		@viewvcarddatadisplay = " "
+		while ! fd.eof?
+			@viewvcarddatadisplay = fd.read
+		end
+		fd.close
+	rescue SystemCallError, StandardError
+		$stderr.print "system call error: " + $!
+	end # exception rescue
+
+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,24 +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 +  "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