Space state
Project: Space state | |
---|---|
Featured: | |
State | Active |
Members | Vicarious, xopr |
GitHub | No GitHub project defined. Add your project here. |
Description | Show the current state (open or closed) of our space |
Picture | |
No project picture! Fill in form Picture or Upload a jpeg here |
For now we'll use our Skype account "ACK.space" to show whether the space is currently open or closed. Later we'll have a better set up.
Although we forgot to update this page, the SpaceState switch is working fine now. This is how it's done
We found an huge powerswitch which we mounted to the space wall this switch is connected with a cable to the Space-Mac using an serial to usb converter. On the Mac a perl scripts reads the space state. If the space-state changes, the perlscripts uses wget to call an php script on the ACKspace website. The php scripts sets an space-state variable in a file. The same script is used to read the space-state variable and show the status on the webpage.
This is the perl script that does the thing on te Mac
#!/usr/bin/perl -wT # Title : spacestate.pl # Function : read spacestate switch en set action accordingly # Author : Pascal Schiks (C) 2011
# my $serialdev="/dev/tty.PL2303-000061FD"; use strict; use IO::Handle; use Fcntl;
my $TIOCMGET = 0x5415;
my $spacestate=0; my $lastspacestate=$spacestate; while(1) { if(sysopen(SERIAL, $serialdev, O_RDWR)) { my $mdmctl=""; my $ioresult; unless(($ioresult=ioctl(SERIAL, $TIOCMGET, $mdmctl))==-1) { $mdmctl = unpack('i',$mdmctl); $spacestate = ($mdmctl&64)==0 ? "open":"close"; print "$spacestate\n" if($spacestate ne $lastspacestate); } else { print "Weet ik veel Error\n"; } close(SERIAL); $lastspacestate = $spacestate; } else { print "Error, Could not open $serialdev\n"; } sleep(1); }