diff options
author | Yves Fischer <yvesf-git@xapek.org> | 2013-04-20 22:26:55 +0200 |
---|---|---|
committer | Yves Fischer <yvesf-git@xapek.org> | 2013-04-20 22:27:00 +0200 |
commit | 0fab00a2ff4fbe7c3c56b7bd2dc523eb974aba61 (patch) | |
tree | 3d8222d4e3de49172b410c3d1136dfaaa18294d0 /datasources/arduino/arduinoAnalogHTTP/bin/ard-reset-arduino | |
parent | b5c71cfd18eb145acb72d0a9b58c5b10fbeac74d (diff) | |
download | ebus-alt-0fab00a2ff4fbe7c3c56b7bd2dc523eb974aba61.tar.gz ebus-alt-0fab00a2ff4fbe7c3c56b7bd2dc523eb974aba61.zip |
sachen rumgeschoben, leveldb: 32bit fix
Diffstat (limited to 'datasources/arduino/arduinoAnalogHTTP/bin/ard-reset-arduino')
-rwxr-xr-x | datasources/arduino/arduinoAnalogHTTP/bin/ard-reset-arduino | 115 |
1 files changed, 115 insertions, 0 deletions
diff --git a/datasources/arduino/arduinoAnalogHTTP/bin/ard-reset-arduino b/datasources/arduino/arduinoAnalogHTTP/bin/ard-reset-arduino new file mode 100755 index 0000000..22c7109 --- /dev/null +++ b/datasources/arduino/arduinoAnalogHTTP/bin/ard-reset-arduino @@ -0,0 +1,115 @@ +#! /usr/bin/perl + +use strict; +use warnings; + +use Device::SerialPort; +use Getopt::Long; +use Pod::Usage; + +my %Opt = + ( + period => 0.1, + ); + +GetOptions(\%Opt, + "period=f", # width of reset pulse in seconds + "verbose!", + "help!", + "info!", + ); + +if ($Opt{help} || $Opt{info}) + { + usage(); + } + +die "No Arduinos found!\n" + unless @ARGV; + +foreach my $dev (@ARGV) + { + my $p = Device::SerialPort->new($dev) + or die "Unable to open $dev: $!\n"; + + my $dt = $Opt{period}; + + print STDERR "Setting DTR high for ${dt}s on $dev\n" + if $Opt{verbose}; + + die "Invalid pulse width ($dt), " + unless $dt > 0.0; + + $p->pulse_dtr_on($dt * 1000.0); + } + +## here endeth the main + +sub usage + { + pod2usage(-verbose => 2); + } + +__END__ + +=head1 NAME + +ard-reset-arduino - Reset an Arduino + +=head1 USAGE + + $ ard-reset-arduino /dev/cu.usb* + + $ ard-reset-arduino --verbose --period=0.1 /dev/cu.usb* + +=head1 DESCRIPTION + +To reset (most) Arduinos, it's enough to just pulse the DTR line. + +You can do that from the shell with stty, but there's an interesting +diversity of command flags. This little program gives a uniform interface +at the cost of requiring C<Device::SerialPort>. + +=head1 OPTIONS + +=over + +=item --verbose + +Watch what's going on on STDERR. + +=item --period=0.25 + +Specify the DTR pulse width in seconds. + +=back + +=head1 BUGS AND LIMITATIONS + +There are no known bugs in this application. + +Please report problems to the author. + +Patches are welcome. + +=head1 AUTHOR + +Martin Oldfield, ex-atelier@mjo.tc + +Thanks to Daniele Vergini who suggested this to me, and supplied +a command line version. + +=head1 LICENCE AND COPYRIGHT + +Copyright (c) 2012, Martin Oldfield. All rights reserved. + +This file is free software; you can redistribute it and/or modify it +under the terms of the GNU Lesser General Public License as published +by the Free Software Foundation; either version 2.1 of the License, or +(at your option) any later version. + +This program is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + + |