aboutsummaryrefslogtreecommitdiff
path: root/bin/events2md.pl
diff options
context:
space:
mode:
Diffstat (limited to 'bin/events2md.pl')
-rwxr-xr-xbin/events2md.pl36
1 files changed, 36 insertions, 0 deletions
diff --git a/bin/events2md.pl b/bin/events2md.pl
index f9363f9..76c6398 100755
--- a/bin/events2md.pl
+++ b/bin/events2md.pl
@@ -8,6 +8,42 @@ use Feature::Compat::Try;
use FindBin qw($Bin);
use lib "$Bin/../lib";
+# add bogus properties acknowledged uid to silence Cal::DAV
+package Data::ICal::Entry::Alarm::None {
+ use base qw/Data::ICal::Entry::Alarm/;
+
+ sub optional_unique_properties
+ {
+ qw(
+ duration repeat acknowledged uid
+ );
+ }
+}
+
+# add bogus properties acknowledged uid to silence Cal::DAV
+package Data::ICal::Entry::Alarm::Display {
+ use base qw/Data::ICal::Entry::Alarm/;
+
+ sub optional_unique_properties
+ {
+ qw(
+ duration repeat acknowledged uid
+ );
+ }
+}
+
+# add bogus properties acknowledged uid to silence Cal::DAV
+package Data::ICal::Entry::Alarm::Email {
+ use base qw/Data::ICal::Entry::Alarm/;
+
+ sub optional_unique_properties
+ {
+ qw(
+ duration repeat acknowledged uid
+ );
+ }
+}
+
use Getopt::Complete (
'quiet!' => undef,
'verbose!' => undef,