Hello Perl Bugs,

Below is the code which is useful to read file <file>.xml and parse it, cached it and store it into the db. But I am getting the error into that. 
#!/usr/bin/perl
my $parsed_rss_instances;
sub doExternalChannel
{
    my ($newsversion, $cid, $url)=@_;
    my $html_cache="";
    my $nb=0;
    my $httpstatus=0;

    debug_msg(3, "in doExternalChannel, cid=$cid, newsversion:$newsver
+sion\n");
  
    my $content="";
    my $url_digest = Digest::MD5::md5_hex( $url );
    print STDERR "in reading file, using $url_digest for $url\n";
    debug_msg(4, "Reading from file $channeldir/$url_digest.xml\n");
    if (open FILE, "<$channeldir/$url_digest.xml")
    {
        # we can read the file
        close FILE;
    }
    else
    {
      warn "Cannot open $channeldir/$url_digest.xml\n";
      return ("",0);
    }
    debug_msg(4, "About to parse $channeldir/$url_digest.xml\n");
    eval
    {            ### TRY
    my $rss_instance;
    if( $parsed_rss_instances->{$url_digest} )
    {
        $rss_instance = $parsed_rss_instances->{$url_digest};
    }
    else
    {  
        $rss_instance = XML::RSS->new();        
        $rss_instance->parsefile("$channeldir/$url_digest.xml");      
+  
        $parsed_rss_instances->{$url_digest} = $rss_instance;
    }
    my $updatedb = 1;        #we put result in DB
   ($html_cache, $nb) = &cacheHTMLChannel($cid, $newsversion, $rss_ins
+tance, $updatedb);
    };

    ### CATCH
    if ($@)
    {
        my ($name, $url)=DBAccess->sqlSelect ("name, url", "channel", 
+"cid=$cid");
        warn "\n\n###WARNING: '$name' Channel file contains incorrect 
+RSS content cid=$cid:\n\n$@\n\nThis is not an error but a warning exp
+laining that Metadot Portal Server fetched a file that is not a corre
+ct RSS file. If this error persists please contact the creator of thi
+s channel file or the channel webmaster, i.e. the guy running the web
+site at $url\n\n\n";
    }
    debug_msg(4, "doExternalChannel: end  cid=$cid\n");
    return($html_cache, $nb);
}

[download]
This code is a part of metadot ( the free online portal server) so in that the feeds are not updating.
can u plz tell me wt is the problem I am new to perl so getting some problem to do some RnD witth this code snippt. for updating my feeds I have to run the file in prompt so I am getting like that 
in reading file, using ba671e66ff6cbf92e300ec9ec32ee4f7 for http://xml
+.newsisfree.com/feeds/39/1439.xml
Cannot open channels/ba671e66ff6cbf92e300ec9ec32ee4f7.xml

[download]

so like that I am getting all the feed name one by one......
Plz help me or guide me......

In reply to Problem with rss feed updation by opensourcebug

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.