pictcontrol/ia200test at master · cribe78/pictcontrol · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
#!/usr/bin/perl

use Getopt::Long;
use IO::Socket::INET;
use warnings;
use strict;

# IA200 command
# A
# 00
# W   // write
# B   // inputs
# A   // video input
# B (RGB) or C (DVI)


my $scaler = 2;
my $command = '';
my $menu = '';
my $function = '';
my $subfunction = '';
my $value = '';

my $result = GetOptions(
                "scaler=s" => \$scaler,
                "command=s" => \$command,
                "menu=s" => \$menu,
                "function=s" => \$function,
                "subfunction=s" => \$subfunction,
                "value=s" => \$value );

my %ip_addrs = ( "1" => "0",
                 "2" => "1",
                 "3" => "2",
                 "4" => "3",
                 "5" => "4",
                 "FL" => "0",
                 "L" => "1",
                 "C" => "2",
                 "R" => "3",
                 "FR" => "4" );
$scaler = uc($scaler);
if ( ! defined($ip_addrs{$scaler})) {
    die "invalid scaler specified: $scaler\n";
}
my $addr = "192.168.1.20" . $ip_addrs{$scaler};

my $readwrite = "R";
if ($value) {
    $readwrite = "W";
}


if (! $command) {
    if (! ($menu && $function)) {
        die "command or menu and function required";
    }
    if ( $menu eq "C" ||
         $menu eq "D" ||
         $menu eq "B" && $subfunction) {
        $readwrite = "W";
    }

    $command = $readwrite . $menu . $function . $subfunction . $value;

}

my $raw_command = "A00" . $command . "\n";


my $sock = IO::Socket::INET->new(
                PeerAddr => $addr,
                PeerPort => '30001',
                Proto => 'tcp');
if (! $sock) {
    die "could not open socket";
}

$sock->print($raw_command);
my $resp;


my $read = $sock->read($resp, 1);
if ( $resp eq "K" ) {
    print "OK\n";
}
elsif ( $resp eq "E" ) {
    print "Error\n";
}
elsif ( $resp eq "V" ) {
    $sock->read($resp, 4);
    print "$resp\n";
}
elsif( $resp eq "v") {
    my @chars = ();
    while ($resp ne "\r") {
        $sock->read($resp, 1);
        push(@chars, $resp);
    }
    $resp = join('',@chars);
    print "$resp\n";
}