wikiget: clean up

git-svn-id: trunk@47431 -

components/wiki/wikiget.lpi

@@ -1,4 +1,4 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
     <Version Value="9"/>
@@ -29,7 +29,6 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
-        <LaunchingApplication PathPlusParams="/usr/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
       </local>
     </RunParams>
     <RequiredPackages Count="3">
@@ -48,7 +47,6 @@
       <Unit0>
         <Filename Value="wikiget.lpr"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="wikiget"/>
       </Unit0>
     </Units>
   </ProjectOptions>
@@ -61,12 +59,6 @@
       <IncludeFiles Value="$(ProjOutDir)"/>
       <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
-    <Other>
-      <CompilerMessages>
-        <MsgFileName Value=""/>
-      </CompilerMessages>
-      <CompilerPath Value="$(CompPath)"/>
-    </Other>
   </CompilerOptions>
   <Debugging>
     <Exceptions Count="3">

components/wiki/wikiget.lpr

@@ -296,7 +296,7 @@ begin
           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)) then begin
             //writeln('TWikiGet.GetAll Page="',Page,'"');
             Filename:=PageToFilename(Page,false);
             AddWikiPage(Page);
@@ -790,6 +790,8 @@ end;
 var
   Application: TWikiGet;
 begin
+  //TestWikiPageToFilename;
+
   Application:=TWikiGet.Create(nil);
   Application.Title:='Wiki Get';
   Application.Run;