Fixed lharc recognition code to LHA

This commit is contained in:
Michiel Broek
2002-03-12 19:41:41 +00:00
parent 1c4c68fa9a
commit 134a92e31f
8 changed files with 33 additions and 9 deletions

View File

@@ -595,7 +595,7 @@ void F_Disconnect(faddr *t, char *Area, FILE *tmp)
return;
}
if (!TicSystemConnect(&Sys, FALSE)) {
if (TicSystemConnect(&Sys, FALSE)) {
/*
* Make sure to write an overview afterwards

View File

@@ -127,6 +127,11 @@ int ProcessTic(fa_list *sbl)
if (TIC.TicIn.Size) {
if (TIC.TicIn.Size != TIC.FileSize)
WriteError("Size is %ld, expected %ld", TIC.FileSize, TIC.TicIn.Size);
} else {
/*
* No filesize in TIC file, add filesize.
*/
TIC.TicIn.Size = TIC.FileSize;
}
if (TIC.Crc_Int) {
@@ -155,6 +160,7 @@ int ProcessTic(fa_list *sbl)
return 1;
}
if ((tic.Secure) && (!TIC.TicIn.Hatch)) {
First = TRUE;
while (GetTicSystem(&Link, First)) {
@@ -443,6 +449,7 @@ int ProcessTic(fa_list *sbl)
}
if (!getarchiver(unarc)) {
WriteError("Can't get archiver for %s", unarc);
chdir(TIC.Inbound);
free(Temp);
return 1;