#!/usr/bin/perl -w

# This script reads an OPML files (tested with SharpReader exported date)
# and then tries to lookup the Last-Modified header to show the last time
# the feed was updated. Very not perfect way of doing this but worked for
# me.
# Dean Wilson 2005/01/15 version 0.1

use strict;
use warnings;
use LWP;

$|++;
my $DEBUG = 0;

my $browser = LWP::UserAgent->new();
$browser->timeout(20);

while (<>) {
  if (m/xmlUrl/) {
    m/xmlUrl="(.*?)"/;
    my $feedurl = $1;
    print "DEBUG: '$feedurl'\n" if $DEBUG;
    my $response = $browser->get($feedurl);
    print "$feedurl :: ", $response->header("Last-Modified"), "\n";
  }
}