App-BarnesNoble-WishListMinder
view release on metacpan or search on metacpan
bin/bn-wishlist view on Meta::CPAN
By default, when listing books by title or author, if multiple books
match the search term, bn-wishlist displays only the EAN, current
price, title, and author of each matching book. If only one book
matches, it displays the full price history of that book. This option
causes it to display the full price history for each match.
=item C<--configure>
Display the location of the F<config.ini> file, and open it in a text
editor if possible. If the config file does not exist, a skeleton one
will be created.
=item C<--email> (abbreviated C<-e>)
Send a Price Drop Alert email if any books have been reduced in price
since the last update. Implies C<--update>.
=item C<--help>
Display the usage message.
lib/App/BarnesNoble/WishListMinder.pm view on Meta::CPAN
; Next, you need one or more wishlists to monitor.
; Each wishlist must have a unique name in [brackets].
[My Wishlist]
wishlist = WISHLIST URL HERE
END CONFIG
say "\nYou need to replace the ALL CAPS placeholders with the correct values.";
}
if (my $editor = $ENV{VISUAL} || $ENV{EDITOR}) {
require Text::ParseWords;
system(Text::ParseWords::shellwords($editor), "$config_file");
}
} # end configure
#---------------------------------------------------------------------
sub create_database_schema
{
my ($self, $dbh) = @_;
$dbh->do("PRAGMA foreign_keys = ON");
lib/App/BarnesNoble/WishListMinder.pm view on Meta::CPAN
print "$name $VERSION\n";
exit if $_[0] and $_[0] eq 'version';
print <<"END USAGE";
\nUsage: $name [options] [EAN_or_TITLE_or_AUTHOR] ...
-a, --all-history Show price history even when multiple items match
-e, --email Send Price Drop Alert email (implies --update)
-q, --quiet Don't print list of updates
-s, --since=DATE Print books whose price changed on or after DATE
-u, --update Download current prices from wishlist
--configure Create and/or edit the config file
--help Display this help message
--version Display version information
END USAGE
exit;
} # end usage
#---------------------------------------------------------------------
sub run
{
( run in 0.641 second using v1.01-cache-2.11-cpan-de7293f3b23 )