Re: Access Additional Calendars

[HarleyPig]

Using Simon Wistow's perl module I'm able to create entries, but they
are all going to the default account ... maybe you can tell me what I'm
doing wrong?

#!/usr/bin/perl -w

use strict;

use DateTime;
use HTML::Parser;
use LWP::Simple;
use Net::Google::Calendar;

my %calendars = (
  'Dad'     =>
'http://www.google.com/calendar/feeds/[EMAIL 
PROTECTED]/private-myprivatehash/basic',
  'Mom'     =>
'http://www.google.com/calendar/feeds/[EMAIL 
PROTECTED]/private-momprivatehash/basic',
  'Savvy'   =>
'http://www.google.com/calendar/feeds/[EMAIL 
PROTECTED]/private-savvyprivatehash/basic',
  'DeeDee'  =>
'http://www.google.com/calendar/feeds/[EMAIL 
PROTECTED]/private-deedeeprivatehash/basic',
  'Carrie'  =>
'http://www.google.com/calendar/feeds/[EMAIL 
PROTECTED]/private-carrieprivatehash/basic',
  'James'   =>
'http://www.google.com/calendar/feeds/[EMAIL 
PROTECTED]/private-jamesprivatehash/basic',
  'Robert'  =>
'http://www.google.com/calendar/feeds/[EMAIL 
PROTECTED]/private-robertprivatehash/basic',
  'Patrick' =>
'http://www.google.com/calendar/feeds/[EMAIL 
PROTECTED]/private-patrickprivatehash/basic',
  'Test'    =>
'http://www.google.com/calendar/feeds/[EMAIL 
PROTECTED]/private-testprivatehash/basic',
);

$calendars{ $_ } =~ s!(private).*$!$1/full! for keys %calendars;

my $u = 'alansyoungiii';
my $p = 'mysecret';

for my $calendar ( keys %calendars ) {

  my $cal = Net::Google::Calendar->new( url => $calendars{ $calendar }
);

  $cal->login( $u, $p );

  my $entry = Net::Google::Calendar::Entry->new();

  $entry->title( "Testing $calendar ($$)" );
  $entry->content( "This should be in ${calendar}'s calendar." );

  # '20060724T083000', '20060724T120000');
  $entry->when( DateTime->new( year => 2006, month => 07, day => 24,
hour => 8, minute => 30, second => 0, time_zone => 'US/Pacific' ),
                DateTime->new( year => 2006, month => 07, day => 24,
hour => 12, minute => 0, second => 0, time_zone => 'US/Pacific' ) );

  # Why is this showing up 6 hours early?

  my $author = Net::Google::Calendar::Person->new( Version => '1.0' );
  $author->name( 'Alan Young' );
  $author->email( '[EMAIL PROTECTED]' );
  $entry->author( $author );

  $cal->add_entry($entry) or die "Couldn't add event: [EMAIL PROTECTED]";

  warn "Added $calendar\n";
}


--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups 
"Google Calendar Data API" group.
To post to this group, send email to 
google-calendar-help-dataapi@googlegroups.com
To unsubscribe from this group, send email to [EMAIL PROTECTED]
For more options, visit this group at 
http://groups.google.com/group/google-calendar-help-dataapi
-~----------~----~----~----~------~----~------~--~---