view release on metacpan or  search on metacpan

Examples/FileWriter/Netx/WebRadio/Station/Shoutcast/FileWriter.pm  view on Meta::CPAN

sub disconnected {
	my $self = shift;
	$self->close_old_file();
}

sub setMP3Tag {
	my $self = shift;
	my ($filename, $artist, $song) = @_;
	return unless $filename;
	use MP3::Tag;
	my $mp3 = MP3::Tag->new( $filename );
	unless ( exists $mp3->{ ID3v1 } ) {
		$mp3->new_tag( 'ID3v1' );
	}
	my $id3v1 = $mp3->{ ID3v1 };
	$id3v1->all( $song, $artist, '',2003,'',0,'' );
	$id3v1->write_tag();
	
}