#!/usr/bin/perl
#
use strict;
use warnings;


# create an RSS 2.0 file
use XML::RSS;
my $rss = new XML::RSS (version => '2.0');
$rss->channel(title          => 'Haifux',
               link           => 'http://www.haifux.org/',
               language       => 'en-us',
               description    => 'Haifux Linux Club',
               rating         => '(PICS-1.1 "http://www.classify.org/safesurf/" 1 r (SS~~000 1))',
#               copyright      => 'Copyright 2004, Haifux.org',
               pubDate        => 'Fri, 06 Aug 2004 21:41:01 GMT',
               lastBuildDate  => 'Fri, 06 Aug 2004 21:41:01 GMT',
               docs           => 'http://blogs.law.harvard.edu/tech/rss',
               managingEditor => 'webmaster at haifux.org',
               webMaster      => 'webmaster at haifux.org',
			 ttl => "360",
			generator => "Currently, by hand",
               );


my $url = "http://www.pti.co.il/";

$rss->add_item(
		title => "Organizing Welcome to Linux 2004",
        permaLink  => "http://www.haifux.org/",
        enclosure   => { url=>'http://www.haifux.org/lectures/109-tmp', type=>"application/x-bittorrent" },
        description => 'Everybody is invited 0 be there if you wish to shape the W2L lectures.',
        link  => "http://www.haifux.org/",
		author => "Would be Organizers",
		pubDate => "Mon, 09 Aug 2004 16:30:00 GMT",
        category => "Meetings",
);

$rss->save("fm.rdf");