summaryrefslogtreecommitdiffstats
path: root/abs/core-testing/system-templates/templates/cc.orig.sh
blob: d8fd2dcca3bc9f82f66321fc647c2c51c1410e2a (plain)
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
#!/usr/bin/perl
# rwraithr added segment for 4 digit channels
# make sure to set this string to
# the corresponding remote in /etc/remoted.conf
#$remote_name = "RC-u43c-1h";
$remote_name = "$REMOTE_NAME";

sub change_channel {
        my($channel_digit) = @_;
        system ("/usr/bin/irsend SEND_ONCE $remote_name $channel_digit");
        sleep .5;
}

$channel=$ARGV[0];
sleep 1;
if (length($channel) > 3) {
        change_channel(substr($channel,0,1));
        change_channel(substr($channel,1,1));
        change_channel(substr($channel,2,1));
        change_channel(substr($channel,3,1));
} elsif (length($channel) > 2) {
        change_channel(substr($channel,0,1));
        change_channel(substr($channel,1,1));
        change_channel(substr($channel,2,1));
} elsif (length($channel) > 1) {
        change_channel(substr($channel,0,1));
        change_channel(substr($channel,1,1));
} else {
        change_channel(substr($channel,0,1));
}
system ("/usr/bin/irsend SEND_ONCE $remote_name SELECT");

#system ("sleep 2");
#system ("/usr/bin/ivtvctl -p 2 -d /dev/video2");
#system ("/usr/bin/ivtvctl -p 1 -d /dev/video2");