Mattias Gaertner wrote 31 lines
On Mon, 19 Jan 2015 17:32:37 +0100
Frie? wrote:
> Am 19.01.2015 um 17:17 schrieb Mattias Gaertner:
>> On Mon, 19 Jan 2015 15:50:38 +0100
>> Frie? wrote:
>>
>>> [...]
>>> At this time i have found the tools in the directories of Lazarus !! in
>>> component/wiki. This tools look better So i have try to use the tools.
>>> Its look running, but i have not enough knowledge about the handling
>>> with the tools.
>>>
>>> I see the last checkin was 2012, whats happen with this tools ? Not used
>>> anywhere, stopped ? Project dead ?
>> No. I just had some other priorities.
> I see, fpc and Lazarus are growing fast. Is there more information
> available or only the source ?
The source and the README.
>>> May i help to get this tools working ?
>> They were working. I see wikiget has now a problem with an overlong
>> filename from a strange wiki page.
>> Feel free to improve it.
> This is not directly a problem from wikiget, it comes from russian
> pagenames instead of pagename/ru.
> So is one question, should this corrected in the wiki or accepted by the
> wikiget ?
If it is only a few pages, it may be easier to fix it in the wiki.
Otherwise we need a different system for storing the pages.
Ok, i look for a workaround in the wikiget, not to store this sites and to get a message.
i have done a quick and dirty fix to see the wikiget running, but it was not the best way. I will try a better soloution.
--- C:/Users/andi/AppData/Local/Temp/wikiget.lpr-revBASE.svn003.tmp.lpr
Mo 26. M?r 20:28:31 2012
+++ X:/Pascal/Pascal/lazarus/components/wiki/wikiget.lpr So 18. J?n
16:19:44 2015
@@ -296,7 +296,7 @@
Page:=copy(s,StartPos,p-StartPos);
while (Page'') and (Page[1]='/') do
System.Delete(Page,1,1);
- if (Page'') and (not IsIgnoredPage(Page)) then begin;
+ if (Page'') and (not IsIgnoredPage(Page)) and
(Page[1]'%') then begin;
//writeln('TWikiGet.GetAll Page="',Page,'"');
Filename:=PageToFilename(Page,false);
AddWikiPage(Page);
Show quoted text 7 lines