[rt-commit] [svn] r481 - rt/branches/rt-3.1/html/Search

[jesse at fsck.com]

Author: jesse
Date: Fri Mar  5 16:35:05 2004
New Revision: 481

Added:
   rt/branches/rt-3.1/html/Search/Results.rdf
Modified:
   rt/branches/rt-3.1/html/Search/Results.html
Log:
Added support for RSS syndication



Modified: rt/branches/rt-3.1/html/Search/Results.html
==============================================================================
--- rt/branches/rt-3.1/html/Search/Results.html	(original)
+++ rt/branches/rt-3.1/html/Search/Results.html	Fri Mar  5 16:35:05 2004
@@ -43,7 +43,7 @@
 <div align=right>
 <a href="Bulk.html<%$QueryString%>"><&|/l&>Update all these tickets at once</&></a><br>
 <a href="Results.tsv<%$QueryString%>"><&|/l&>spreadsheet</&></a><br>
-<a href="Results.tsv<%$QueryString%>"><&|/l&>RSS</&></a><br>
+<a href="Results.rdf<%$QueryString%>"><&|/l&>RSS</&></a><br>
 </div>
 <%INIT>
 my ($title, $ticketcount);
@@ -63,7 +63,7 @@
 $tabformat =~ s/#/%23/g;
 $tabformat =~ s/&/%26/g;
 my $QueryString =
-"?Query=$Query&Format=$tabformat&Rows=$ARGS{'Rows'}&Page=<%$ARGS{'Page'}%>";
+"?Query=$Query&Format=$tabformat&Rows=".$ARGS{'Rows'}."&Page=".$ARGS{'Page'};
 
 </%INIT>
 <%CLEANUP>

Added: rt/branches/rt-3.1/html/Search/Results.rdf
==============================================================================
--- (empty file)
+++ rt/branches/rt-3.1/html/Search/Results.rdf	Fri Mar  5 16:35:05 2004
@@ -0,0 +1,40 @@
+<%INIT>
+
+my $Tickets = RT::Tickets->new($session{'CurrentUser'});
+$Tickets->FromSQL($ARGS{'Query'});
+    $r->content_type('xml/rss');
+
+
+
+        # create an RSS 1.0 file (http://purl.org/rss/1.0/)
+        use XML::RSS;
+        my $rss = new XML::RSS (version => '1.0');
+        $rss->channel(
+          title        => "$RT::rtname: Syndicated Search",
+          link         => $RT::WebURL,
+          description  => "",
+          dc => {
+          },
+          syn => {
+            updatePeriod     => "hourly",
+            updateFrequency  => "1",
+            updateBase       => "1901-01-01T00:00+00:00",
+          },
+        );
+
+
+    while ( my $Ticket = $Tickets->Next()) {
+       my $row;
+        $rss->add_item(
+          title       =>  $Ticket->Subject,
+          link        => $RT::WebURL."/Ticket/Display.html?id=".$Ticket->id,
+          description => $Ticket->Transactions->First->Content,
+          dc => {
+            subject  => $Ticket->Subject,
+            creator  => $Ticket->CreatorObj->RealName . "<".$Ticket->CreatorObj->EmailAddress.">",
+          },
+        );
+    }
+$m->out($rss->as_string);
+$m->abort();
+</%INIT>