Should have moved to JSON long ago. It has milliseconds and everything.

plexMonitor/plexMonitor-json.pl

@@ -0,0 +1,115 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use LWP::Simple;
+use File::Basename;
+use Time::HiRes qw( sleep );
+use File::Temp qw( tempfile );
+use URI::Escape;
+
+# Prototypes
+sub xbmcHTTP($);
+
+# App config
+my $TEMP_DIR = `getconf DARWIN_USER_TEMP_DIR`;
+chomp($TEMP_DIR);
+my $DATA_DIR = $TEMP_DIR . '/plexMonitor';
+
+# xbmcHTTP commands
+my %CMDS = (
+	'PLAYING' => 'GetCurrentlyPlaying',
+	'GUI'     => 'GetGuiStatus'
+);
+
+# Debug
+my $DEBUG = 0;
+if ($ENV{'DEBUG'}) {
+	$DEBUG = 1;
+}
+
+# Command-line arguments
+my ($DELAY) = @ARGV;
+if (!$DELAY) {
+	$DELAY = 0;
+}
+
+# Sanity check
+if (!-d $TEMP_DIR) {
+	die("Bad config\n");
+}
+
+# Mode
+my $MODE = 'PLAYING';
+if (basename($0) =~ /GUI/i) {
+	$MODE = 'GUI';
+}
+
+# Add the data directory as needed
+if (!-d $DATA_DIR) {
+	mkdir($DATA_DIR);
+}
+
+# Build our file name
+my $OUT_FILE = $DATA_DIR . '/' . $MODE;
+
+# Loop forever (unless no delay is set)
+my $data     = '';
+my $dataLast = '';
+do {
+
+	# Run the monitor command
+	my $changed = 0;
+	$dataLast = $data;
+	$data     = xbmcHTTP($CMDS{$MODE});
+
+	# Compare this data set to the last
+	if ($data ne $dataLast) {
+		$changed = 1;
+		if ($DEBUG) {
+			print STDERR "Change detected in data:\n" . $data . "\n";
+		}
+	}
+
+	# Ensure the output file exists
+	if (!-r $OUT_FILE) {
+		$changed = 1;
+	}
+
+	# If anything changed, save the data to disk
+	if ($changed) {
+		my ($fh, $tmp) = tempfile($OUT_FILE . '.XXXXXXXX', 'UNLINK' => 0);
+		print $fh $data;
+		close($fh);
+		rename($tmp, $OUT_FILE);
+	}
+
+	# Delay and loop
+	sleep($DELAY);
+} until ($DELAY == 0);
+
+# Exit cleanly
+exit(0);
+
+sub xbmcHTTP($) {
+	my ($cmd) = @_;
+	
+	#$cmd = '{"jsonrpc":"2.0","method":"Player.GetActivePlayers","id":1}';
+	#$cmd = '{"jsonrpc":"2.0","method":"Player.GetProperties","id":1,"params":{"playerid": 1,"properties": ["time"]}}';
+	$cmd = '{"jsonrpc": "2.0", "method": "Player.GetItem", "params": { "properties": ["title", "album", "artist", "season", "episode", "duration", "showtitle", "tvshowid", "thumbnail", "file", "fanart", "streamdetails"], "playerid": 1 }, "id": "VideoGetItem"}';
+	
+	# Build the command
+	my $url = 'http://localhost:3005/jsonrpc?request=' . uri_escape($cmd);
+	if ($DEBUG) {
+		print STDERR 'Command: ' . $cmd . "\n\t" . $url . "\n";
+	}
+
+	# Send the request
+	my $data = get($url);
+	if (!defined($data)) {
+		if ($DEBUG) {
+			print STDERR "No data returned from HTTP call\n";
+		}
+		$data = '';
+	}
+	return $data;
+}