Changeset 0db54a1 in tol for tolbase

Timestamp:

Jan 11, 2012, 9:41:17 AM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

455a6d5

Parents:

6b78409

Message:

refs #1191, limpiamos el paquete antes de instalar para que info.oza se actualice correctamente, se crea un backup que se restaura en caso de error

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@4005 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/toltk/tolpkg.tcl (modified) (2 diffs)

tolbase/lib/toltk/tolpkg.tcl

@@ -23 +23 @@
 9 -- y2011m11d26h15i11s00.000
 10 -- 1154572
+}
+
+proc ::TolPkg::GetPkgDirectory { p } {
+  set localRoot [ file normalize \
+                      [ toltcl::eval { Text TolPackage::_.localRoot } ] ]
+  return [ file join $localRoot "Client" $p ]
+}
+
+proc ::TolPkg::BackupPackage { p {delete 0}} {
+  set path [ GetPkgDirectory $p ]
+  if { [ file exists $path ] } {
+    set bak "${path}.bak"
+    set op [ expr { $delete ? "rename" : "copy" } ]
+    puts "file $op -force $path $bak"
+    return [ file $op -force $path $bak ]
+  } else {
+    return 0
+  }
+}
+
+proc ::TolPkg::RestoreBackup { p { delete 0 } } {
+  set path [ GetPkgDirectory $p ]
+  set bak "${path}.bak"
+  if { [ file exists $bak ] } {
+    set op [ expr { $delete ? "rename" : "copy" } ]
+    return [ file $op -force $bak $path ]
+  } else {
+    return 0
+  }
+}
+
+proc ::TolPkg::DeleteBackup { p } {
+  set path [ GetPkgDirectory $p ]
+  set bak "${path}.bak"
+  return [ file delete -force $bak ]
 }
 
@@ -182 +217 @@
 proc ::TolPkg::RemoteInstall { pkg repo } {
   puts "::TolPkg::RemoteInstall $pkg $repo"
+  BackupPackage $pkg 1
   set tolexpr [ string map [ list %p $pkg %r $repo ] {
     Real TolPackage::Client::RemoteInstall( "%r", "%p", 1 )
   } ]
-  return [ toltcl::eval $tolexpr ]
+  set result [ toltcl::eval $tolexpr ]
+  if { [ string is boolean $result ] && $result } {
+    DeleteBackup $pkg
+  } else {
+    RestoreBackup $pkg
+  }
+  return $result
 }