Patch level :10.0 244
Files correlati : Ricompilazione Demo : [ ] Commento :Sistemato problema aggiornamento client in presenza di file da killare che compaiono in una patch e non in una versione (problema segnalato da installazione Verga). Adesso è possibile aggiungere files da uccidere anche nelle patch. Resta ovviamente sottinteso che PRIMA va aggiornato il server e POI il client. git-svn-id: svn://10.65.10.50/trunk@18303 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca
parent
16cef4ca99
commit
b434396504
247
ba/ba1700.cpp
247
ba/ba1700.cpp
@ -141,7 +141,8 @@ protected:
|
||||
bool add_header(TConfig& ini, const TString& module);
|
||||
int precheck_modules(bool only_newer = true);
|
||||
void update_version();
|
||||
void update_install_ini() const;
|
||||
void update_disk_and_web_path();
|
||||
void kill_files();
|
||||
|
||||
int needs_reboot(const TFilename& file) const;
|
||||
bool move_file(const TFilename& src, const TFilename& dst) const;
|
||||
@ -869,6 +870,74 @@ KEY TInstaller_mask::askdisk(TString & path, TFilename & cmdline, int d, int dis
|
||||
return k;
|
||||
}
|
||||
|
||||
//rimozione da disco dei files da eliminare indicati nei paragrafi kill..
|
||||
//..e successivo aggiornamento dell'install.ini in modo da non avere più tra i piedi i files killati
|
||||
void TInstaller_mask::kill_files()
|
||||
{
|
||||
//apre l'install.ini locale per effettuare l'aggiornamento
|
||||
TInstall_ini ini;
|
||||
//giro su tutti i sottomoduli di tipo 99 con l'elenco dei files da uccidere
|
||||
TString_array paragraph_names;
|
||||
ini.list_paragraphs(paragraph_names);
|
||||
|
||||
FOR_EACH_ARRAY_ROW(paragraph_names, nriga, riga)
|
||||
{
|
||||
//interessano solo i paragrafi con le killer list
|
||||
if (riga->ends_with("99") && ini.set_paragraph(*riga))
|
||||
{
|
||||
TString_array killed;
|
||||
|
||||
TToken_string rigaini;
|
||||
TFilename filetokill;
|
||||
for (int k = 0;; k++)
|
||||
{
|
||||
rigaini = ini.get("Kill", NULL, k, "");
|
||||
if (rigaini.empty())
|
||||
break;
|
||||
filetokill = rigaini.get(0);
|
||||
if (filetokill.find('*') >= 0 || filetokill.find('?') >= 0)
|
||||
{
|
||||
TString_array filelist;
|
||||
list_files (filetokill, filelist);
|
||||
FOR_EACH_ARRAY_ROW(filelist, r, file)
|
||||
{
|
||||
if (fexist(*file))
|
||||
::remove_file(*file);
|
||||
killed.add(*file);
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
if (fexist(filetokill))
|
||||
::remove_file(filetokill);
|
||||
killed.add(filetokill);
|
||||
}
|
||||
} //for(int k=0...
|
||||
|
||||
for (int s = 0; s <= 9 && !killed.empty(); s++)
|
||||
{
|
||||
const TString4 mod = riga->left(2);
|
||||
const int cicli = mod == "ba" ? 2 : 1;
|
||||
for (int c = 1; c <= cicli; c++)
|
||||
{
|
||||
TString4 module = c == 1 ? mod : "sy";
|
||||
module << s;
|
||||
TAssoc_array& vars = ini.list_variables(module);
|
||||
FOR_EACH_ASSOC_STRING(vars, hobj, key, str)
|
||||
{
|
||||
const int idx = killed.find(str);
|
||||
if (idx >= 0)
|
||||
{
|
||||
ini.remove(key);
|
||||
killed.destroy(idx, true);
|
||||
}
|
||||
}
|
||||
}
|
||||
} //for (int s...
|
||||
} //if (riga->ends_with...
|
||||
} //FOR_EACH_ARRAY_ROW(...
|
||||
}
|
||||
|
||||
bool TInstaller_mask::install(const TString& module, int patchlevel)
|
||||
{
|
||||
bool cancelled = false;
|
||||
@ -886,64 +955,81 @@ bool TInstaller_mask::install(const TString& module, int patchlevel)
|
||||
parse_internet_path(http_server,http_path );
|
||||
|
||||
const bool is_a_patch = (patchlevel > 0);
|
||||
TFilename ininame = path;
|
||||
ininame.add(module);
|
||||
//file .ini con le info di installazione (es. bainst.ini o ba0883.ini)
|
||||
TFilename remote_ininame = path;
|
||||
remote_ininame.add(module);
|
||||
|
||||
//completa il nome del file .ini controllando se è una patch (es. ba0883a.ini) o se è un pacco (es. bainst.ini)
|
||||
if (is_a_patch)
|
||||
{
|
||||
TString16 name;
|
||||
name.format("%04da.ini", patchlevel);
|
||||
ininame << name;
|
||||
remote_ininame << name;
|
||||
}
|
||||
else
|
||||
ininame << "inst.ini";
|
||||
remote_ininame << "inst.ini";
|
||||
|
||||
if (internet && !ininame.exist())
|
||||
if (internet && !remote_ininame.exist())
|
||||
{
|
||||
TFilename remote = ininame.name();
|
||||
TFilename remote = remote_ininame.name();
|
||||
remote.insert(http_path, 0);
|
||||
http_get(http_server, remote, ininame);
|
||||
http_get(http_server, remote, remote_ininame);
|
||||
}
|
||||
|
||||
if (ininame.exist())
|
||||
if (remote_ininame.exist())
|
||||
{
|
||||
// esiste un particolare .ini con formato XXinst.ini (moduli) o con XX9999a.ini (patch)
|
||||
// (installazione da directory con .zip)
|
||||
TInstall_ini* ini = new TInstall_ini(ininame);
|
||||
ini->write_protect();
|
||||
lastpatch=ini->get_int("Patch",module);
|
||||
lastrelease=ini->get("Versione",module);
|
||||
if (!can_install(module, *ini))
|
||||
//----------------------------------------------
|
||||
// (INSTALLAZIONE DA DIRECTORY CON FILES .ZIP)
|
||||
//----------------------------------------------
|
||||
//remote_ini è il file .ini con le info di installazione (es. ba0883a.ini, bainst.ini)
|
||||
TInstall_ini* remote_ini = new TInstall_ini(remote_ininame);
|
||||
remote_ini->write_protect();
|
||||
lastpatch = remote_ini->get_int("Patch", module);
|
||||
lastrelease = remote_ini->get("Versione", module);
|
||||
|
||||
//se non può installare il modulo chiude il remote_ini
|
||||
if (!can_install(module, *remote_ini))
|
||||
{
|
||||
delete ini;
|
||||
delete remote_ini;
|
||||
return false;
|
||||
}
|
||||
const int dischi = ini->get_int("Dischi", module);
|
||||
|
||||
//antico controllo del numero di dischetti (ora sempre = 1)
|
||||
const int dischi = remote_ini->get_int("Dischi", module);
|
||||
ok = dischi > 0;
|
||||
if (!ok)
|
||||
return error_box(FR("Impossibile determinare il numero dei dischetti in %s"),ininame.name());
|
||||
return error_box(FR("Impossibile determinare il numero dei dischetti in %s"), remote_ininame.name());
|
||||
else
|
||||
{
|
||||
if (patchlevel == 0)
|
||||
ok = pre_process(*ini, module);
|
||||
ok = pre_process(*remote_ini, module);
|
||||
if (!ok)
|
||||
{
|
||||
delete ini;
|
||||
delete remote_ini;
|
||||
return false;
|
||||
}
|
||||
}
|
||||
// ==============
|
||||
// decompressione
|
||||
|
||||
// DECOMPRESSIONE
|
||||
// ----------------
|
||||
// viene decompresso il file .zip collegato al file remote_ini (es. ba0883a1.zip, bainst.zip)
|
||||
msg = TR("Decompressione");
|
||||
if (is_a_patch)
|
||||
msg << TR(" della patch ") << patchlevel ;
|
||||
msg << TR(" del modulo '") << module << TR("' in corso...");
|
||||
|
||||
TProgind pi(dischi, msg, false, true);
|
||||
TFilename tempdir; tempdir.tempdir();
|
||||
|
||||
TFilename tempdir;
|
||||
tempdir.tempdir();
|
||||
|
||||
// File tottale dei vari sotto-zip
|
||||
TFilename totti = tempdir; totti.add(module); totti.ext("zip");
|
||||
TFilename totti = tempdir;
|
||||
totti.add(module);
|
||||
totti.ext("zip");
|
||||
|
||||
//si costruisce il nome dello zip
|
||||
for (int d = 1; d <= dischi && ok; d++)
|
||||
{
|
||||
TFilename chunk = path;
|
||||
@ -966,12 +1052,13 @@ bool TInstaller_mask::install(const TString& module, int patchlevel)
|
||||
error_box(FR("Errore di trasferimento del file '%s'"), (const char*)remote);
|
||||
}
|
||||
|
||||
//antichi controlli in caso di multidischetto
|
||||
ok = chunk.exist();
|
||||
if (!ok && !internet) // Chiedi cambio disco (solo se non sta scaricando da internet)
|
||||
{
|
||||
while (!ok)
|
||||
{
|
||||
if (askdisk(path,chunk,d,dischi,(const char*)ini->get("Descrizione"))==K_QUIT)
|
||||
if (askdisk(path, chunk, d, dischi, (const char*)remote_ini->get("Descrizione")) == K_QUIT)
|
||||
break;
|
||||
ok = chunk.exist();
|
||||
if (!ok)
|
||||
@ -991,43 +1078,47 @@ bool TInstaller_mask::install(const TString& module, int patchlevel)
|
||||
if (ok)
|
||||
::fcopy(chunk, totti, d > 1); // Somma il chunk al totale
|
||||
}
|
||||
aga_unzip(totti, tempdir); // Scompatta il file totale
|
||||
::remove(totti);
|
||||
|
||||
// =============
|
||||
// trasferimento
|
||||
//scompattamento vero e proprio dello zip
|
||||
aga_unzip(totti, tempdir); // Scompatta il file totale zip
|
||||
::remove(totti); // Elimina il file totale zip
|
||||
|
||||
|
||||
// TRASFERIMENTO
|
||||
// -----------------
|
||||
if (ok)
|
||||
{
|
||||
// si assicura che sia leggibile il .ini del primo disco
|
||||
do
|
||||
{
|
||||
TFilename cmdline = path;
|
||||
cmdline.add(ininame.name());
|
||||
cmdline.add(remote_ininame.name());
|
||||
ok = cmdline.exist();
|
||||
if (!ok)
|
||||
{
|
||||
if (askdisk(path,cmdline,1,dischi,(const char*)ini->get("Descrizione"))==K_QUIT)
|
||||
if (askdisk(path, cmdline, 1, dischi, (const char*)remote_ini->get("Descrizione")) == K_QUIT)
|
||||
break;
|
||||
ok = fexist(cmdline);
|
||||
if (!ok)
|
||||
message_box(FR("Impossibile trovare %s\n"), (const char*)cmdline);
|
||||
else
|
||||
{
|
||||
delete ini;
|
||||
ini = new TInstall_ini (cmdline);
|
||||
delete remote_ini;
|
||||
remote_ini = new TInstall_ini (cmdline);
|
||||
}
|
||||
}
|
||||
} while (!ok);
|
||||
|
||||
if (ok)
|
||||
{
|
||||
msg.cut(0);
|
||||
msg << TR("Aggiornamento del modulo '") << module << TR("' in corso...");
|
||||
pi.set_text(msg);
|
||||
ok = move_module(module, *ini, true);
|
||||
ok = move_module(module, *remote_ini, true);
|
||||
|
||||
if (ok)
|
||||
{
|
||||
TAuto_token_string altri(ini->get("Moduli", module));
|
||||
TAuto_token_string altri(remote_ini->get("Moduli", module));
|
||||
FOR_EACH_TOKEN(altri, mod)
|
||||
{
|
||||
const TString16 submod = mod;
|
||||
@ -1036,67 +1127,39 @@ bool TInstaller_mask::install(const TString& module, int patchlevel)
|
||||
bool upd = ok;
|
||||
if (ok)
|
||||
{
|
||||
TInstall_ini curini;
|
||||
const TString16 curver = curini.version(submod);
|
||||
const int curpatch = curini.patch(submod);
|
||||
const TString16 reqver = ini->version(submod);
|
||||
const int reqpatch = ini->patch(submod);
|
||||
TInstall_ini local_cur_ini;
|
||||
const TString16 curver = local_cur_ini.version(submod);
|
||||
const int curpatch = local_cur_ini.patch(submod);
|
||||
const TString16 reqver = remote_ini->version(submod);
|
||||
const int reqpatch = remote_ini->patch(submod);
|
||||
|
||||
int distance = compare_version(reqver, reqpatch, curver, curpatch);
|
||||
upd = distance > 0;
|
||||
}
|
||||
ok &= move_module(submod, *ini, upd);
|
||||
ok &= move_module(submod, *remote_ini, upd);
|
||||
if (upd && ok) // marca sull'install.ini di destinazione l'avvenuta installazione del sottomodulo "esterno"
|
||||
ini->export_paragraph(submod, ini->default_name(), !is_a_patch);
|
||||
}
|
||||
}
|
||||
}
|
||||
if (ok) //rimozione files da eliminare indicati nel .ini
|
||||
{
|
||||
TString killmod;
|
||||
killmod << module << 99;
|
||||
if (ini->set_paragraph(killmod))
|
||||
{
|
||||
TToken_string rigaini;
|
||||
TFilename filetokill;
|
||||
for (int k=0; ;k++)
|
||||
{
|
||||
rigaini = ini->get("Kill", NULL, k, "");
|
||||
if (rigaini.empty())
|
||||
break;
|
||||
filetokill = rigaini.get(0);
|
||||
if (filetokill.find('*') >= 0 || filetokill.find('?') >=0)
|
||||
{
|
||||
TString_array filelist;
|
||||
list_files (filetokill, filelist);
|
||||
FOR_EACH_ARRAY_ROW(filelist, r, file)
|
||||
{
|
||||
::remove_file((const char *)file);
|
||||
}
|
||||
|
||||
}
|
||||
else
|
||||
::remove_file(filetokill);
|
||||
}
|
||||
}
|
||||
remote_ini->export_paragraph(submod, TInstall_ini::default_name(), !is_a_patch);
|
||||
}
|
||||
}
|
||||
}
|
||||
} //if(ok)..
|
||||
} //if(ok)..
|
||||
if (ok) // marca sull'install.ini di destinazione l'avvenuta installazione del modulo
|
||||
ini->export_module_paragraphs(module, ini->default_name(),!is_a_patch);
|
||||
remote_ini->export_module_paragraphs(module, TInstall_ini::default_name(), !is_a_patch);
|
||||
} // installazione da directory con zip
|
||||
else
|
||||
if (!is_a_patch)
|
||||
{
|
||||
//
|
||||
// non c'e' il .ini del modulo ma un unico "install.ini"
|
||||
// (installazione da directory con eseguibili)
|
||||
ininame = path;
|
||||
ininame.add(TInstall_ini::default_name());
|
||||
ok = fexist(ininame);
|
||||
// non c'e' il .ini del modulo ma un unico "install.ini" (es. aggiornamento client)
|
||||
//------------------------------------------------
|
||||
// (INSTALLAZIONE DA DIRECTORY CON ESEGUIBILI)
|
||||
//------------------------------------------------
|
||||
remote_ininame = path;
|
||||
remote_ininame.add(TInstall_ini::default_name());
|
||||
ok = fexist(remote_ininame);
|
||||
if (ok)
|
||||
{
|
||||
TInstall_ini ini(ininame);
|
||||
TInstall_ini ini(remote_ininame);
|
||||
ini.write_protect();
|
||||
lastpatch = ini.get_int("Patch", module);
|
||||
lastrelease = ini.get("Versione", module);
|
||||
@ -1132,6 +1195,7 @@ bool TInstaller_mask::install(const TString& module, int patchlevel)
|
||||
create_dirs(dst.path());
|
||||
|
||||
ok = ::fcopy(src, dst);
|
||||
|
||||
if (ok && is_zip_file(src))
|
||||
aga_unzip(src, dst.path());
|
||||
|
||||
@ -1152,10 +1216,9 @@ bool TInstaller_mask::install(const TString& module, int patchlevel)
|
||||
if (ok)
|
||||
{
|
||||
{
|
||||
update_install_ini(); //aggiorna diskpath e webpath
|
||||
TInstall_ini ini;
|
||||
ini.set("Data", TDate(TODAY), module);
|
||||
ini.update_prices(ininame);
|
||||
ini.update_prices(remote_ininame);
|
||||
}
|
||||
// Non togliere le parentesi graffe soprastanti per permettere l'aggiornamento fisico del .ini (CON LA CHIAMATA DEL DISTRUTTORE)
|
||||
update_version();
|
||||
@ -1298,10 +1361,11 @@ bool TInstaller_mask::web_handler(TMask_field& fld, KEY key)
|
||||
return ok;
|
||||
}
|
||||
|
||||
// Aggiorna l'install.ini con eventuali modifiche dell'utente.
|
||||
|
||||
// Aggiorna l'install.ini con eventuali modifiche dell'utente su dispath e/o webpath
|
||||
// Decisivo in caso di cambio path d'installazione
|
||||
// Serve a setup
|
||||
void TInstaller_mask::update_install_ini() const
|
||||
// Serve a setup (deve essere chiamata in caso di esecuzioni passive di setup, tipo -uw, -uw)
|
||||
void TInstaller_mask::update_disk_and_web_path()
|
||||
{
|
||||
TInstall_ini ini;
|
||||
ini.set("DiskPath", get(F_PATH));
|
||||
@ -1424,7 +1488,7 @@ void TInstaller_mask::install_selection()
|
||||
}
|
||||
}
|
||||
|
||||
update_install_ini(); //aggiorna l'install.ini
|
||||
update_disk_and_web_path(); //aggiorna l'install.ini
|
||||
//lancia setup in modalita' aggiornamento da disco
|
||||
_setup_run = xvt_sys_execute("setup\\setup.exe -ud", false, false) !=0;
|
||||
}
|
||||
@ -1468,7 +1532,7 @@ void TInstaller_mask::install_selection()
|
||||
file_copied = http_get(http_server, remote_file, local_file); //occhio alle maiuscole!!!!
|
||||
}
|
||||
}
|
||||
update_install_ini(); //aggiorna l'install.ini
|
||||
update_disk_and_web_path(); //aggiorna l'install.ini
|
||||
//lancia setup in modalita' aggiornamento web
|
||||
_setup_run = xvt_sys_execute("setup\\setup.exe -uw", false, false) != 0;
|
||||
}
|
||||
@ -1502,7 +1566,12 @@ void TInstaller_mask::install_selection()
|
||||
uncheck(r); // se non ci sono patch o moduli -> uncheck
|
||||
} //FOR_EACH_ARRAY_ROW(arr...
|
||||
|
||||
force_update(); //serve per togliere il check al modulo 'sy' quando viene installato
|
||||
//aggiorna definitivamente i path su install.ini
|
||||
update_disk_and_web_path();
|
||||
//accoppa i files nelle kill lists e aggiorna install.ini
|
||||
kill_files();
|
||||
//serve per togliere il check al modulo 'sy' quando viene installato
|
||||
force_update();
|
||||
}
|
||||
|
||||
bool TInstaller_mask::install_handler(TMask_field& fld, KEY key)
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user