Changeset 138 for devel/web/UNews.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/UNews.pas (modified) (5 diffs)

devel/web/UNews.pas

@@ -6 +6 @@
 
 uses 
-  USqlDatabase, SysUtils, UCore, Classes;
+  USqlDatabase, SysUtils, UCore, Classes, DOM;
 
 type
+
+  { TNewsCategory }
+
   TNewsCategory = class
+    Id: Integer;
+    Title: string;
+    Permission: Integer;
+    procedure LoadFromDbRecord(DbRow: TAssocArray);
   end;
   
@@ -16 +23 @@
     Title: string;
     Content: string;
-    Date: TDateTime;
+    Time: TDateTime;
     Author: string;
     IPAddress: string;
@@ -23 +30 @@
   end;
 
+  { TNews }
+
+  TNews = class
+    NewsCategoryList: TList;
+    constructor Create;
+    destructor Destroy; override;
+    procedure LoadFromDb;
+  end;
+
+  function GenerateRSS: string;
+
 implementation
+
+uses
+  URSS, pwmain, dateutils;
 
 { TNewsItem }
@@ -32 +53 @@
   Title := DbRow.Values['title'];
   Content := DbRow.Values['content'];
-  Date := Now;
+  Time := UnixToDateTime(StrToInt(DbRow.Values['time']));
   Author := DbRow.Values['author'];
   IPAddress := DbRow.Values['ip'];
@@ -38 +59 @@
 end;
 
+function GenerateRSS: string;
+const
+  MaxNewsItemCount = 15;
+  UploadedFilesFolder = 'uploads/';
+var
+  RSSChannel:  TRSSChannel;
+  Select: string;
+  SelectParts: TArrayOfString;
+  Where: string;
+  DbRows: TDbRows;
+  NewItem: TRSSChannelItem;
+  I: Integer;
+  News: TNews;
+  NewsItem: TNewsItem;
+begin
+  News := TNews.Create;
+  News.LoadFromDb;
+  NewsItem := TNewsItem.Create;
+  RSSChannel := TRSSChannel.Create;
+  with RSSChannel do begin
+    Title := 'ZděchovNET - Aktuality';
+    Link := 'http://centrala.zdechov.net/';
+    Description := 'Aktuality komunitní počítačové sítě ZděchovNET';
+    WebMasterEmail := 'robie@centrum.cz';
+
+(*
+$Category = '';
+$CategoryOption = '';
+$CategoryOptionURL = '';
+$CategoryName = '';
+*)
+
+  if GetCgiVar('select') = '' then Select := '' else Select := GetCgiVar('select');
+  SelectParts := Explode('-', Select);
+  Where := '';
+  for I := 0 to High(SelectParts) do
+    Where := Where + 'OR (category=' + SelectParts[I] + ')';
+  Where := Copy(Where, 3, Length(Where));
+  if Where = '' then Where := '1';
+
+  DbRows := Database.Query('SELECT *,UNIX_TIMESTAMP(date) as time FROM news WHERE ' + Where + ' ORDER BY date DESC LIMIT 0,' + IntToStr(MaxNewsItemCount));  for I := 0 to DbRows.Count - 1 do begin
+    NewsItem.LoadFromDbRecord(DbRows[I]);
+    NewItem := TRSSChannelItem.Create;
+    with NewItem do begin
+(*
+    EnclosuresText := '';
+    if Values['enclosure'] <> '' then begin
+      EnclosuresText := EnclosureText + '<br />Přílohy: ';
+      Enclosures := explode(';', $Row['enclosure']);
+    foreach($Enclosures as $Enclosure)
+    {
+      if(file_exists($UploadedFilesFolder.$Enclosure)) $EnclosuresText .= ' <a href="http://centrala.zdechov.net/aktuality/'.$UploadedFilesFolder.$Enclosure.'">'.$Enclosure.'</a>';
+    }
+  }
+*)
+      Title := TNewsCategory(News.NewsCategoryList[NewsItem.Category]).Title + ' - ' + NewsItem.Title;
+      Link := 'http://centrala.zdechov.net/aktuality/index.php?category=' + IntToStr(NewsItem.Category);
+      Description := NewsItem.Content + ' (' + NewsItem.Author + ')'; // + EnclosuresText;
+      Time := NewsItem.Time;
+    end;
+    Items.Add(NewItem);
+  end;
+  end;
+  NewsItem.Free;
+  News.Free;
+  Result := RSSChannel.ProduceOutput;
+end;
+
+{ TNews }
+
+constructor TNews.Create;
+begin
+  NewsCategoryList := TList.Create;
+end;
+
+destructor TNews.Destroy;
+var
+  I: Integer;
+begin
+  for I := 0 to NewsCategoryList.Count - 1 do
+    TNewsCategory(NewsCategoryList[I]).Free;
+  NewsCategoryList.Free;
+  inherited Destroy;
+end;
+
+procedure TNews.LoadFromDb;
+var
+  DbRows: TDbRows;
+  I: Integer;
+  NewCategory: TNewsCategory;
+begin
+  DbRows := Database.Select('news_category', '*');
+  for I := 0 to DbRows.Count - 1 do begin
+    NewCategory := TNewsCategory.Create;
+    NewCategory.LoadFromDbRecord(DbRows[I]);
+    NewsCategoryList.Add(NewCategory);
+  end;
+  DbRows.Free;
+end;
+
+{ TNewsCategory }
+
+procedure TNewsCategory.LoadFromDbRecord(DbRow: TAssocArray);
+begin
+  Id := StrToInt(DbRow.Values['id']);
+  Title := DbRow.Values['caption'];
+  Permission := StrToInt(DbRow.Values['permission']);
+end;
+
 end.