SamyGO

Code: Select all

<?xml version="1.0" encoding="UTF-8"?><Channel><ChType>DTV</ChType><MajorCh>8</MajorCh><MinorCh>65534</MinorCh><PTC>48</PTC><ProgNum>614</ProgNum></Channel>

Code: Select all

Only Hits on MTV (03:30AM~05:45AM)

Code: Select all

#!/usr/bin/perl
# upnp_tv_agent.pl

use warnings;
use strict;

use Net::UPnP::ControlPoint;

my $upnp = Net::UPnP::ControlPoint->new();
my @devs = $upnp->search();
my $tv;

foreach my $dev ( @devs ) 
{
   foreach my $serv ( $dev->getservicelist() )
   {
      if ( $serv->getservicetype() =~ /TVAgent/ )
      {
         $tv = $serv;
         last;
      }
   }
}

die "TVAgent not found\n" unless $tv;

my $res = action( 'GetCurrentMainTVChannel' );
print "[*] $res->{CurrentChannel}\n";

$res = action( 'GetWatchingInformation' );
print "[*] $res->{TVMode}\n";
print "[*] $res->{WatchingInformation}\n";


exit 0;

# -----------------------------------------------------------------------------

sub action
{
   my ( $act, $args ) = @_;

   my $r = $tv->postaction( $act, $args );

   unless ( 200 == $r->getstatuscode() )
   {
      die "Error $act: ". $r->getstatuscode()."\n";
   }

   my $res = $r->getargumentlist();
   unless ( 'OK' eq $res->{Result} )
   {
      die "Error $act response $res->{Result}\n";
   }

   return $res;
}

# -----------------------------------------------------------------------------

__END__

Code: Select all

$ ./upnp_tv_agent.pl 
[*] <?xml version="1.0" encoding="UTF-8"?><Channel><ChType>DTV</ChType><MajorCh>1</MajorCh><MinorCh>65534</MinorCh><PTC>58</PTC><ProgNum>530</ProgNum></Channel>
[*] Tuner
[*] Tenis - Atp 1000 Roma on La 1 (03:59PM~06:16PM)