Changeset 138 for devel/web/index.pas

Timestamp:

Jan 15, 2009, 9:57:44 PM (16 years ago)

Author:

george

Message:

• Přidáno: Zobrazení RSS kanálu aktualit.

File:

• devel/web/index.pas (modified) (2 diffs)

devel/web/index.pas

@@ -1 @@
-program Hello;
+program Index;
 
 {$mode delphi}{$H+}
@@ -14 +14 @@
   SetHeader('Content-Type', 'text/html; charset=utf-8');
   PageName := GetCgiVar('p');
-  if PageName = '' then PageName := 'index';
+  if PageName = '' then PageName := 'news-rss';
   I := 0;
   while (I < Length(Pages)) and (Pages[I].Name <> PageName) do Inc(I);