bigtinker 0.93

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

@@ -0,0 +1,69 @@
+  
+
+ Helptext.update(:viewaddresses_help => " Type in the name of the contact you want.
+      
+       Type it as the record file is saved or click on the list
+       
+       
+       Then click the 'Open' button
+       
+       If it finds the record it will open it. It displays the record as text  under the search box.
+",
+
+:editcontact_help => "     Use the 'Edit Contact' tab
+      this is where you can add records.
+      The first field is the filename that will be created. 
+      You can use the person's name,      Ringo Starr
+
+      The following lines for entry are for you to fill in as you want.
+     
+      When you are finished press the Save Changes button 
+      
+      You use this same screen for editing an already saved event
+  
+      For the 'Fill Record' button to work, you need to select an existing record on 'view contact' tab
+",
+:contactutilities_help => " 
+ on the Contacts Utilities tab you can 
+  rename records
+  delete records
+  or attach photos
+  
+ select the name record,
+ put a jpg photo in the /tmp  directory
+ select the photo
+ click on Attach photo, it will rename the photo and copy it to the
+ addresses directory",
+ 
+       :rwdaddresses_configuration => " click on 'Edit Configuration'
+ You can view the configuration file
+ 
+  You can edit the configuration
+  
+  Remember to reload the configuration variables if you want your
+  changes used.",
+  :rwdaddresses_sync => "Sync for multiple computers
+
+ If you are like me, you have more than one system
+ I use rwdTinker at home on my Linux laptop
+ at work I use it on XP
+ on the go I use rwdtinker on my Zaurus PDA
+ So I am adding contacts on different machines.
+ There is  a function to help sync the separate systems
+  
+ in 'Selection Panel' click on 'Open Addresses Sync Window'
+ 
+ First you need your ftp details set in the
+ configuration/rwdaddresses.cnf file
+ 
+ you can upload your events from your local names directory to the ftp site
+ you can download contacts from the ftp site to your local updates directory
+ you can perform a sync which finds remote contacts and adds them to your local
+ names directory
+ 
+ There is a button to delete the update directory when finished"
+
+       
+      
+
+)

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

@@ -0,0 +1,9 @@
+#jumplinkupdate 
+
+JumpLink.update(:RwdAddressesMainWindow=>"runrwdaddressesbackwindow",
+:RwdAddressesConfiguration=>"runrwdaddressesmenu10",
+:ViewContactRecord=>"runrwdaddressesbackwindow",
+:AddressesSyncTab=>"runrwdaddressesmenu4"
+
+)
+$rwdjumplink +=["RwdAddressesMainWindow","RwdAddressesConfiguration","AddressesSyncTab"]

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

@@ -0,0 +1,15 @@
+# this code is to list the contact names
+def listnamerecordfiles
+	if File.exist?($addressfiles_directory)
+		fileList      = Dir.new($addressfiles_directory).entries.sort.delete_if { |x| ! (x =~ /nam$/) }
+		@listphotosfromtmp = ""
+		@listnamerecordfilesresult  = fileList.rwd_method("fillcontactrecordname")
+	end
+end
+
+# this method is to help fill in list of names
+def fillcontactrecordname(inffile)
+	applet                = inffile.gsub(/\.nam$/, "")
+	@a_viewnamedata       = applet
+end
+

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

@@ -0,0 +1,15 @@
+# this code is to list the vcard names
+def listvcardrecordfiles
+	if File.exist?($addressfiles_directory)
+		fileList      = Dir.new($addressfiles_directory).entries.sort.delete_if { |x| ! (x =~ /vcf$/) }
+		
+		@listvcardrecordfilesresult  = fileList.rwd_method("fillvcardrecordname")
+	end
+end
+
+# this method is to help fill in list of names
+def fillvcardrecordname(inffile)
+	applet                = inffile.gsub(/\.vcf$/, "")
+	@a_viewvcarddata       = applet
+end
+

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

@@ -0,0 +1,45 @@
+# this method puts the configuration rexord on the screen
+def loadrwdaddressesconfiguration
+	
+	require 'fileutils'
+	
+	@a_adconfigurationfilename = "rwdaddresses.cnf" 
+	
+	
+	begin # exception trapped block
+		
+		Dir.chdir($progdir)
+		fileName = File.join(ConfigurationDir, "rwdaddresses.cnf")
+		
+		
+		fd = File.open(fileName,"r")
+		@a_adconfigline1=        fd.readline.chomp
+		@a_adconfigline2 =  fd.readline.chomp
+		@a_adconfigline3 = fd.readline.chomp
+		@a_adconfigline4 = fd.readline.chomp
+		@a_adconfigline5 = fd.readline.chomp
+		@a_adconfigline6 = fd.readline.chomp 
+		@a_adconfigline7 =fd.readline.chomp
+		@a_adconfigline8 = fd.readline.chomp
+		@a_adconfigline9 = fd.readline.chomp
+		@a_adconfigline10 = fd.readline.chomp
+		@a_adconfigline11 = fd.readline.chomp
+		@a_adconfigline12 = fd.readline.chomp
+		@a_adconfigline13 = fd.readline.chomp
+		@a_adconfigline14 = fd.readline.chomp
+		@a_adconfigline15 = fd.readline.chomp
+		@a_adconfigline16 = fd.readline.chomp
+		@a_adconfigline17 = fd.readline.chomp
+		@a_adconfigline18 = fd.readline.chomp
+		@a_adconfigline19 = fd.readline.chomp
+		
+		while ! fd.eof?
+			@extraadconfigdatadisplay = fd.readline
+		end
+		fd.close
+	rescue SystemCallError, StandardError
+		$stderr.print "system call error: " + $!
+	end # exception rescue
+	
+end
+

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

@@ -0,0 +1,14 @@
+# this method loads the on screen variables into the running class
+def loadrwdaddressesconfigurationvariables
+
+	configfiletoload = File.join(ConfigurationDir,"rwdaddresses.cnf")
+	begin
+		load configfiletoload
+		@extraadconfigdatadisplay = ""
+		@newadconfigurationresult = "Config Variables loaded"
+	rescue
+		@extraadconfigdatadisplay = ""
+		@newadconfigurationresult = "loading error"
+	end
+end
+

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

@@ -0,0 +1,30 @@
+# this method views an existing address record
+def loadnamerecord
+
+	require 'fileutils'
+	@a_filename = $currentnametext
+
+	begin # exception trapped block
+
+		fileName = $addressfiles_directory + "/" + $currentnametext + ".nam"
+
+		fd = File.open(fileName,"r")
+		@a_name =        fd.readline.chomp
+		@a_address = fd.readline.chomp
+		@a_citystatezip  = fd.readline.chomp
+		@a_phone = fd.readline.chomp
+		@a_email = fd.readline.chomp
+		@a_comment1 = fd.readline.chomp 
+		@a_comment2 =fd.readline.chomp
+		@a_comment3 = fd.readline.chomp
+
+		while ! fd.eof?
+			@extranamedatadisplay = fd.readline
+		end
+		fd.close
+	rescue SystemCallError, StandardError
+		$stderr.print "system call error: " + $!
+	end # exception rescue
+
+end
+

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

@@ -0,0 +1,30 @@
+# this code is to call the help window
+def runhelpwindowrwdaddresses
+	
+	$help_topic = "viewaddresses_help"
+	if @rwd_tab == "Viewnamedata"
+		$help_topic = "viewaddresses_help"
+	end
+	if @rwd_tab == "viewaddressesconfiguration"
+		$help_topic = "rwdaddresses_configuration"
+	end
+	if @rwd_tab == "editnamerecordfile"
+		$help_topic = "editcontact_help"
+	end
+	if @rwd_tab == "contactutilitiesrwdaddresses"
+		$help_topic = "contactutilities_help"
+	end    
+	if @rwd_tab  == "rwdaddressessynctasks"
+		$help_topic = "rwdaddresses_sync"
+	end
+	$helptopicsarray =  $helptopicsarray | ["viewaddresses_help","editcontact_help","rwdaddresses_configuration","rwdaddresses_sync"]
+	
+	
+	if @rwd_window != "rwdtinkerhelpwindow"
+		$previouswindow = @rwd_window
+		$previoustab = @rwd_tab
+	end
+	runhelpwindow
+end
+
+

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

@@ -0,0 +1,15 @@
+# this code is to change the contact name
+def changenamedata
+	oldName =  $addressfiles_directory + "/" + @a_viewnamedata +  ".nam"
+	if ! @a_changenamedata.empty? 
+
+		newName =  $addressfiles_directory + "/" + @a_changenamedata + ".nam"
+		File.rename(oldName, newName)
+		oldphotoName =  $addressfiles_directory + "/" + @a_viewnamedata + ".jpg"
+		newphotoName =  $addressfiles_directory + "/" + @a_changenamedata + ".jpg"
+		if  File.exist?(oldphotoName)
+			File.rename(oldphotoName, newphotoName)
+		end
+	end    
+end
+

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

@@ -0,0 +1,10 @@
+# Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a contact book
+# For  information see http://www.rubyforge.net/projects/rwdapplications
+
+# call the window  
+def runrwdaddresseswindow
+	@rwd_window = "main"
+	@rwd_tab = "Viewnamedata"
+end   
+

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

@@ -0,0 +1,34 @@
+# Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
+# 
+# For more information about  see http://www.rubyforge.net/projects/rwdapplications
+
+# call the window  
+def runrwdaddressesmenu1
+	@rwd_window = "rwdaddresswindow"
+	@rwd_tab = "Viewnamedata"
+end   
+def runrwdaddressesmenu2
+	@rwd_window = "rwdaddresswindow"
+	@rwd_tab = "editnamerecordfile"
+end   
+
+
+def runrwdaddressesmenu3
+	@rwd_window = "rwdaddresswindow"
+	@rwd_tab = "contactutilitiesrwdaddresses"
+end  
+def runrwdaddressesmenu4
+	@rwd_window = "rwdaddressessyncwindow"
+	@rwd_tab = "rwdaddressessynctasks"
+end  
+
+def runrwdaddressesmenu10
+	@rwd_window = "rwdaddressessyncwindow"
+	@rwd_tab = "viewaddressesconfiguration"
+end 
+
+def runrwdaddressesmenu11
+	@rwd_window = "rwdaddresswindow"
+	@rwd_tab = "documentsrwdtinkerone"
+end 
+

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

@@ -0,0 +1,10 @@
+# Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a contact book
+# For  information  see http://www.rubyforge.net/projects/rwdapplications
+
+# call the window  
+def runrwdaddressessyncbackwindow
+	@rwd_window = "rwdaddressessyncwindow"
+	@rwd_tab = "rwdaddressessynctasks"
+end   
+

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

@@ -0,0 +1,10 @@
+# Application RwdAddresses orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a contact book
+# For  information  see http://www.rubyforge.net/projects/rwdapplications
+
+# call the window  
+def runrwdaddressesbackwindow
+	@rwd_window = "rwdaddresseswindow"
+	@rwd_tab="Viewnamedata"
+end   
+

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

@@ -0,0 +1,13 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a framework for writing programs from RubyWebDialogs
+# For information  see http://www.rubyforge.net/projects/rwdapplications
+
+# return the version constant defined in the config file
+def runrwdaddressesversion
+	@rwd_window = "applicationversion"
+	@versionappnamedisplay = "RwdAddresses"
+	@versioncopyrightdisplay = "(c) 2004 Steven Gibson "
+	@versionnumberdisplay =  "Version " + RwdAddressesVersion
+
+end
+

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

@@ -0,0 +1,10 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# This application is a framework for writing programs from RubyWebDialogs
+# For  information see http://www.rubyforge.net/projects/rwdapplications
+
+# return the version constant defined in the config file
+def rwdaddresseshelpaboutsetup
+return ["RwdAddresses","(c) 2004,2005 Steven Gibson ","Version #{RwdAddressesVersion}"]
+end
+
+

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

@@ -0,0 +1,20 @@
+# this method adds a new address record
+def saverwdaddressesconfiguration
+	require 'fileutils'
+	
+	newname = "rwdaddresses.cnf" # grab the filename to create
+
+
+	newdata =@a_adconfigline1.to_s + "\n" + @a_adconfigline2.to_s + "\n" + @a_adconfigline3.to_s + "\n" + @a_adconfigline4.to_s + "\n" + @a_adconfigline5.to_s + "\n" + @a_adconfigline6.to_s + "\n" + @a_adconfigline7.to_s + "\n" + @a_adconfigline8.to_s + "\n" + @a_adconfigline9.to_s + "\n" +    @a_adconfigline10.to_s + "\n" + @a_adconfigline11.to_s + "\n" + @a_adconfigline12.to_s + "\n" + @a_adconfigline13.to_s + "\n" + @a_adconfigline14.to_s + "\n" + @a_adconfigline15.to_s + "\n" + @a_adconfigline16.to_s + "\n" + @a_adconfigline17.to_s + "\n" + @a_adconfigline18.to_s + "\n" + @a_adconfigline19.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.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

@@ -0,0 +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
+
+
+	rescue
+		print "sync error"
+	end
+end

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

@@ -0,0 +1,46 @@
+# test harness
+
+	
+require 'test/unit/testcase'
+require 'test/unit/assertions'
+include Test::Unit::Assertions
+include Test::Unit  
+def rwdaddresses_all_tests 
+	print "in rwdaddresses all tests\n"
+  $testrwdaddressestestcase = TestSuite.new
+	test_runrwdaddresses
+end
+
+def test_runrwdaddresses
+
+
+	begin
+  testasserts = 0
+  print "Starting rwdaddresses tests!\n"
+     runselectiontab
+     assert_equal("selectiontab",@rwd_tab) ; testasserts += 1
+    runrwdaddressesmenu10   
+    assert_equal("viewaddressesconfiguration",@rwd_tab) ; testasserts += 1    
+        loadrwdaddressesconfiguration
+    assert_equal("rwdaddresses.cnf",@a_adconfigurationfilename) ; testasserts += 1    
+     
+ $stderr.print "tests completed succesfully!\n"
+ $stderr.print testasserts, " asserts performed\n"
+
+	rescue  NotImplementedError, Exception
+		$stderr.print $!
+
+	end
+  
+end
+
+
+
+def teststobedown
+ runtinkerhelpabout
+          assert_equal("rwdtinkerhelpwindow",@rwd_tab)  ; testasserts += 1
+end
+
+
+
+

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

@@ -0,0 +1,46 @@
+# upload files to a ftp server
+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"
+                end
+ rescue
+ print "ftp error"
+ end
+ begin
+ if fileListarray
+ remotelist = ftp.nlst($rwdaddresses_ftpdirectory)
+ uploadListarray =  fileListarray - remotelist
+ 
+   uploadListarray.each do |temp|
+ tmpfilenametoupload = File.join($addressfiles_directory,temp)
+ 
+    ftp.puttextfile(tmpfilenametoupload  , temp)
+ 
+    @rwdaddressesftpdisplay  =   @rwdaddressesftpdisplay + temp + "\n"  
+   end
+  
+ 
+        end
+ rescue
+ 
+  print "ftp error code: #{ftp.last_response}"
+ ensure
+  ftp.close
+ end
+ 
+end

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

@@ -0,0 +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

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

@@ -0,0 +1,28 @@
+#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
+
+		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

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

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

@@ -0,0 +1,23 @@
+#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

@@ -0,0 +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")
+end
+
+def filltmpcontactphoto(inffile)
+	applet                = inffile.gsub(/\.nam$/, "")
+	@a_tmpphotoname       = applet
+end
+