flickr auto upload

#!/usr/bin/perl
use strict;
use warnings;
use utf8;

use Filesys::Notify::Simple;
use Flickr::Upload;

my $watcher = Filesys::Notify::Simple->new( [ $ARGV[0] ] );
my $ua = Flickr::Upload->new(
    {
        'key'    => 'xxxxxxxxxx',
        'secret' => 'xxxxxxxx',
    }
);
my $auth_token = 'xxxxxx';

while (1) {
    $watcher->wait(
        sub {
            for my $event (@_) {
                print "$event->{path} upload to flickr.\n";

                $ua->upload(
                    'photo'      => $event->{path},
                    'auth_token' => $auth_token,
                    'tags'       => 'test',
                    'is_public'  => 0,
                    'is_friend'  => 0,
                    'is_family'  => 0
                ) or die "Failed to upload.";
                print "upload complete.\n";
            }
        }
    );
}

__END__

TODO

- daemonize
- config (photo param, tags, etc)
- auth token auto get

sub getFrob {
    my $ua = shift;

    my $res = $ua->execute_method("flickr.auth.getFrob");
    return undef unless defined $res and $res->{success};

    # FIXME: error checking, please. At least look for the node named 'frob'.
    return $res->{tree}->{children}->[1]->{children}->[0]->{content};
}

sub getToken {
    my $ua = shift;
    my $frob = shift;

    my $res = $ua->execute_method("flickr.auth.getToken",
        { 'frob' => $frob } );
    return undef unless defined $res and $res->{success};

    # FIXME: error checking, please.
    return $res->{tree}->{children}->[1]->{children}->[1]->{children}->[0]->{content};
}