00001 #!/usr/bin/perl
00002
00003 # make sure to set this string to
00004 # the corresponding remote in /etc/lircd.conf
00005 $remote_name = "gi-motorola-dct2000";
00006
00007 sub change_channel {
00008 my($channel_digit) = @_;
00009 system ("rc SEND_ONCE $remote_name $channel_digit");
00010 sleep 1;
00011 }
00012
00013 $channel=$ARGV[0];
00014 sleep 1;
00015 if (length($channel) > 2) {
00016 change_channel(substr($channel,0,1));
00017 change_channel(substr($channel,1,1));
00018 change_channel(substr($channel,2,1));
00019 } elsif (length($channel) > 1) {
00020 change_channel(substr($channel,0,1));
00021 change_channel(substr($channel,1,1));
00022 } else {
00023 change_channel(substr($channel,0,1));
00024 }
00025 system ("rc SEND_ONCE $remote_name ENTER");
