Please visit our sponsor
UNKNOWN
=**************************************
= Name: Check FatBrain for books
= Description:This script takes a list of books and looks to see if they are considered published on fatbrain.
= By: Found on the World Wide Web
=
=
= Inputs:None
=
= Returns:None
=
=Assumes:None
=
=Side Effects:None
=**************************************
use strict;
use LWP::UserAgent;
my $VERSION = 1.0;
my %pages = (
'Firewall 1' => 'http://www1.fatbrain.com/asp/bookinfo/bookinfo.asp?theisbn=007134229x',
'Bay Network Router Configuration' => 'http://www1.fatbrain.com/asp/bookinfo/bookinfo.asp?theisbn=0070284857',
'Mastering Algorthims with Perl' => 'http://www1.fatbrain.com/asp/bookinfo/bookinfo.asp?theisbn=1565923987',
);
foreach (keys %pages) {
my $ua = new LWP::UserAgent;
my $req = new HTTP::Request GET => $pages{$_};
my $string = $ua->request($req)->as_string;
if ($string =~ m/Not yet published/g) {
print "$_ is not out yet.\n";
} else {
print "$_ has been published.";
}
}
=head1 NAME
fatbrain - This script takes a list of books and looks to see if they are considered published on fatbrain.
=head1 DESCRIPTION
I am always waiting for books to be published and I am sick of doing all the work in looking them up.
I created this script to check if the books I am looking for are published.
=head1 README
=head1 PREREQUISITES
This script has a few requirements. You will need LWP and you will need to look up the book the first time
yourself. Once you have the url cut and paste it into the value field in %pages and put in a description in the key
of the hash.
=head1 COREQUISITES
None
=pod SCRIPT CATEGORIES
Web
=cut