Commit b2c843ba authored by Adrien Dorsaz's avatar Adrien Dorsaz

Improve speed of the script using already found value.

parent f2fd690b
......@@ -254,7 +254,7 @@ main:
my $time = time;
# Loop through ical Events
while(my($uid, $event) = each(%allevents)){
while(my($uid, %event) = each(%allevents)){
debug ("uid found : $uid - Reading the ical event");
# Tie::iCal has structure :
# $events{'a_unique_uid'} = ['VEVENT', {'NAME1' => 'VALUE1'}]
......@@ -262,7 +262,6 @@ main:
my @component = @{$allevents{$uid}};
debug ("Prepare the $component[0] ical object recid=$recid");
if($component[0] eq 'VEVENT'){
my %event = %{$component[1]};
# Description
my $description = $event{SUMMARY};
# Ignore the possible language given in this line
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment