bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

First pass at adapting these functions for multi-ics-directory output.

Browse source
This commit is contained in:
Bradley M. Kuhn 2013-11-29 13:41:52 -05:00
parent 6382f36eba
commit 4269e613e1
1 changed files with 100 additions and 69 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

79
calendar-export.plx
View file

@ -23,7 +23,7 @@
# "GPLv3". If not, see <http://www.gnu.org/licenses/>. # "GPLv3". If not, see <http://www.gnu.org/licenses/>.
# The functions PrivatizeMergeAndTZIcalFile, BuildTZList, # The functions PrivatizeMergeAndTZIcalFile, BuildTZList,
# PrivacyFilterICalFile, and FilterEmacsToICal material copyrighted and # PrivacyFilterICalFiles, and FilterEmacsToICal material copyrighted and
# licensed as below: # licensed as below:
# Copyright © 2006 Software Freedom Law Center, Inc. # Copyright © 2006 Software Freedom Law Center, Inc.
@ -152,17 +152,20 @@ ELISP_END
unless unlink($icsPublicFile, $icsWillBePrivatizedFile, $icsFullFile) == 3; unless unlink($icsPublicFile, $icsWillBePrivatizedFile, $icsFullFile) == 3;
} }
############################################################################### ###############################################################################
sub PrivacyFilterICalFile ($$) { sub PrivacyFilterICalFiles ($$) {
my($inputFile, $outputFile) = @_; my($icsDirectory) = @_;
my $oldCalendar = Data::ICal->new(filename => $inputFile); chdir $icsDirectory or die "unable to change to $icsDirectory: $!";
foreach my $file (<*.ics>) {
my $newCalendar = Data::ICal->new(data => <<END_ICAL my $newCalendar = Data::ICal->new(data => <<END_ICAL
BEGIN:VCALENDAR BEGIN:VCALENDAR
VERSION:2.0 VERSION:2.0
PRODID:-//Mozilla.org/NONSGML Mozilla Calendar V1.0//EN PRODID:-//Emacs//NONSGML icalendar.el//EN
END:VCALENDAR END:VCALENDAR
END_ICAL END_ICAL
); );
my $oldCalendar = Data::ICal->new(filename => $file);
my $entries = (defined $oldCalendar) ? $oldCalendar->entries : []; my $entries = (defined $oldCalendar) ? $oldCalendar->entries : [];
my $x =0; my $x =0;
foreach my $entry (@{$entries}) { foreach my $entry (@{$entries}) {
@ -192,24 +195,31 @@ END_ICAL
} }
} elsif (defined $class and $class =~ /PRIVATE/i){ } elsif (defined $class and $class =~ /PRIVATE/i){
# do not put this event in the output at all # do not put this event in the output at all
next; die "unable to scrub $file in $icsDirectory: $!"
unless unlink($file) == 1;
} }
$newCalendar->add_entry($entry); $newCalendar->add_entry($entry);
} }
open(SCRUBBED_CAL, ">$outputFile") or }
DieLog("Unable to overwrite $outputFile: $!", $LOCK_CLEANUP_CODE); open(SCRUBBED_CAL, ">$file") or
DieLog("Unable to overwrite $file: $!", $LOCK_CLEANUP_CODE);
print SCRUBBED_CAL $newCalendar->as_string; print SCRUBBED_CAL $newCalendar->as_string;
close SCRUBBED_CAL; close SCRUBBED_CAL;
DieLog("Error when writing $outputFile: $!", $LOCK_CLEANUP_CODE) DieLog("Error when writing $file: $!", $LOCK_CLEANUP_CODE)
unless $? == 0; unless $? == 0;
undef $newCalendar;
} }
###################################################################### ######################################################################
sub PrivatizeMergeAndTZIcalFile ($$$$$$) { sub PrivatizeMergeAndTZIcalFile ($$$$$$) {
my($icsPrivate, $icsPublic, $icsFull, $tzList, $user, $errorUser) = @_; my($icsPrivate, $icsPublic, $icsOutputDir, $tzList, $user, $errorUser) = @_;
my %calendar; my %calendar;
$calendar{private} = Data::ICal->new(filename => $icsPrivate); $calendar{private} = Data::ICal->new(filename => $icsPrivate);
$calendar{public} = Data::ICal->new(filename => $icsPublic); $calendar{public} = Data::ICal->new(filename => $icsPublic);
my $type = "public";
foreach my $type (qw/public private/) {
my $entries = (defined $calendar{$type}) ? $calendar{$type}->entries : [];
foreach my $entry (@{$entries}) {
my $newCalendar = Data::ICal->new(data => <<END_ICAL my $newCalendar = Data::ICal->new(data => <<END_ICAL
BEGIN:VCALENDAR BEGIN:VCALENDAR
VERSION:2.0 VERSION:2.0
@ -217,10 +227,6 @@ PRODID:-//Emacs//NONSGML icalendar.el//EN
END:VCALENDAR END:VCALENDAR
END_ICAL END_ICAL
); );
my $type = "public";
while (1) {
my $entries = (defined $calendar{$type}) ? $calendar{$type}->entries : [];
foreach my $entry (@{$entries}) {
$entry->add_property(class => "CONFIDENTIAL") if ($type eq "private"); $entry->add_property(class => "CONFIDENTIAL") if ($type eq "private");
# Let's shift some timezones around. # Let's shift some timezones around.
@ -228,7 +234,7 @@ END_ICAL
my $datePropList = $entry->property($dateType); my $datePropList = $entry->property($dateType);
next unless @$datePropList > 0; next unless @$datePropList > 0;
WarnLog($errorUser, "Strange that the entry below for $icsFull had more " . WarnLog($errorUser, "Strange that the entry below for $icsOutputDir had more " .
"than one $dateType:\n" . Data::Dumper->Dumper($entry) ) "than one $dateType:\n" . Data::Dumper->Dumper($entry) )
unless @$datePropList == 1; unless @$datePropList == 1;
@ -257,10 +263,24 @@ END_ICAL
} }
$newCalendar->add_entry($entry); $newCalendar->add_entry($entry);
# Now, write out each event into a single ics file in $icsOutputDir.
# This will overwrite existing events of the same name.
my $uidList = $entry->property('UID');
DieLog("This entry has multiple UIDs: @{$uidList}") unless @$uidList == 1;
my $uid = $uidList[0];
my $outputFile = File::Spec->catpath("", $icsOutputDir, "${uid}.ics");
open(SINGLE_EVENT_ICAL, ">", $outputFile) or
DieLog("Unable to overwrite $outputFile: $!", $LOCK_CLEANUP_CODE);
print SINGLE_EVENT_ICAL $newCalendar->as_string;
close SINGLE_EVENT_ICAL;
DieLog("Error ($?) while writing $outputFile ($?): $!", $LOCK_CLEANUP_CODE) unless $? == 0;
undef $newCalendar;
} }
last if ($type eq "private");
$type = "private";
} }
# Create specialized "Time Zone change" events to indicate the user's travel.
foreach my $tzEntry (@$tzList) { $tzEntry->{date}->set_time_zone("floating"); } foreach my $tzEntry (@$tzList) { $tzEntry->{date}->set_time_zone("floating"); }
for (my $ii = 0; $ii < @$tzList; $ii++) { for (my $ii = 0; $ii < @$tzList; $ii++) {
my $tzEntry = $tzList->[$ii]; my $tzEntry = $tzList->[$ii];
@ -283,13 +303,24 @@ END_ICAL
description => $tzEntry->{location}, description => $tzEntry->{location},
dtstart => [ $startDate, { VALUE => 'DATE' } ], dtstart => [ $startDate, { VALUE => 'DATE' } ],
dtend => [ $nextDate,{ VALUE => 'DATE' } ], dtend => [ $nextDate,{ VALUE => 'DATE' } ],
uid => $uid; uid => $uid);
my $newCalendar = Data::ICal->new(data => <<END_ICAL
BEGIN:VCALENDAR
VERSION:2.0
PRODID:-//Emacs//NONSGML icalendar.el//EN
END:VCALENDAR
END_ICAL
);
$newCalendar->add_entry($whereEvent); $newCalendar->add_entry($whereEvent);
my $outputFile = File::Spec->catpath("", $icsOutputDir, "${uid}.ics");
open(SINGLE_EVENT_ICAL, ">", $outputFile) or
DieLog("Unable to overwrite $outputFile: $!", $LOCK_CLEANUP_CODE);
print SINGLE_EVENT_ICAL $newCalendar->as_string;
close SINGLE_EVENT_ICAL;
DieLog("Error ($?) while writing $outputFile ($?): $!", $LOCK_CLEANUP_CODE) unless $? == 0;
undef $newCalendar;
} }
open(MERGED_CAL, ">$icsFull") or return \%calendar;
DieLog("Unable to overwrite $icsFull: $!", $LOCK_CLEANUP_CODE);
print MERGED_CAL $newCalendar->as_string;
close MERGED_CAL;
DieLog("Error when writing $icsFull: $!", $LOCK_CLEANUP_CODE)
unless $? == 0;
} }