#! /usr/bin/perl -w

use strict;
use warnings;
use diagnostics;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use lib ('./perllib');
use XML::Simple;
use Data::Dumper;
use LWP::Simple;

my $file = 'http://www.opusforum.org/rmg/tel/index.rss';
my $content = get($file); 

my $cgi = CGI->new();
print $cgi->header(-type => 'text/html');

my $jobs_h = XMLin($content);
my $jobs = ();
foreach(keys(%$jobs_h)){
  if($_ eq 'item'){
    $jobs = $jobs_h->{$_};
    last;
  }
}

foreach my $job(@$jobs){
  #my $jobtitle = $cgi->escapeHTML($job->{title});
  my $jobtitle = $job->{title};
  if($jobtitle =~ /ö/){
    print "yes<br>";
  $jobtitle =~ s%ö%\&ouml;%ge;
  $jobtitle =~ s%ä%\&auml;%ge;
  $jobtitle =~ s%ß%\&szlig;%ge;
  $jobtitle =~ s%ü%\&uuml;%ge;
  $jobtitle =~ s%Ä%\&Auml;%ge;
  $jobtitle =~ s%Ö%\&Ouml;%ge;
  $jobtitle =~ s%Ü%\&Uuml;%ge;
  }
  print $cgi->a({-href => $job->{link}, -target => '_blank'}, $jobtitle);
  print "<br />\n";
}