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);
  }