Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100755 20 lines (17 sloc) 0.37 kb
b862bfdf » lukec
2009-10-08 add a script to take a picture
1 #!/usr/bin/perl
2 use strict;
3 use warnings;
4 use FindBin;
5 use lib "$FindBin::Bin/../lib";
6 use VHS;
7
8 my $file = shift || '';
9
10 open(my $fh, ">>/tmp/luke") or die "Can't open /tmp/luke: $!";
11 print $fh "Taking picture to '$file'\n";
12 close $fh;
13
14 if ($file) {
15 VHS->picture_to_file($file);
16 }
17 else {
18 my $uri = VHS->take_picture(shift);
19 print "Took picture: $uri\n";
20 }
21
Something went wrong with that request. Please try again.