view release on metacpan or  search on metacpan

bin/lazyd  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;
use App::Lazyd;
use YAML::Tiny;

unless (-f "$ENV{HOME}/.lazyd") {
    die <<USAGE;
Please add a ~/.lazyd config file looks like this

    username: foo
    password: foo31337

USAGE

}

my $yaml = YAML::Tiny->read("$ENV{HOME}/.lazyd");

my $ok = App::Lazyd->run($yaml->[0], @ARGV);

if ($ok) {
    print "That's deliicous, $ENV{USER}.\n";
}
else {
    print STDERR "Error posting delicious.com, you might want to try again latter.\n";
}


=head1 NAME

lazyd - quick and lazy way to add delicious.com bookmarks.

=head1 USAGE

   # post to delicious.com with auto tags
   lazyd http://gugod.org/

   # post with additional manually added tags
   lazyd http://search.cpan.org/ perl awesome

=head1 DESCRIPTION

This program quicky post a bookmark to http://delicious.com with
automatically created tags. The tags are words found in the given URI
and its title.

First you need to setup a ~/.lazyd config file like this:

    username: foobar
    passsword: f00b4r

That's your delicious.com username and password.

Then you'll just need to run it like this:

    % lazyd http://delicious.com/

And forget about tagging at all.

=head1 AUTHOR

Kang-min Liu E<lt>gugod@gugod.orgE<gt>

=head1 LICENSE AND COPYRIGHT

Copyright (c) 2009, Kang-min Liu C<< <gugod@gugod.org> >>.

This is free software, licensed under: