Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re^13: Controlling USB on Raspberry Pi

by Bod (Curate)
on Dec 13, 2020 at 16:31 UTC ( #11125116=note: print w/replies, xml ) Need Help??


in reply to Re^12: Controlling USB on Raspberry Pi
in thread Controlling USB on Raspberry Pi

Rewriting your code like this should help

Thank you...
That has given me confidence that I am going in the right direction :)

There's a definition issue on read_file but that is unused so I have commented it out to test it. As I expected, but cannot explain, your code works as expected provided the GPIO is already exported. Your export code doesn't work and fails with Could not open /sys/class/gpio/gpio20/direction: Permission denied at afoken.pl line 12.

The module I am creating has the same issue. In it's constructor I am exporting the two GPIO pins - except I cannot do it by writing to the psuedo files. The only way I have found thus far is a system call to the gpio utility.

package Curtains::Control; use strict; my $path = '/sys/class/gpio'; my $o_pin = 20; my $c_pin = 21; sub new { # open my $export, '>', "$path/export" or die("Unable to export the + control pins"); # print $export "$o_pin\n"; # print $export "$c_pin\n"; # close $export; system("gpio export $o_pin high"); system("gpio export $c_pin high"); my $state = { STATE => 'UNKNOWN', }; return bless $state; }
If I uncomment the four lines at the start of sub new, then it works if the GPIO pins are already exported. This bit of code does not export them although I do not get an error here. I get an error further down the line when I try to change them. Making the system calls works well because I can initialise the state at the same time but I was still wanting to avoid system if I could...
Perhaps that will be a later update to the software!

Replies are listed 'Best First'.
Re^14: Controlling USB on Raspberry Pi
by afoken (Canon) on Dec 13, 2020 at 21:33 UTC
    There's a definition issue on read_file but that is unused so I have commented it out to test it.

    Yes, it's missing my $fn=shift; as the first line of read_file(). As I wrote: untested.

    As I expected, but cannot explain, your code works as expected provided the GPIO is already exported. Your export code doesn't work and fails with Could not open /sys/class/gpio/gpio20/direction: Permission denied at afoken.pl line 12.

    I have burried my spare Raspi unter tons of stuff, so I can't reproduce that at the moment. But I have two ideas why that happens:

    • You are using a non-privileged account (i.e. not root), but /sys/class/gpio/*/* is writable only by root. Either run as root (bad) or change the permissions on sysfs. It seems the way to do so is udev (see https://unix.stackexchange.com/questions/68897/ and https://unix.stackexchange.com/questions/20125/). For tests, you also could work as root. But sooner or later, you will need to address the permission issue. On the other hand, if the Raspi just gets its time via NTP and does nothing else on the network, running as root is not that big issue.
    • There may be a delay between export and actually creating the files in the sysfs filesystem, so your code may be too fast. Sleep for a few milliseconds after exporting and before accessing the new export.

    I just had a look at the source code of the daemon mentioned in Re^12: Controlling USB on Raspberry Pi. It runs as root, so permission checks are effectively off. The source code does write a lot of debug output, so there is definitively a delay between exporting and setting direction.

    Alexander

    --
    Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11125116]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (1)
As of 2022-08-08 01:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?