[Amsn-commits] msn autoupdate.tcl,1.26,1.27 plugins.tcl,1.106,1.107

[Fred <gad...@us...>]

Update of /cvsroot/amsn/msn
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9198

Modified Files:
	autoupdate.tcl plugins.tcl 
Log Message:
Fix some bugs with autoupdate that could occur if there is a connection problem


Index: plugins.tcl
===================================================================
RCS file: /cvsroot/amsn/msn/plugins.tcl,v
retrieving revision 1.106
retrieving revision 1.107
diff -C2 -d -r1.106 -r1.107
*** plugins.tcl	20 May 2005 05:55:37 -0000	1.106
--- plugins.tcl	29 May 2005 13:12:17 -0000	1.107
***************
*** 1337,1340 ****
--- 1337,1342 ----
  		set program_dir [set ::program_dir]
  
+ 		if { [catch {
+ 		
  		# If no URL is given, look at the CVS URL
  		if { $URL == "" } {
***************
*** 1388,1391 ****
--- 1390,1399 ----
  		
  		return $place
+ 		
+ 		} ] } {
+ 		
+ 		return 0
+ 		
+ 		}
  
  	}

Index: autoupdate.tcl
===================================================================
RCS file: /cvsroot/amsn/msn/autoupdate.tcl,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** autoupdate.tcl	29 Apr 2005 09:47:40 -0000	1.26
--- autoupdate.tcl	29 May 2005 13:12:17 -0000	1.27
***************
*** 739,758 ****
  		set langcodes [list]
  
! 		foreach langcode $::lang::UpdatedLang {
! 			if { [::autoupdate::ReadLangSelected $langcode] == 1} {
! 				set langcodes [lappend langcodes $langcode]
  			}
  		}
  
! 		::lang::UpdateLang $langcodes
! 
! 
! 		foreach plugin $::plugins::UpdatedPlugins {
! 			set name [lindex $plugin 6]
! 			if { [::autoupdate::ReadPluginSelected $name] == 1 } {
! 				::plugins::UpdatePlugin $plugin
  			}
  		}
! 
  		::autoupdate::UpdateLangPlugin_close
  
--- 739,760 ----
  		set langcodes [list]
  
! 		if { [info exists ::lang::UpdatedLang] && $::lang::UpdatedLang != "" } {
! 			foreach langcode $::lang::UpdatedLang {
! 				if { [::autoupdate::ReadLangSelected $langcode] == 1} {
! 					set langcodes [lappend langcodes $langcode]
! 				}
  			}
+ 			::lang::UpdateLang $langcodes
  		}
  
! 		if { [info exists ::plugins::UpdatedPlugins] && $::plugins::UpdatedPlugins != ""} {
! 			foreach plugin $::plugins::UpdatedPlugins {
! 				set name [lindex $plugin 6]
! 				if { [::autoupdate::ReadPluginSelected $name] == 1 } {
! 					::plugins::UpdatePlugin $plugin
! 				}
  			}
  		}
! 		
  		::autoupdate::UpdateLangPlugin_close