serialcom/relaiskarte/relais.pl

#!/usr/bin/perl

# $Id$
# $Log$


use strict;
use warnings;

use Term::ReadKey;
use Getopt::Long;

use Relais qw( 
  sendCommand
  shutdownPort
  getPortCount
  togglePort 
  disableAllPorts
  getDeviceState
);

my $run_sequence = 0;
GetOptions('sequence' => \$run_sequence);


sub main_sequence {
  # ---- begin main -----
        # NOPs senden
        sendCommand('NOP');
        #sendCommand('NOP');

        # SETUP 
        sendCommand('SETUP');

        #sendCommand('SET PORT', 16);

        enablePort(1);
        enablePort(2);

        enablePort(6);
        enablePort(7);

        disablePort(6);
        disablePort(1);

        #sendCommand('GET PORT');
        #sendCommand('GET OPTION');
  # ---- end main -----
}

sub start {
  sendCommand('SETUP');
  ReadMode 4; # Turn off controls keys
}

sub stop {
  ReadMode 1;
  shutdownPort();
}

sub recieveKey {
  my $key = shift;

  #print "got key: $key\n";

  if (lc $key eq 'x') {
    stop();
    exit;

  } elsif (lc $key eq 'r') {
    disableAllPorts();

  } elsif (lc $key eq 's') {
    getDeviceState();

  } elsif (lc $key eq 'h') {
    usage();

  } elsif ($key =~ m/\d/) {
    togglePort($key);
  }

}

sub usage {
 
  my $portcount = getPortCount();

  print "\n";
  print "relais.pl  -  please control via keyboard", "\n";
  print "toggle ports: 1-$portcount", "\n";
  print "reset ports:  r", "\n";
  print "port-status:  s", "\n";
  print "help (this):  h", "\n";
  print "exit:         x", "\n";
}

sub main_interactive {

  start();

  my $key;

  usage();

  while (1) {
    while (not defined ($key = ReadKey(-1))) {
      # No key yet
      #sleep 1;
    }
    recieveKey($key);
    #sleep 1;
  }

}

if ($run_sequence) {
  main_sequence();
} else {
  main_interactive();
}
1	joko	1.1	#!/usr/bin/perl
2
3			# $Id$
4			# $Log$
5
6
7			use strict;
8			use warnings;
9
10			use Term::ReadKey;
11			use Getopt::Long;
12
13			use Relais qw(
14			sendCommand
15			shutdownPort
16			getPortCount
17			togglePort
18			disableAllPorts
19			getDeviceState
20			);
21
22			my $run_sequence = 0;
23			GetOptions('sequence' => \$run_sequence);
24
25
26			sub main_sequence {
27			# ---- begin main -----
28			# NOPs senden
29			sendCommand('NOP');
30			#sendCommand('NOP');
31
32			# SETUP
33			sendCommand('SETUP');
34
35			#sendCommand('SET PORT', 16);
36
37			enablePort(1);
38			enablePort(2);
39
40			enablePort(6);
41			enablePort(7);
42
43			disablePort(6);
44			disablePort(1);
45
46			#sendCommand('GET PORT');
47			#sendCommand('GET OPTION');
48			# ---- end main -----
49			}
50
51			sub start {
52			sendCommand('SETUP');
53			ReadMode 4; # Turn off controls keys
54			}
55
56			sub stop {
57			ReadMode 1;
58			shutdownPort();
59			}
60
61			sub recieveKey {
62			my $key = shift;
63
64			#print "got key: $key\n";
65
66			if (lc $key eq 'x') {
67			stop();
68			exit;
69
70			} elsif (lc $key eq 'r') {
71			disableAllPorts();
72
73			} elsif (lc $key eq 's') {
74			getDeviceState();
75
76			} elsif (lc $key eq 'h') {
77			usage();
78
79			} elsif ($key =~ m/\d/) {
80			togglePort($key);
81			}
82
83			}
84
85			sub usage {
86
87			my $portcount = getPortCount();
88
89			print "\n";
90			print "relais.pl - please control via keyboard", "\n";
91			print "toggle ports: 1-$portcount", "\n";
92			print "reset ports: r", "\n";
93			print "port-status: s", "\n";
94			print "help (this): h", "\n";
95			print "exit: x", "\n";
96			}
97
98			sub main_interactive {
99
100			start();
101
102			my $key;
103
104			usage();
105
106			while (1) {
107			while (not defined ($key = ReadKey(-1))) {
108			# No key yet
109			#sleep 1;
110			}
111			recieveKey($key);
112			#sleep 1;
113			}
114
115			}
116
117			if ($run_sequence) {
118			main_sequence();
119			} else {
120			main_interactive();
121			}
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26