Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!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;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement