tange/tangetools
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

blink: multiple devices work.

Browse source
This commit is contained in:
Ole Tange 2013-02-19 13:26:58 +01:00
parent cb859bb5d5
commit 453802d183
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
blink/blink
View file

@ -206,21 +206,21 @@ if($::opt_on) {
sub on {
my $locate = shift;
print("parallel -j1 echo 1 \\> ::: $locate\n");
system("parallel -j1 echo 1 \\> ::: $locate\n");
print(q{bash -c 'parallel -j1 echo 1 \\> {} ::: }. $locate."'\n");
system(q{bash -c 'parallel -j1 echo 1 \\> {} ::: }. $locate."'\n");
}
sub off {
my $locate = shift;
print("parallel -j1 echo 0 \\> ::: $locate\n");
system("parallel -j1 echo 0 \\> ::: $locate\n");
print(q{bash -c 'parallel -j1 echo 0 \\> {} ::: }. $locate."'\n");
system(q{bash -c 'parallel -j1 echo 0 \\> {} ::: }. $locate."'\n");
}
sub toggle {
my $locate = shift;
# If the file 'locate' contains 1 it should be put to 0.
print('parallel -j1 grep -q 1 {} \; echo \$? \\> {} :::'." $locate\n");
system('parallel -j1 grep -q 1 {} \; echo \$? \\> {} :::'." $locate\n");
print(q{bash -c 'parallel -j1 grep -q 1 {} \; echo \$? \\> {} ::: }. $locate."'\n");
system(q{bash -c 'parallel -j1 grep -q 1 {} \; echo \$? \\> {} ::: }. $locate."'\n");
}