irsend SEND_ONCE blaster POWER

/etc/init.d/lirc restart

irsend SEND_START blaster 1_130_KEY_POWER

name Power
    2149318666

begin remote

  name          blaster
  bits          32
  flags         RAW_CODES
  eps           0
  aeps          0
  plead         0
  gap           333333
  repeat_bit    0

  begin raw_codes
    name 0
    2149318656
    name 1
    2149318657
    name 2
    2149318658
    name 3
    2149318659
    name 4
    2149318660
    name 5
    2149318661
    name 6
    2149318662
    name 7
    2149318663
    name 8
    2149318664
    name 9
    2149318665
    name KEY_POWER
    2149318666
    name KEY_CH_UP
    2149318671
    name KEY_CH_DOWN
    2149318672
    name KEY_MUTE
    2149318673
    name KEY_VOL_DOWN
    2149318674
    name CH_PREVIOUS
    2149318675
    name KEY_VOL_UP
    2149318676
    name KEY_DISPLAY
    2149318677
    name KEY_EXIT
    2149318680
    name KEY_GUIDE
    2149318683
    name KEY_SELECT
    2149318686
    name KEY_AV
    2149318697
    name KEY_ENTER
    2149318699
    name KEY_MENU
    2149318703
    name KEY_MUP
    2149318704
    name KEY_MDOWN
    2149318705
    name KEY_MLEFT
    2149318706
    name KEY_MRIGHT
    2149318707
   end raw_codes

end remote

begin remote

  name  Hauppauge
  bits           13
  flags SHIFT_ENC
  eps            30
  aeps          100

  one           950   830
  zero          950   830
  plead         960
  gap          89584
  repeat_bit      2

      begin codes
          TV                       0x000000000000100F
          RADIO                    0x000000000000100C
          FULL_SCREEN              0x000000000000102E
          CH+                      0x0000000000001020
          CH-                      0x0000000000001021
          VOL-                     0x0000000000001011
          VOL+                     0x0000000000001010
          MUTE                     0x000000000000100D
          SOURCE                   0x0000000000001022
          1                        0x0000000000001001
          2                        0x0000000000001002
          3                        0x0000000000001003
          4                        0x0000000000001004
          5                        0x0000000000001005
          6                        0x0000000000001006
          7                        0x0000000000001007
          8                        0x0000000000001008
          9                        0x0000000000001009
          0                        0x0000000000001000
          RESERVED                 0x000000000000101E
          MINIMIZE                 0x0000000000001026
      end codes

end remote

#!/usr/bin/perl

# make sure to set this string to
# the corresponding remote in /etc/lircd.conf
$remote_name = "blaster";

# Let's assume you don't need to press enter after you punch in a
# channel number. Change this to 1 if your cable box expects you press
# enter after each command
$needs_enter = 0;

# Change this to point to your rc executable
$rc_command = "/usr/local/bin/irsend";

# This subroutine actually sends the signal to the cable box
sub change_SIGNAL {
    my($SIGNAL) = @_;
    system ("$rc_command SEND_ONCE $remote_name $SIGNAL");
}

$SIGNAL=$ARGV[0];
open F, ">> /var/log/channel.log";
print F "channel changing $SIGNAL\n";
close F;
print "channel changing $SIGNAL\n";

# Checks if $SIGNAL begins with a digit
# If it detects that the string is made up of digits, then it puts
# spaces between the digits.  Ex. 1234 becomes 1 2 3 4
if ( $SIGNAL =~ /^\d+$/ )
{
    my $length = length($SIGNAL);
    my $counter = 0;
    my $temp;

    while( $counter < $length )
    {
        $temp .= substr($SIGNAL,$counter,1) ." ";
        $counter++;
    }

    change_SIGNAL($temp);
}
else
{
    # argument we passed was not made up of digits, so it must be a
    # command that does something other than channel changing on the
    # cable box
    change_SIGNAL($SIGNAL);
}

# Do we need to send enter
if ( $needs_enter )
{
    system ("$rc_command SEND_ONCE $remote_name ENTER");
}