Permalink
Browse files

this is all broke

  • Loading branch information...
1 parent a65106e commit 02a298a6b092ab25a5db307e8d9cfffe929f3c29 @lukec lukec committed Sep 26, 2009
Showing with 0 additions and 22 deletions.
  1. +0 −22 hooks/door.d/tweeter
View
@@ -1,22 +0,0 @@
-#!/usr/bin/perl
-use strict;
-use warnings;
-use VHS;
-
-my $arg = shift @ARGV;
-exit unless $arg;
-
-my %msg_map = (
- 'open' => 'My door opened!',
- closed => 'My door closed!',
- test => 'My systems are being tested!',
-);
-
-if (my $msg = $msg_map{$arg}) {
- my $image_url = VHS->take_picture() if $arg eq 'open';;
- VHS->send_tweet($msg, $image_url);
-}
-
-exit;
-
-

0 comments on commit 02a298a

Please sign in to comment.