diff --git a/Documentation/History.txt b/Documentation/History.txt index 8d5cea4..a43ede2 100644 --- a/Documentation/History.txt +++ b/Documentation/History.txt @@ -358,7 +358,6 @@ translate the "Gb" and "Mb" and "kb" fields or dropdown entries that are not yet translatable... translate the about box mm/tta/?external: BigAlloc; tornado: use BigAlloc для выравнивания хеша на границу кеш-линии -использовать для проверки на новости crc данных, возвращаемых страницей CheckNews.aspx fashell 250 vars in Lua stack? установка в каталоги с unicode-именами и BOM в начале скрипта (заменить вызов luaL_dofile) @@ -476,7 +475,6 @@ other TC: при распаковке FreeArc.exe извлекается также no-url\FreeArc.exe arc x a FreeArc.exe - rar извлекает только один файл (*.exe извлекает все файлы) - URL support: dynamic dlls in order to cutoff rep:1g errors testmem and correct method before starting single_compress (?? - параллельно работающим тредам компрессии может не хватить памяти) для полной реализации многопоточности нужно: diff --git a/FileManager.hs b/FileManager.hs index d5d66a6..585d9b9 100644 --- a/FileManager.hs +++ b/FileManager.hs @@ -804,29 +804,27 @@ myGUI run args = do ++ "&largest%20memory%20block=" ++ showMem (maxBlock `roundDown` (100*mb)) ++ "&number%20of%20cores=" ++ show getProcessorsCount ++ "&language=" ++ urlEncode language - --gui$ fmStackMsg fm' url - ignoreErrors (fileGetBinary url >> return ()) - -- Проверим страницу новостей - handleErrors - -- Выполняется при недоступности страницы новостей - (when manual$ postGUIAsync$ do - msg <- i18n"0296 Cannot open %1. Do you want to check the page with browser?" - whenM (askOkCancel window (format msg newsURL)) $ do - openWebsite newsURL) - -- Попытка прочитать страницу новостей - (fileGetBinary newsURL >>== (`showHex` "").crc32) $ \new_crc -> do - -- Страница новостей успешно прочитана - old_crc <- fmGetHistory1 fm' "news_crc" "" - postGUIAsync$ do - fmStackMsg fm' "" - if (new_crc == old_crc) then do - msg <- i18n"0297 Nothing new at %1" - manual &&& fmInfoMsg fm' (format msg newsURL) - else do - fmReplaceHistory fm' "news_crc" new_crc - msg <- i18n"0298 Found new information at %1! Open the page with browser?" - whenM (askOkCancel window (format msg newsURL)) $ do - openWebsite newsURL + -- Сообщаем статистику и проверяем страницу новостей + handleErrors + -- Выполняется при недоступности страницы + (when manual$ postGUIAsync$ do + msg <- i18n"0296 Cannot open %1. Do you want to check the page with browser?" + whenM (askOkCancel window (format msg newsURL)) $ do + openWebsite newsURL) + -- Попытка прочитать страницу + (fileGetBinary url >>== (`showHex` "").crc32) $ \new_crc -> do + -- Страница новостей успешно прочитана + old_crc <- fmGetHistory1 fm' "news_crc" "" + postGUIAsync$ do + fmStackMsg fm' "" + if (new_crc == old_crc) then do + msg <- i18n"0297 Nothing new at %1" + manual &&& fmInfoMsg fm' (format msg newsURL) + else do + fmReplaceHistory fm' "news_crc" new_crc + msg <- i18n"0298 Found new information at %1! Open the page with browser?" + whenM (askOkCancel window (format msg newsURL)) $ do + openWebsite newsURL -- Дважды в час проверять отсутствие новостей forkIO_ $ do diff --git a/Options.hs b/Options.hs index 89f291b..f859eec 100644 --- a/Options.hs +++ b/Options.hs @@ -322,11 +322,11 @@ aARCHIVE_VERSION = make4byte 0 0 5 9 {-# NOINLINE aARC_WEBSITE #-} {-# NOINLINE aARC_LICENSE #-} -- |Краткое наименование программы, выводимое в начале работы -aARC_VERSION_WITH_DATE = aARC_VERSION ++ " ("++aARC_DATE++")" -- aARC_VERSION -aARC_HEADER_WITH_DATE = aARC_HEADER ++ " ("++aARC_DATE++")" -- aARC_HEADER +aARC_VERSION_WITH_DATE = aARC_VERSION -- aARC_VERSION ++ " ("++aARC_DATE++")" +aARC_HEADER_WITH_DATE = aARC_HEADER -- aARC_HEADER ++ " ("++aARC_DATE++")" aARC_HEADER = aARC_NAME++" "++aARC_VERSION++" " -aARC_VERSION = "0.60 RC2" -- "0.60 RC ("++aARC_DATE++")" -aARC_DATE = "October 7 2009" +aARC_VERSION = "0.60 RC ("++aARC_DATE++")" -- "0.60 RC" +aARC_DATE = "October 10 2009" aARC_NAME = "FreeArc" aARC_AUTHOR = "Bulat Ziganshin" aARC_EMAIL = "Bulat.Ziganshin@gmail.com"