Use short names for easier matching across services.

Someday I should add a mode for simplified matching where results =~ commands, but for now EVAL will work.

serial/serial.pl

@@ -29,22 +29,22 @@ if (basename($0) =~ /PROJECTOR/i) {
 	$CRLF      = "\r\n";
 	$DELIMITER = ':';
 	%CMDS      = (
-		'INIT'                  => '',
-		'ON'                    => 'PWR ON',
-		'OFF'                   => 'PWR OFF',
-		'STATUS'                => 'PWR?',
-		'COLOR_DYNAMIC'         => 'CMODE 06',
-		'COLOR_LIVING_ROOM'     => 'CMODE 0C',
-		'COLOR_NATURAL'         => 'CMODE 07',
-		'COLOR_THEATER'         => 'CMODE 05',
-		'COLOR_THEATER_BLACK_1' => 'CMODE 09',
-		'COLOR_THEATER_BLACK_2' => 'CMODE 0A',
-		'COLOR_XV'              => 'CMODE 0B',
-		'COLOR'                 => 'CMODE?',
-		'HDMI_1'                => 'SOURCE 30',
-		'HDMI_2'                => 'SOURCE A0',
-		'VGA'                   => 'SOURCE 20',
-		'INPUT'                 => 'SOURCE?',
+		'INIT'            => '',
+		'ON'              => 'PWR ON',
+		'OFF'             => 'PWR OFF',
+		'STATUS'          => 'PWR?',
+		'DYNAMIC'         => 'CMODE 06',
+		'LIVING_ROOM'     => 'CMODE 0C',
+		'NATURAL'         => 'CMODE 07',
+		'THEATER'         => 'CMODE 05',
+		'THEATER_BLACK_1' => 'CMODE 09',
+		'THEATER_BLACK_2' => 'CMODE 0A',
+		'XV'              => 'CMODE 0B',
+		'COLOR'           => 'CMODE?',
+		'HDMI_1'          => 'SOURCE 30',
+		'HDMI_2'          => 'SOURCE A0',
+		'VGA'             => 'SOURCE 20',
+		'INPUT'           => 'SOURCE?',
 	);
 	%STATUS_CMDS = (
 		'STATUS' => { 'MATCH' => [ qr/^PWR=/,                 qr/PWR=01/ ] },