RSS Alarm being blocked by firewall

[Kaao]

Hey its not getting the RSS feeds i had it working before but for some reason after ive reinstalled it isnt any idea what i need to unblock from the firewall?

[Oberon]

Ummm...the rss feeds are retrieved using an http request, so unless you're allowing access through your firewall on a per app basis, that's not likely your problem.

[debianuser]

Hey its not getting the RSS feeds i had it working before but for some reason after ive reinstalled it isnt any idea what i need to unblock from the firewall?

This the 10th post I see where People say "I got a problem.. help me"... well describe concisely your problem? do you get an error? if yes, what is it?

help us so we can help you

[Kaao]

I assum thats an error in the coding but i dont know anything a bout perl.

heres my copy.

#!/usr/bin/perl -w

# rss2html - converts an RSS file to HTML

# It take one argument, either a file on the local system,

# or an HTTP URL like http://slashdot.org/slashdot.rdf

# by Jonathan Eisenzopf. v1.0 19990901

# Copyright (c) 1999 Jupitermedia Corp. All Rights Reserved.

# See http://www.webreference.com/perl for more information

#

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version.



# INCLUDES

use strict;

use XML::RSS;

use LWP::Simple;



# Declare variables

my $content;

my $file;



# MAIN

# check for command-line argument

die "Usage: rss2html.pl (<RSS file> | <URL>)n" unless @ARGV == 1;



# get the command-line argument

my $arg = shift;



# create new instance of XML::RSS

my $rss = new XML::RSS;



# argument is a URL

if ($arg=~ /http:/i) {

    $content = get($arg);

    die "Could not retrieve $arg" unless $content;

    # parse the RSS content

    $rss->parse($content);



# argument is a file

} else {

    $file = $arg;

    die "File "$file" does't exist.n" unless -e $file;

    # parse the RSS file

    $rss->parsefile($file);

}



# print the HTML channel

&print_html($rss);



# SUBROUTINES

sub print_html {

    my $rss = shift;

    print <<HTML;

HTML



    # print the channel items

    my $i = 0;

    foreach my $item (@{$rss->{'items'}})

    {

      next unless defined($item->{'title'});

      print "$item->{'title'}... ... ... ... ...n";

      if($i==4){

         last;   

      }

       $i = $i + 1;

    }



    # if there's a copyright element

    if ($rss->{'channel'}->{'copyright'}) {

   print <<HTML;

<p><sub>$rss->{'channel'}->{'copyright'}</sub></p>

HTML

    }



    print <<HTML;

HTML

}

[Shaun]

You're missing the DateTime::Format::Mail module.

http://ppm.tcool.org/packages.html

Read the stuff in the navigaton bar on the right.