If anybody has ThinkPad with HDAPS support and ActivePerl installed, try this script.
The script goes in a loop to check if your ThinkPad laptop is moved, by opening its ShockMgr device with Perl. You need Win32API-File package to run the script (ppm install Win32API-File). That means, when you lean/move/smack your laptop, it says "MOVED!" on STDOUT. Very cool.
Cool (Score:1)
I think this could be quite useful as a CPAN module.
Re:Cool (Score:1)
That'd be great. Can you also try This [typepad.com]? It turns your ThinkPad into a lightsaber. If you run from ActivePerl, you need Win32API::File, Win32::GUI and Win32::Sound. The svn repository has .exe file as well.
Yeah, I'll definitely make it a CPAN module. I'm not sure if we can get more information than the X Y coordinate. Needs more reverse engineering.
Re:Cool (Score:2)
bad link (Score:1)
Now you can be cool like Erling Ellingsen… (Score:1)
…and make your own Smackbook Pro [medallia.com] style hack.
Re:Now you can be cool like Erling Ellingsen… (Score:1)
Re:Now you can be cool like Erling Ellingsen&# (Score:1)
Neat!