view release on metacpan or  search on metacpan

eg/recipe2/lib/recipe2.pm  view on Meta::CPAN

post '/ical-importer' => sub {
    my $fb = Facebook::Graph->new( config->{facebook} );
    $fb->access_token(session->{access_token});

    # download ical feed
    my $ical = LWP::UserAgent->new
	->get(request->params->{ical_uri})
	->content;

    # process ical into calendar
    my $calendar = Data::ICal->new( data => $ical );

    # post events
    foreach my $entry (@{$calendar->entries}) {
       $fb->add_event
           ->set_name($entry->properties->{summary}[0]->value)
           ->set_location($entry->properties->{location}[0]->value)
           ->set_description($entry->properties->{description}[0]->value)
           ->set_start_time(DateTime::Format::ICal->parse_datetime($entry->properties->{dtstart}[0]->value))
           ->set_end_time(DateTime::Format::ICal->parse_datetime($entry->properties->{dtend}[0]->value))
           ->publish;
    }

    template 'ical-importer-post.tt';

eg/recipe2/views/ical-importer.tt  view on Meta::CPAN

<h1>iCal Importer</h1>
This utility will import an iCal (ics) feed to your Facebook event calendar.

<form action="/ical-importer" method="post">
iCal Feed/File URI:
<input type="text" name="ical_uri">
<input type="submit">
</form>

[% IF response %]
	<h3>Facebook Response</h3>
	<textarea style="width: 500px; height: 250px;">[% response %]</textarea>