#! /usr/bin/perl

#
# Name	      : ${HOME}/bin/MakeRss.pl
#
# Version     : 1.0
#
# Author      : Reuven M. Lerner (from Linux Journal, October 2004)
#
# Description : Generate rss file
#
# 1.0	First Version
#

use strict;
use diagnostics;
use warnings;

use XML::RSS;

my $url = "http://www.xs4all.nl/~gerardvw";

my $rss = new XML::RSS( version => '0.91' );
#my $rss = new XML::RSS( version => '1.00' );
#my $rss = new XML::RSS( version => '2.0' );


$rss->channel(

    title	=> 'Rss feed of gerardvw@xs4all.nl.',
    link	=> "$url/feed.rss",
    language	=> 'en',
    description => 'Mostly my new Kornshell scripts that are part of my development environment.'

);

$rss->add_item(

    title	=> 'convert2html.ksh',
    link	=> "$url/HOME/bin/convert2html.ksh",
    description => 'Convert source code to HTML using gvim syntax highlighting.'

);

$rss->add_item(
    title	=> 'ShowAbove127.awk',
    link	=> "$url/HOME/bin/ShowAbove127.awk",
    description => 'show characters with ascii value above 127 in reverse (handy for finding CP1252 characters in UTF-8 stream).'

);

$rss->add_item(

    title	=> 'listDirs',
    link	=> "$url/HOME/ksh_settings/functions/listDirs",
    description => 'List the rights of directories leading to a file/directory.'

);

$rss->add_item(

    title	=> 'CheckAccount.ksh',
    link	=> "$url/HOME/bin/CheckAccount.ksh",
    description => 'Korn shell script to check password aging accounts with SSH.'

);

$rss->add_item(

    title	=> 'GetAFPRecord.c',
    link	=> "$url/HOME/src/GetAFPRecord.c",
    description => 'Get a record from an .afp file (IBM page description language).'

);

$rss->add_item(

    title	=> 'ScreenSize.dtksh',
    link	=> "$url/HOME/bin/ScreenSize.dtksh",
    description => 'Use dtksh to the size of the DISPLAY window.'

);

$rss->add_item(

    title	=> 'GotoPanel.dtksh',
    link	=> "$url/HOME/bin/GotoPanel.dtksh",
    description => 'Use dtksh to display a window with push buttons for logging in remote systems.'

);

$rss->add_item(

    title	=> 'GotoPanel.ini',
    link	=> "$url/HOME/bin/GotoPanel.ini",
    description => 'Configuration file to GotoPanel.dtksh.'

);

$rss->add_item(

    title	=> 'GebruikPuTTYSsh.txt',
    link	=> "$url/HOME/Documents/GebruikPuTTYSsh.txt",
    description => 'Nederlandse quick guide voor gebruik van PuTTY en ssh.'

);

$rss->add_item(

    title	=> 'GebruikUnixSsh.txt',
    link	=> "$url/HOME/Documents/GebruikUnixSsh.txt",
    description => 'Nederlandse quick guide voor gebruik van ssh op unix.'

);

print $rss->as_string;


############# EOF #############