Merge branch 'master' of https://github.com/abeverley/wihlo

Author: abeverley

bin/read.pl

@@ -31,12 +31,11 @@
 use LWP::UserAgent;
 use URI;
 use Ouch;
-use Config::YAML;
 use Try::Tiny;
 
 sub rainin($);
 
-my $config = Config::YAML->new(config => "config.yml");
+my $config = config;
 
 my %arg_hsh;  
 $arg_hsh{baudrate} = $config->{stations}->{vp}->{baudrate};

bin/webcam.pl

@@ -0,0 +1,45 @@
+#!/usr/bin/env perl
+
+=pod
+Wihlo - Web-based weather logging and display software
+Copyright (C) 2015 A Beverley
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU Affero General Public License as
+published by the Free Software Foundation, either version 3 of the
+License, or (at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU Affero General Public License for more details.
+
+You should have received a copy of the GNU Affero General Public License
+along with this program. If not, see <http://www.gnu.org/licenses/>.
+=cut
+
+use FindBin;
+use lib "$FindBin::Bin/../lib";
+
+use Dancer2;
+use Dancer2::Plugin::DBIC qw(schema resultset rset);
+use DateTime;
+use Image::Magick;
+use LWP::Simple qw//;
+use Wihlo::Schema;
+
+my $image = LWP::Simple::get("http://192.168.1.201/img/snapshot.cgi");
+
+my $imgm = Image::Magick->new(magick => 'jpg');
+$imgm->BlobToImage($image);
+$imgm->Resize(width => '64', height => '64');
+$imgm->write(filename => 'xx.jpg');
+my $thumbnail = $imgm->ImageToBlob;
+
+rset('Webcam')->create({
+    time      => DateTime->now,
+    image     => $image,
+    thumbnail => $thumbnail,
+});
+
+1;