From: Dan Scott <dscott@laurentian.ca>
Date: Fri, 13 Feb 2015 20:47:38 +0000 (-0500)
Subject: Update LU campus library hours automatically
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=520badeab5229a28f897f175d69deac06aceda32;p=contrib%2FConifer.git

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>
---

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";
+    }
+}