Changeset 08d3a10 in tol

Timestamp:

Oct 19, 2010, 9:12:40 AM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

cc468c0

Parents:

a7820f3

Message:

Mejora en el control de errores de BuildAndUploadPackage
Nuevo método RemovePackageVersion para el borrado de paquetes

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

File:

• tol/stdlib/general/TolPackage/server.tol (modified) (5 diffs)

tol/stdlib/general/TolPackage/server.tol

@@ -179 +179 @@
 "creado con TolPackage::Server::BuildPackage y dado por el argumento:\n"
 "  Text pkg.path.zip = \"<directory>/<name>.<high>.<low>.zip\"\n";
-Real UploadPackage(NameBlock dbConnect, Text pkg.path.zip)
+Real UploadPackage(NameBlock repository.db, Text pkg.path.zip)
 //////////////////////////////////////////////////////////////////////////////
 {
@@ -212 +212 @@
     Real pkg::_.autodoc.version.low := nu_version_low
   });
-  Real dbConnect::Open(0);
+  Real repository.db::Open(0);
   Real DBExecQuery("set client_encoding to '""latin1""'");
   Text repository.query = "
@@ -286 +286 @@
       "Package is already in the repository. Please upgrade the "
       "version numbers or delete the register of existent package.","E"));
-    Real dbConnect::Close(0);
+    Real repository.db::Close(0);
     num_reg
   })
@@ -302 +302 @@
 "pero se puede borrar si se desea.\n"
 "Por último se chequeará la instalación según lo indicado:"
-" Si checkInstallMode = \"local\" se usa la copia local comprimida.\n"
-" Si checkInstallMode = \"remote\" se instala desde el repositorio.\n"
-" En otro caso no se instala nada.";
+"  Si checkInstallMode = \"local\" se usa la copia local comprimida.\n"
+"  Si checkInstallMode = \"remote\" se instala desde el repositorio.\n"
+"  En otro caso no se instala nada.\n"
+"Devuelve un código que indica en qué fase ha habido problemas:\n"
+"  0 todo parece haber ido bien\n"
+"  1 hubo fallos en la construcción (entonces la subida no se intenta)\n"
+"  2 no hubo fallos en la construcción pero sí en la subida (la instalación no se intenta)\n"
+"  3 no hubo fallos en la construcción ni en la subida pero la instalación ha dado errores\n";
 Real BuildAndUploadPackage(
   Text name,                //Nombre del paquete (sin versión)
@@ -313 +318 @@
 //////////////////////////////////////////////////////////////////////////////
 {
+  Real nErr0 = Copy(NError);
   Text tmp = _.localRoot;
   Real OSDirMake(tmp);
   Text pkg.path.zip = TolPackage::Server::BuildPackage(
     name, sourceRoot, tmp, True);
-  Real TolPackage::Server::UploadPackage( 
-    repository.db, pkg.path.zip);
-  Text pkg.name = Replace(GetFileName(pkg.path.zip),".zip","");
-  Real ok = Case(
-  ToLower(checkInstallMode) == "remote",
-  {
-    TolPackage::Client::RemoteInstallPackage(repository.url, pkg.name, True)
+  Real nErr1 = Copy(NError);
+  If(nErr1>nErr0, 
+  { 
+    WriteLn("Es posible que no se haya podido construir el paquete correctamente","W");
+    1
   },
-  ToLower(checkInstallMode) == "local",
-  {
-    Real TolPackage::Client::LocalInstallPackage(pkg.path.zip)
-  },
-  1==1,True)
+  {
+    Real TolPackage::Server::UploadPackage( 
+      repository.db, pkg.path.zip);
+    Real nErr2 = Copy(NError);
+    If(nErr2>nErr1, 
+    { 
+      WriteLn("Es posible que no se haya podido enviar el paquete al repositorio","W");
+      2
+    },
+    {
+      Text pkg.name = Replace(GetFileName(pkg.path.zip),".zip","");
+      Real ok = Case(
+      ToLower(checkInstallMode) == "remote",
+      {
+        TolPackage::Client::RemoteInstallPackage(repository.url, pkg.name, True)
+      },
+      ToLower(checkInstallMode) == "local",
+      {
+        Real TolPackage::Client::LocalInstallPackage(pkg.path.zip)
+      },
+      1==1,True);
+      Real nErr3 = Copy(NError);
+      If(And(ok,nErr3==nErr2), 0,
+      { 
+        WriteLn("La instalación en modo '"+checkInstallMode+"' ha dado problemas","W");
+        3
+      })
+    })
+  })
+}; 
+
+//////////////////////////////////////////////////////////////////////////////
+Text _.autodoc.member.RemovePackageVersion = 
+"Borra una versión de un paquete del repositorio.\n"
+"Esta función no es reversible, así que debe usarse con mucho cuidado.\n"
+;
+Real RemovePackageVersion(
+  Text name,                //Nombre del paquete (sin versión)
+  Real nu_version_high,     //Primer número de versión
+  Real nu_version_low,      //Segundo número de versión
+  NameBlock repository.db)  //Conexión a la base de datos
+//////////////////////////////////////////////////////////////////////////////
+{
+  Real repository.db::Open(0);
+  Real reg = DBExecQuery(
+  "DELETE FROM package_f_contents\n"
+  "WHERE \n"
+  "  co_name = '"+name+"' AND\n"
+  "  nu_version_high = "<<nu_version_high+" AND\n"
+  "  nu_version_low = "<<nu_version_low+";\n");
+  Real repository.db::Close(0);
+  reg
 }