| Subject: | No way to get track title from a station object |
There's no way to actually get the title from a Station object. The patch above adds a get/set method for title, and makes the default process_new_title call it.
diff -Nru a/lib/Netx/WebRadio/Station/Shoutcast.pm b/lib/Netx/WebRadio/Station/Shoutcast.pm
--- a/lib/Netx/WebRadio/Station/Shoutcast.pm 2003-01-13 15:28:23.000000000 -0600
+++ b/lib/Netx/WebRadio/Station/Shoutcast.pm 2005-05-17 12:26:42.000000000 -0500
@@ -23,7 +23,7 @@
use Class::MethodMaker
new_with_init => 'new',
get_set =>
- [qw /pollmode host port socket blocking path useragent stationname/];
+ [qw /pollmode host port socket blocking path useragent stationname title/];
%Netx::WebRadio::Station::Shoutcast::pollmodes = (
START => undef,
@@ -386,7 +386,7 @@
sub process_new_title {
my ( $self, $title ) = @_;
- print $title, "\n";
+ $self->title( $title );
}
=head2 disconnected