| … | |
… | |
| 2 | |
2 | |
| 3 | $|=1; |
3 | $|=1; |
| 4 | |
4 | |
| 5 | print <<EOF; |
5 | print <<EOF; |
| 6 | |
6 | |
| 7 | 0) build no interface |
7 | - devlirc is a low-level module than can rpelace lircd in some cases. |
|
|
8 | - irman is an intefrace to the proprietary irman device. |
|
|
9 | - lirc is an interface to the linux infrared remote control package. |
|
|
10 | |
|
|
11 | 0) devlirc interface only |
| 8 | 1) irman interface (requires libirman) |
12 | 1) devlirc + irman interfaces (requires libirman) |
| 9 | 2) lirc interface (requires lirc) |
13 | 2) devlirc + lirc interface (requires liblirc_client) |
| 10 | 3) both interfaces |
14 | 3) devlirc + irman + lirc |
| 11 | |
15 | |
| 12 | EOF |
16 | EOF |
| 13 | |
17 | |
| 14 | print "which interfaces to build> "; $ints = <STDIN>; |
18 | $ints = prompt "which interfaces to build", 2; |
| 15 | |
19 | |
| 16 | push @DIR, "Irman" if $ints & 1; |
20 | push @DIR, "Irman" if $ints & 1; |
| 17 | push @DIR, "Lirc" if $ints & 2; |
21 | push @DIR, "Lirc" if $ints & 2; |
| 18 | |
22 | |
| 19 | WriteMakefile( |
23 | WriteMakefile( |
| 20 | 'dist' => { |
24 | dist => { |
| 21 | PREOP => 'pod2text RCU.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;', |
25 | PREOP => 'pod2text RCU.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;', |
| 22 | COMPRESS => 'gzip -9v', |
26 | COMPRESS => 'gzip -9v', |
| 23 | SUFFIX => '.gz', |
27 | SUFFIX => '.gz', |
| 24 | }, |
28 | }, |
| 25 | 'NAME' => 'RCU', |
29 | NAME => 'RCU', |
| 26 | 'VERSION_FROM' => 'RCU.pm', |
30 | VERSION_FROM=> 'RCU.pm', |
| 27 | 'LIBS' => [''], |
|
|
| 28 | 'DEFINE' => '', |
|
|
| 29 | 'INC' => '', |
|
|
| 30 | DIR => \@DIR, |
31 | DIR => \@DIR, |
| 31 | ); |
32 | ); |
