#!/usr/bin/perl

use XML::Atom::Feed;
use Data::ICal;
use Date::ICal;
use Data::ICal::Entry::Event;
my $q = $ENV{'QUERY_STRING'};
$q =~ s/%3a/:/gi;
$q =~ s/%2f/\//gi;
warn "asked to go find ". $q;
exit 0 unless $q =~ /^https?:/;
my $feed = XML::Atom::Feed->new(URI->new($q));
                      my $calendar = Data::ICal->new();
          for my $entry ($feed->entries)  {
        my $pub = $entry->published || $entry->updated;
        $pub =~ s/-//;
        $pub =~ s/-//;
        $pub =~ s/://g; 
        my $vevent = Data::ICal::Entry::Event->new();
           $vevent->add_properties(
               uid => $pub. $entry->link->href,
               summary => $entry->title,
               description => $entry->content->body,
               dtstart   =>  $pub,
               dtend => $pub,
               dtstamp => $pub,
               url => $entry->link->href
           );

           $calendar->add_entry($vevent);
          }
print "Content-Type: text/calendar\n\n";
print $calendar->as_string;
exit 0;