|
@@ -14,12 +14,7 @@ my $DATA_DIR = DMX::dataDir();
|
|
|
|
|
|
|
|
# Command-line parameters
|
|
# Command-line parameters
|
|
|
my ($DEV, $CMD) = @ARGV;
|
|
my ($DEV, $CMD) = @ARGV;
|
|
|
-my $CMD_FILE = 'UberZach::Integration::' . uc($DEV);
|
|
|
|
|
-
|
|
|
|
|
-# Sanity check
|
|
|
|
|
-if (!-S $CMD_FILE) {
|
|
|
|
|
- die('Invalid command file: ' . $CMD_FILE . "\n");
|
|
|
|
|
-}
|
|
|
|
|
|
|
+my $CMD_FILE = uc($DEV);
|
|
|
|
|
|
|
|
# Socket init
|
|
# Socket init
|
|
|
my $sock = DMX::clientSock($CMD_FILE);
|
|
my $sock = DMX::clientSock($CMD_FILE);
|