Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 4ca9415709
Fetching contributors…

Cannot retrieve contributors at this time

executable file 15 lines (12 sloc) 0.257 kB
#!/usr/bin/perl
use strict;
use warnings;
use VHS;
my $arg = shift @ARGV;
my $who = shift @ARGV;
exit unless $arg;
if ($arg =~ m/(\d+(?:\.\d+)?C)/) {
my $msg = "Temperature at VHS: $1";
$msg = "\@$who - $msg" if $who;
VHS->send_tweet($msg);
}
Jump to Line
Something went wrong with that request. Please try again.