diff options
| -rw-r--r-- | frikanalen/bin/Frikanalen.pm | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/frikanalen/bin/Frikanalen.pm b/frikanalen/bin/Frikanalen.pm new file mode 100644 index 0000000..cdc0c97 --- /dev/null +++ b/frikanalen/bin/Frikanalen.pm @@ -0,0 +1,35 @@ +# +# Support library for script parsing the getfiled/filelog files. +# +# $Id: FileLog.pm 18293 2010-09-17 08:39:47Z pre $ +# + +package Frikanalen; +require Exporter; + +# SOAP:Lite må modifiseres til å gjøre ting på MS måten :-/ +use SOAP::Lite on_action => sub {sprintf '%s/%s', @_}, ; + +our $VERSION = 0.01; +our @ISA = qw(Exporter); +our @EXPORT = qw( + getEpgUrls + ); + +sub getEpgUrls { + my $soap = new SOAP::Lite + -> uri('http://tempuri.org') + -> proxy('http://communitysite1.frikanalen.tv/CommunitySite/EpgWebService.asmx'); + my $res; + my $obj = $soap->GetEpgUrls; + unless ($obj->fault) { + return $obj->result->{string}; + } else { +# print Dumper($obj); + print $obj->fault->{faultstring}, "\n"; + return undef; + } +} + + +1; |