From 520badeab5229a28f897f175d69deac06aceda32 Mon Sep 17 00:00:00 2001
From: Dan Scott <dscott@laurentian.ca>
Date: Fri, 13 Feb 2015 15:47:38 -0500
Subject: [PATCH] Update LU campus library hours automatically

Rather than requiring people to update hours in multiple
locations, use the LU library campus hours feed to update
the Evergreen hours of operation table.

Signed-off-by: Dan Scott <dscott@laurentian.ca>
---
 Open-ILS/src/support-scripts/parse_library_hours | 116 +++++++++++++++++++++++
 1 file changed, 116 insertions(+)
 create mode 100644 Open-ILS/src/support-scripts/parse_library_hours

diff --git a/Open-ILS/src/support-scripts/parse_library_hours b/Open-ILS/src/support-scripts/parse_library_hours
new file mode 100644
index 0000000000..f0d4829d85
--- /dev/null
+++ b/Open-ILS/src/support-scripts/parse_library_hours
@@ -0,0 +1,116 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use LWP::UserAgent;
+use JSON::XS;
+use DateTime;
+use Data::Dumper;
+use DBI;
+
+my %hours;
+
+foreach my $lib ('JWT', 'UoS', 'JND', 'Archives') {
+    foreach my $day (0..6) {
+        $hours{$lib}{$day}{'open'} = '00:00:00';
+        $hours{$lib}{$day}{'close'} = '00:00:00';
+    }
+}
+
+sub parse_entry {
+    my ($entry, $day, $dow) = @_;
+    if ($entry->{'start'} =~ m/$day/) {
+        my $lib = $entry->{'id'};
+        my ($open, $close) = parse_open_close($entry->{'title'});
+        $hours{$lib}{$dow}{'open'} = $open;
+        $hours{$lib}{$dow}{'close'} = $close;
+    }
+}
+
+sub determine_date {
+    my ($day, $dow) = @_;
+    my $days_to_add = 7 + $day - $dow;
+    if ($days_to_add > 7) {
+        $days_to_add -= 7;
+    }
+    return $days_to_add;
+}
+
+sub parse_open_close {
+    my $string = shift || 'Closed';
+    if ($string eq 'Closed') {
+        return ('00:00:00', '00:00:00');
+    }
+
+    my ($open_hour, $open_min, $open_time, $close_hour, $close_min, $close_time) = $string =~ m/^(\d+):(\d+)(.m) - (\d+):(\d+)(.m)$/;
+    if ($open_time eq 'pm') {
+        $open_hour += 12;
+    }
+    if ($close_time eq 'pm') {
+        $close_hour += 12;
+    }
+
+    return ("$open_hour:$open_min", "$close_hour:$close_min");
+}
+
+my $json = new JSON::XS;
+my $ua = LWP::UserAgent->new;
+$ua->timeout(20);
+
+# In DateTime->dow land, 1 = Monday
+my $dow = DateTime->now( time_zone => 'local' )->set_time_zone('floating')->dow;
+
+my $mon = DateTime->now( time_zone => 'local' )->set_time_zone('floating')->add(days => determine_date(1, $dow))->ymd;
+my $tue = DateTime->now( time_zone => 'local' )->set_time_zone('floating')->add(days => determine_date(2, $dow))->ymd;
+my $wed = DateTime->now( time_zone => 'local' )->set_time_zone('floating')->add(days => determine_date(3, $dow))->ymd;
+my $thu = DateTime->now( time_zone => 'local' )->set_time_zone('floating')->add(days => determine_date(4, $dow))->ymd;
+my $fri = DateTime->now( time_zone => 'local' )->set_time_zone('floating')->add(days => determine_date(5, $dow))->ymd;
+my $sat = DateTime->now( time_zone => 'local' )->set_time_zone('floating')->add(days => determine_date(6, $dow))->ymd;
+my $sun = DateTime->now( time_zone => 'local' )->set_time_zone('floating')->add(days => determine_date(7, $dow))->ymd;
+
+my $baseUrl = 'http://laurentian.ca/sites/all/themes/lul/templates/includes/feeds/json.librarycal.php';
+$baseUrl .= "?lang=en&start=$mon&end=$sun";
+
+my $response = $ua->get($baseUrl);
+
+if ($response->is_success) {
+    my $entries = $json->decode($response->decoded_content);
+    foreach my $entry (@$entries) {
+        parse_entry($entry, $mon, 0);
+        parse_entry($entry, $tue, 1);
+        parse_entry($entry, $wed, 2);
+        parse_entry($entry, $thu, 3);
+        parse_entry($entry, $fri, 4);
+        parse_entry($entry, $sat, 5);
+        parse_entry($entry, $sun, 6);
+    }
+}
+
+# Now we can go through and update the hours for the libraries we care about
+#print Data::Dumper->Dump([\%hours]);
+
+my %libs = (
+    JND => 103,
+    UoS => 107,
+    JWT => 104
+);
+
+my $dbh = DBI->connect('dbi:Pg:dbname=conifer;host=cproddb1.sitka.bclibraries.ca;port=5432', 'evergreen');
+foreach my $lib (sort keys %libs) {
+    my $stmt = $dbh->prepare("UPDATE actor.hours_of_operation SET dow_0_open = ?, dow_0_close = ?, dow_1_open = ?, dow_1_close = ?, dow_2_open = ?, dow_2_close = ?, dow_3_open = ?, dow_3_close = ?, dow_4_open = ?, dow_4_close = ?, dow_5_open = ?, dow_5_close = ?, dow_6_open = ?, dow_6_close = ? WHERE id = ?");
+    $stmt->execute((
+        $hours{$lib}{0}{'open'}, $hours{$lib}{0}{'close'},
+        $hours{$lib}{1}{'open'}, $hours{$lib}{1}{'close'},
+        $hours{$lib}{2}{'open'}, $hours{$lib}{2}{'close'},
+        $hours{$lib}{3}{'open'}, $hours{$lib}{3}{'close'},
+        $hours{$lib}{4}{'open'}, $hours{$lib}{4}{'close'},
+        $hours{$lib}{5}{'open'}, $hours{$lib}{5}{'close'},
+        $hours{$lib}{6}{'open'}, $hours{$lib}{6}{'close'},
+        $libs{$lib}
+    ));
+   
+    if ($dbh->err) {
+        print STDERR "Failed to update library hours. ";
+        print STDERR "Error was " . $dbh->errstr . "\n";
+    }
+}
-- 
2.11.0