summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2021-05-20 00:52:56 +0200
committerJonas Smedegaard <dr@jones.dk>2021-05-20 00:52:56 +0200
commitd18f341ffb2d820096006abeffd4b4772a50adcf (patch)
tree76d30525ef990b164e5a3105c7fbfe4af33091e7 /bin
parentd14e31dba61f9df674a8080d9182151529c68c36 (diff)
tidy: rename internal variable calendar_event -> entry
Diffstat (limited to 'bin')
-rwxr-xr-xbin/events2md.pl8
1 files changed, 4 insertions, 4 deletions
diff --git a/bin/events2md.pl b/bin/events2md.pl
index 71111c3..2964867 100755
--- a/bin/events2md.pl
+++ b/bin/events2md.pl
@@ -170,11 +170,11 @@ for my $year ( map { $_->value }
sub print_event
{
- my ( $calendar_event, $event, $path ) = @_;
+ my ( $entry, $event, $path ) = @_;
if ( $log->is_trace ) {
use DDP;
- p $calendar_event;
+ p $entry;
p $event;
}
my $summary = unescape( $event->{SUMMARY} );
@@ -192,8 +192,8 @@ sub print_event
$time_begin .= $event->{DTSTART}->strftime(' %e. %B kl. %k.%M');
my $time_end = $event->{DTEND}->strftime('%k.%M');
my %attachments;
- if ( $calendar_event->property('attach') ) {
- for ( @{ $calendar_event->property('attach') } ) {
+ if ( $entry->property('attach') ) {
+ for ( @{ $entry->property('attach') } ) {
my $uri = try { URI->new( $_->value ) }
or next;
$uri->authority and $uri->host