#!perl
use XML::Atom::SimpleFeed;
use HTML::TreeBuilder 5 -weak;
use LWP::Simple qw /get/;
use Date::Manip;

# normalize all dates to UTC
Date_Init("ConvTZ=UTC");

my $format = "%OZ"; # according to perldoc, this will be an RFC3339-compliant date

my $url_ = 'http://www.klwines.com/local_events.asp';

my $feed = XML::Atom::SimpleFeed->new(
    title   => 'K&L Wine Tasting schedule',
    link    => 'http://hasan.d8u.us/kl.atom.xml',
    author  => 'Hasan Diwan',
    logo    => 'http://validator.w3.org/feed/images/valid-atom.png');

my $url = get($url_);
my $html = HTML::TreeBuilder->new_from_content($url);
my @events = $html->look_down('_tag', 'div', class => 'localevent_content');
foreach my $evt (@events) {
    my $event = $evt->as_text;
    my ($date, $description) = split /:/, $event;
    $date = ParseDate($date);
    $date2 = UnixDate("$date", $format);
    $feed->add_entry (
        title => 'Wine Tasting',
        published => $date2,
        link => 'http://www.klwines.com/local_events.asp',
        content => "$description");
}
$feed->print;