Annotation of /trunk/share/web/templates/feed

<%args>
$type => 'RSS'
</%args>
<%init>
use XML::Feed;
my $queries = SQLSession::Model::QueryCollection->new();
$queries->unlimit();

my $feed = XML::Feed->new( $type );
$feed->title( Jifty->config->framework('ApplicationName') . " Feed" );
$feed->link( Jifty->web->url );
$feed->description( $feed->title );

while( my $q = $queries->next ) {
        my $feed_entry = XML::Feed::Entry->new($type);
        $feed_entry->title( $q->name . ' (' . $q->on_database->name . ')' );
        $feed_entry->author( $q->owner->name );
        $feed_entry->link( Jifty->web->url . "/sql/" . $q->id );
        $feed_entry->issued( $q->created_on );
        #my $note .= "\n (database: " . $q->on_database->name . ")\n\n";
        $feed_entry->summary( $q->note .'<pre>' . $q->sql_query . '</pre>' );
        $feed->add_entry( $feed_entry );
}
</%init>
<% $feed->as_xml |n %>
1	dpavlin	79	<%args>
2			$type => 'RSS'
3			</%args>
4			<%init>
5			use XML::Feed;
6			my $queries = SQLSession::Model::QueryCollection->new();
7			$queries->unlimit();
8
9			my $feed = XML::Feed->new( $type );
10			$feed->title( Jifty->config->framework('ApplicationName') . " Feed" );
11			$feed->link( Jifty->web->url );
12			$feed->description( $feed->title );
13
14			while( my $q = $queries->next ) {
15			my $feed_entry = XML::Feed::Entry->new($type);
16			$feed_entry->title( $q->name . ' (' . $q->on_database->name . ')' );
17			$feed_entry->author( $q->owner->name );
18			$feed_entry->link( Jifty->web->url . "/sql/" . $q->id );
19			$feed_entry->issued( $q->created_on );
20			#my $note .= "\n (database: " . $q->on_database->name . ")\n\n";
21			$feed_entry->summary( $q->note .'<pre>' . $q->sql_query . '</pre>' );
22			$feed->add_entry( $feed_entry );
23			}
24			</%init>
25			<% $feed->as_xml \|n %>