Jump to content

RSS Alarm being blocked by firewall


Kaao
 Share

Recommended Posts

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

Link to comment
Share on other sites

  • 3 weeks later...

rsserror.jpg

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

}

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...