#!/usr/bin/perl

use Data::ICal;
use strict;

#print "Using file: ". @ARGV[0]."\n";
my $calendar = Data::ICal->new(filename => @ARGV[0]); # parse existing file

foreach my $bar (@{$calendar->{entries}})
{
  if (defined $bar->{properties}->{class}[0]->{value} && $bar->{properties}->{class}[0]->value =~ /PRIVATE/)
  {
    $bar->{properties}->{summary}[0]->value('BUSY');
    $bar->{properties}->{description}[0]->value('');
  }
}

print $calendar->as_string;