Start on script to request slot in the time table.

1 files changed, 37 insertions, 0 deletions

diff --git a/frikanalen/bin/gettimeslot b/frikanalen/bin/gettimeslot
new file mode 100644
index 0000000..c71c83e
--- /dev/null
+++ b/frikanalen/bin/gettimeslot
@@ -0,0 +1,37 @@
+#!/usr/bin/perl
+#
+# Author: Petter Reinholdtsen
+# Date: 2010-09-12
+# License: GNU General Public license v2 or later
+#
+# http://wiki.nuug.no/grupper/video/pubfrikanalen
+#
+# API description is at
+# https://admin.frikanalen.tv/ScheduleSite/ScheduleProxyWebService.asmx
+
+use strict;
+use warnings;
+
+use Getopt::Std;
+
+# SOAP:Lite må modifiseres til å gjøre ting på MS måten :-/
+use SOAP::Lite on_action => sub {sprintf '%s/%s', @_}, 'trace', 'debug';
+
+# First one need to log in with a valid user
+
+# Then one can ask for the schedule
+my $soap = new SOAP::Lite
+    -> uri('http://never.no')
+    -> proxy('https://admin.frikanalen.tv/ScheduleSite/ScheduleProxyWebService.asmx');
+$soap->readable(1);
+my $res;
+my $obj = $soap->GetItems(
+    SOAP::Data->name('startTimeUtc' => '2010-09-12T12:00:00'),
+    SOAP::Data->name('endTimeUtc' => '2010-09-12T15:00:00'));
+unless ($obj->fault) {
+    return $obj->result->{string};
+} else {
+#        print Dumper($obj);
+    print $obj->fault->{faultstring}, "\n";
+    return undef;
+}