如何使用 Perl 的 ICal::Entry 禁用通知/提醒并将事件设置为空闲时间？

Question

不幸的是，我的大学懒得为我们的公共活动制作谷歌日历或.ics。相反，他们选择给我们写一封电子邮件，其中包含一个包含日期列表的格式化文本文件。我有一个 Perl 脚本可以将所述列表转换为 iCalendar (.ics) 文件。我想稍后将 .ics 导入我的谷歌日历。

到目前为止，脚本运行良好，但现在我想禁用标准通知（电子邮件和弹出窗口）并将事件设置为空闲时间（而不是默认忙碌） 。问题是，我没有从Data::ICal::Entry::FreeBusy 和Data::ICal::Entry::Alarm::Display 的文档中得到任何有用的信息。请为我提供正确的属性以添加到下面脚本中的$event->add_properties(...) 行：

#!/usr/bin/perl -w
# Converts a specially formated text file (list of events) into an .ics
# (iCalendar) file for import into Google-Calendar or other calendar
# applications.

use Date::ICal;
use Data::ICal;
use Data::ICal::Entry::Event;

# Read file into one long string
open FILE, $ARGV[0] or die "Couldn't open file: $!";
my $fstring = join("", <FILE>);
close FILE;

# Prepare calendar
my $calendar = Data::ICal->new();
$calendar->add_properties( method=>"PUBLISH",);

# Add events depending on what was found in file
my @events = split("\n\n", $fstring);
foreach $eventstring (@events) {
    my $eventstring =~ s/(\d+\.\d+\.\d+)//; # remove date from the string
    my $datestring = $1;                    #+but save it for processing:
    ($day, $month, $year) = split(/\./, $datestring);
    $title = ( split /\n/, $eventstring )[1]; # what is left is the title

    my $event = Data::ICal::Entry::Event->new();
    $event->add_properties(
        summary     => "Kolloquium: $title",
        description => $eventstring,          #+and the long description
        dtstart     => Date::ICal->new( year=>"20$year", month=>$month, day=>$day, hour=>17, min=>15 )->ical,
        dtend       => Date::ICal->new( year=>"20$year", month=>$month, day=>$day, hour=>18, min=>15 )->ical,
        dtstamp     => Date::ICal->new( epoch => time )->ical,
        # MISSING HERE: Right FREEBUSY and ALARM properties. PLEASE HELP!
    );
    $calendar->add_entry($event);
}

print $calendar->as_string;

谢谢！

Answer 1

首先是一些一般性的评论：

1. 添加use strict;
2. 在循环foreach my $eventstring (@events) { 中添加my 并从下面的行my $eventstring =~ s/(\d+\.\d+\.\d+)//; 中删除它
3. 作为一个好习惯，尽量避免使用裸词FILE 并将文件句柄定义为标量变量open my $FILE,$ARGV[0]

所以现在，要回答您的问题，请导入这 2 个模块...

use Data::ICal::Entry::FreeBusy;
use Data::ICal::Entry::Alarm::Display;

...我相信您必须在代码中添加以下内容：

my $event = Data::ICal::Entry::Event->new();
$event->add_properties(
    summary     => "Kolloquium: $title",
    description => $eventstring,          #+and the long description
    dtstart     => Date::ICal->new( year=>"20$year", month=>$month, day=>$day, hour=>17, min=>15 )->ical,
    dtend       => Date::ICal->new( year=>"20$year", month=>$month, day=>$day, hour=>18, min=>15 )->ical,
    dtstamp     => Date::ICal->new( epoch => time )->ical,
);
my $vfreebusy = Data::ICal::Entry::FreeBusy->new();
$vfreebusy->add_properties(
    organizer => 'MAILTO:jsmith@host.com',
    freebusy   => Date::ICal->new( epoch => ... )->ical . '/' . Date::ICal->new( epoch => ... )->ical, #don't forget to define the time!
);
my $valarm = Data::ICal::Entry::Alarm::Display->new();
$valarm->add_properties(
    description => "Wake up!",
    trigger   => [ Date::ICal->new( epoch => ... )->ical, { value => 'DATE-TIME' } ], #don't forget to define the time!
);

$calendar->add_entry($valarm);
$calendar->add_entry($vfreebusy);
$calendar->add_entry($event);