tweet-from-traktor.pl

#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use Net::Twitter;
use Traktor::SongNameServer;
use Encode qw/encode/;

my $postfix = " #HashTagOfMyTraktorPlay"; # postfix of tweets

# create your new application and 
# get information from https://dev.twitter.com/apps
my $nt = Net::Twitter->new(
	traits   => [qw/OAuth API::REST/],
	consumer_key        => '',
	consumer_secret     => '',
	access_token        => '',
	access_token_secret => '',
);

my %option = (
	host => 'localhost', # server address
	port => 8000,        # server port

	cue => {
		# Song Name Cue Setting - song names are cued and displayed after delay.
		# delay <bysong> songs to display song names.
		bysong => 1, 
		# delay <bytime> seconds to display song names.
		bytime => 0, 
		# when both <bysong> and <bytime> are not zero, they are summed.
		# when <bysong> is not zero and next song are not coming, 
		# cued songname will be displayed after <nextsongtimeout> seconds.
		# 0 means no timeout.
		nextsongtimeout => 180, 
		# when song played shorter than <ignoreshortplay> seconds, ignore it.
		# 0 means nothing ignored.
		ignoreshortplay => 5,  
	},

	buffer_size => 8192, # stream receive buffer size
	timeout => 1,        # stream receive loop timeout in second
	callback => sub {
		my $song = shift;
		my $result = $nt->update(sprintf '%s / "%s" %s', 
			$song->{ARTIST}, $song->{TITLE}, $postfix);
		print encode('utf8', qq{[song tweeted: $song->{ARTIST} / "$song->{TITLE}"]\n});
	},   # callback for song name changed.
	     # an argument is {ARTIST=>'...', TITLE=>'...'}.
);

my $server = Traktor::SongNameServer->new(%option);
$server->run();