program WowHosting;

{$mode delphi}{$H+}

uses
  UCore, USqlDatabase, SysUtils, UMainPage, pwinit, pwmain,
  UFinancePage, UNewsPage, UUserPage, UBill;

var
  Output: string;
  I: Integer;
  PageName: string;
begin
  SetHeader('Content-Type', 'text/html; charset=utf-8');
  PageName := GetCgiVar('p');
  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(FormatOutput(Output));
end.