Fetch downtime calendar on server side
Change-Id: I15fbe6b42489fa233dc0e17c31910e8a06444a3c
diff --git a/lib/IDS/DeReKoVecs/Read.pm b/lib/IDS/DeReKoVecs/Read.pm
index f63b8c8..4887210 100644
--- a/lib/IDS/DeReKoVecs/Read.pm
+++ b/lib/IDS/DeReKoVecs/Read.pm
@@ -1,5 +1,6 @@
use utf8;
package IDS::DeReKoVecs::Read;
+use LWP::Simple;
use strict;
use warnings;
use Config;
@@ -25,8 +26,16 @@
use Mojo::JSON qw(decode_json encode_json to_json);
use Exporter qw(import);
-our @EXPORT = qw(init_net load_sprofiles getCollocationAssociation getClassicCollocatorsCached getSimilarProfiles getSimilarProfilesCached getBiggestMergedDifferences filter_garbage get_neighbours getWordNumber dump_vecs dump_for_numpy cos_similarity_as_json);
+our @EXPORT = qw(init_net load_sprofiles getDowntimeCalendar getCollocationAssociation getClassicCollocatorsCached getSimilarProfiles getSimilarProfilesCached getBiggestMergedDifferences filter_garbage get_neighbours getWordNumber dump_vecs dump_for_numpy cos_similarity_as_json);
+sub getDowntimeCalendar {
+ my ($url) = @_;
+ if ($url =~ m/^\s*$/) {
+ return "";
+ }
+ my $calendar = LWP::Simple::get($url);
+ return $calendar;
+}
sub getCollocationAssociation {
my ($c, $word, $collocate) = @_;