#!/usr/bin/perl -W


use strict;
use English;


# process the files

#bring curreent events from iglu
#system("lynx -source http://www.iglu.org.il/events/current-events.cgi/\?proper_html=0 > cal.htm.dl ");
#bring future events from iglu
#system("lynx -source http://www.iglu.org.il/events/future-events.cgi/\?proper_html=0 >> cal.htm.dl ");
#http://www.perl.org.il/rss2.rdf
system("lynx -source http://www.perl.org.il/rss2.rdf > rss_agg ");
system("./read.pl rss_agg >cal.htm.dl");
#http://www.cs.tau.ac.il/telux/rss.xml
system("lynx -source http://www.cs.tau.ac.il/telux/rss.xml > rss_agg ");
system("./read.pl rss_agg >>cal.htm.dl");
#http://www.jlc.org.il/rss/rss_lectures_en.php
#system("lynx -source http://www.jlc.org.il/rss/rss_lectures_en.php > rss_agg ");
system("./read.pl rss_agg >>cal.htm.dl");

#haifux itself
#system("lynx -source http://haifux.org/rss2file > rss_agg ");
system("cat ../rss2file>rss_agg ");
system("./read.pl rss_agg >>cal.htm.dl");

system "cat cal.1 cal.htm.dl > cal.htm";