Changeset 137 for devel/web/index.pas

Timestamp:

Jan 14, 2009, 7:38:30 PM (16 years ago)

Author:

george

Message:

• Přidáno: Ikony odkazů a soubor stylů a javaskriptů.
• Přidáno: .htaccess pro přímé spouštění CGI z jiné složky web serveru.
• Opraveno: Validace některých stránek na XHTML 1.0 strict.
• Přidáno: Funkce pro pěkné formátování výstupního HTML kódu.
• Přidáno: Zobrazení aktualit.

Location:

devel/web

Files:

• . (modified) (1 prop)
• index.pas (modified) (2 diffs)

devel/web

@@ -4 +4 @@
 backup
 
-index
+index.cgi
+
+index.compiled

@@ -4 +4 @@
 backup
 
-index
+index.cgi
+
+index.compiled

devel/web/index.pas

@@ -5 +5 @@
 uses
   UCore, USqlDatabase, SysUtils, UMainPage, pwinit, pwmain,
-  UFinancePage;
+  UFinancePage, UNewsPage;
 
 var
@@ -14 +14 @@
   SetHeader('Content-Type', 'text/html; charset=utf-8');
   PageName := GetCgiVar('p');
-  if PageName = '' then PageName := 'finance-clenove';
+  if PageName = '' then PageName := 'index';
   I := 0;
   while (I < Length(Pages)) and (Pages[I].Name <> PageName) do Inc(I);
   if I < Length(Pages) then Output := Pages[I].Producer
     else Output := 'Stránka nenalezena';
-  WebWriteLn(Output);
+  WebWriteLn(FormatOutput(Output));
 end.

@@ -4 +4 @@
 backup
 
-index
+index.cgi
+
+index.compiled