source: branches/web/Pages/UNewsPage.pas

unit UNewsPage; 

{$mode delphi}{$H+}

interface

function NewsShowItemPage: string;
function NewsShowListPage: string;
function RSSChannel: string;

implementation

uses 
  USqlDatabase, UCore, SysUtils, UNews, UConfig;

function NewsChannelBuild: string;
var
  URL: string;
  I: Integer;
  Count: Integer;
  Index: string;
begin
  Result := ShowHeader('<strong>ZděchovNET</strong> - komunitní počítačová síť', 'Aktuality');
  URL := '';
  //Count := CountCgiVars;
  for I := 0 to Count - 1 do begin
    //Index := FetchCgiVarName(I);
    if Copy(Index, 1, 8) = 'category' then URL := URL + '-' + Copy(Index, 9, Length(Index));
  end;
  URL := WebServerAddress + '?p=news-rss&amp;select=' + Copy(URL, 2, Length(URL));
  Result := Result + 'Výsledný RSS kanál: <a href="' + URL + '">' + URL + '</a>';
  Result := Result + ShowFooter;
end;

function NewsChannelSelection: string;
var
  DbRows: TDbRows;
  I: Integer;
begin
  Result := ShowHeader('<strong>ZděchovNET</strong> - komunitní počítačová síť', 'Aktuality');
  Result := Result + 'Vytvořte si vlastní RSS kanál, díky kterému budete moci automaticky sledovat novinky pomocí vaší RSS čtečky. ' +
  'Informace o technologii RSS a programech pro čtení kanálů najdete např. <a href="http://www.lupa.cz/clanky/prehled-rss-ctecek/">zde</a><br />' +
  '<br />Kategorie:<br />';
  Result := Result + '<form action="?p=news-build" method="post">';
  DbRows := Database.Select('news_category', '*', '1 ORDER BY caption');
  for I := 0 to DbRows.Count - 1 do
    Result := Result + '<input type="checkbox" name="category' + DbRows[I].Values['id'] + '">' +
      DbRows[I].Values['caption']+ '<br />';
  Result := Result + '<input type="submit" value="Sestavit ">' +
    '</form>';
  Result := Result + ShowFooter;
end;

function RSSChannel: string;
begin
//  Result := ShowHeader('<strong>ZděchovNET</strong> - komunitní počítačová síť', 'Aktuality');
  Result := GenerateRSS;
//  Result := Result + ShowFooter;
end;

function NewsShowItemPage: string;
var
  Id: Integer;
  DbRows: TDbRows;
  NewsItem: TNewsItem;  
begin
  NewsItem := TNewsItem.Create;
  Result := ShowHeader('<strong>ZděchovNET</strong> - komunitní počítačová síť', 'Aktuality');
  //if GetCgiVar('id') = '' then Id := 1 else Id := StrToInt(GetCgiVar('id'));
  DbRows := Database.Query('SELECT `news`.*, UNIX_TIMESTAMP(`news`.date) as time, `User`.`Name` FROM `news` LEFT JOIN `User` ON `User`.`Id`=`news`.`User` WHERE  `news`.`id`=' + IntToStr(Id));
  if DbRows.Count > 0 then begin
    NewsItem.LoadFromDbRecord(DbRows[0]);
    Result := Result + '<div style="border: thin dotted #97ADFF; background: #F6F7FF; margin-top: 5px; ' + 
          'padding: 0px 5px 5px 5px;"><div style="padding-bottom: 1px; border-bottom-width: 1; border-bottom-style: ' + 
          'solid; border-bottom-color: silver;"><strong>' + NewsItem.Title + ' (' + DateToStr(NewsItem.Time) + ', ' + NewsItem.Author + ')</strong>';
(*            if($this->System->Modules['User']->User['Id'] == $Row['User'])
            { 
              $Output .= '&nbsp;<a href="index.php?action=del&amp;category='.$Category.'&amp;id='.$Row['id'].'">Smazat</a>';
              $Output .= '&nbsp;<a href="index.php?action=edit&amp;category='.$Category.'&amp;id='.$Row['id'].'">Editovat</a>';
            }
  *)        
    Result := Result + '</div>' + NewsItem.Content + '<br />';
(*            if($Row['enclosure'] != '')
            { 
              $Output .= '<br />Přílohy: ';
              $Enclosures = explode(';', $Row['enclosure']);
              foreach($Enclosures as $Enclosure)
              {
                if(file_exists($this->UploadedFilesFolder.$Enclosure)) $Output .= ' <a href="'.$this->UploadedFilesFolder.$Enclosure.'">'.$Enclosure.'</a>';
              }
            }
  *)
    Result := Result + '</div>';
  end else Result := Result + 'Položka nenalezena.';
  Result := Result + ShowFooter;
  NewsItem.Free;
end;

function NewsShowListPage: string;
const
  PerPage: Integer = 20;
var
  DbRows: TDbRows;
  PageMax: Integer;
  Page: Integer;
  I: Integer;
  NewsItem: TNewsItem;
  Category: Integer;
  CategoryName: string;
begin
  Result := ShowHeader('<strong>ZděchovNET</strong> - komunitní počítačová síť', 'Aktuality');
//  if GetCgiVar('category') = '' then Category := 1 else Category := StrToInt(GetCgiVar('category'));
  NewsItem := TNewsItem.Create;
  DbRows := TDbRows.Create;
  DbRows := Database.Select('news', 'COUNT(*)', ' category=' + IntToStr(Category));
  PageMax := StrToInt(DbRows[0].ValuesAtIndex[0]);
  DbRows.Free;
//  if GetCgiVar('page') = '' then Page := 0 else Page := StrToInt(GetCgiVar('page'));
  CategoryName := '';
  Result := Result + '<strong>Seznam aktualit kategorie ' + CategoryName + ':</strong><div style="font-size: small;">';
  Result := Result + PagesList('?p=news-list&amp;category=' + IntToStr(Category) + '&amp;page=', Page, PageMax, PerPage);

  DbRows := Database.Query('SELECT `news`.*, UNIX_TIMESTAMP(`news`.date) as time, `User`.`Name` FROM `news` LEFT JOIN `User` ON `User`.`Id`=`news`.`User` WHERE `category`=' + IntToStr(Category) + ' ORDER BY `news`.`id` DESC LIMIT ' + IntToStr(Page * PerPage) + ',' + IntToStr(PerPage));
  for I := 0 to DbRows.Count - 1 do begin
    NewsItem.LoadFromDbRecord(DbRows[I]);
        Result := Result + '<div style="border: thin dotted #97ADFF; background: #F6F7FF; margin-top: 5px; padding: 0px 5px 5px 5px;"><div style="padding-bottom: 1px; border-bottom-width: 1;' +
         'border-bottom-style: solid; border-bottom-color: silver;"><strong><a href="?p=news-item&amp;id=' + 
          IntToStr(NewsItem.Id) + '">' + NewsItem.Title + '</a> (' + DateToStr(NewsItem.Time) + ', ' + NewsItem.Author + ')</strong>';
      (*
          if($this->System->Modules['User']->User['Id'] == $Row['User'])
            {
              $Output .= '&nbsp;<a href="index.php?action=del&amp;category='.$Category.'&amp;id='.$Row['id'].'">Smazat</a>';
              $Output .= '&nbsp;<a href="index.php?action=edit&amp;category='.$Category.'&amp;id='.$Row['id'].'">Editovat</a>';
            }
      *)
        Result := Result + '</div>' + NewsItem.Content + '<br />';
      (*if($Row['enclosure'] != '')
            {
              $Output .= '<br />Přílohy: ';
              $Enclosures = explode(';', $Row['enclosure']);
              foreach($Enclosures as $Enclosure)
              {
                if(file_exists($this->UploadedFilesFolder.$Enclosure)) $Output .= ' <a href="'.$this->UploadedFilesFolder.$Enclosure.'">'.$Enclosure.'</a>';
              }
            } *)
            Result := Result + '</div>';
  end;
  DbRows.Free;
  Result := Result + PagesList('?p=news-list&amp;category=' + IntToStr(Category) + '&amp;page=', Page, PageMax, PerPage);
  Result := Result + '</div>';
  Result := Result + ShowFooter;
  //end else Result := Result + 'Nemáte oprávnění.';
  NewsItem.Free;
end;

initialization

RegisterPage('news-item', @NewsShowItemPage);   
RegisterPage('news-list', @NewsShowListPage);   
RegisterPage('news-rss', @RSSChannel);
RegisterPage('news-selection', @NewsChannelSelection);
RegisterPage('news-build', @NewsChannelBuild);

end.