Jeff,
Thank you for your reply. I have taken the liberty of fleshing out
your code a little further:
use DBI;
use DBI::Cheetah::Authors qw( write_book book_written get_paid );
use DBD::Impatience qw( hold_breath throw_temper_tantrum );
sub you_are_here {
return !( write_book && book_written && get_paid );
}
$seconds = 300;
$dbh = DBI->connect(
"DBI:Impatience:host=localhost;database=DBIdocumentation",
"dbiuser",
"short!temper20080131",
{ PrintError => 0, RaiseError => 1 }
);
$cheetah = $dbh->prepare(q{
SELECT chapters
FROM book
WHERE author = ?
AND coauthor = ?
});
while ( &you_are_here() ) {
# <--- you are here
# <--- this interval is unknown no matter what the website
says
hold_breath( $seconds );
if ( ++$count >= 18_144 ) {
throw_temper_tantrum( "ROYAL SNIT FIT" );
$count = 0;
}
}
$cheetah->execute("Tim","Jeff");
Actually, despite my allusions to throwing a fit, I am only very
mildly hopeful about getting the new book. Take your time, write it
right. One question: has the writing even begun yet? Why was the
book announced so early? One reason for my curiosity is the fact that
I've thought about trying to break into writing technical books, so
I'm always interested in what happens behind-the-scenes.
Best regards,
-Brian
> -----Original Message-----
> From: Jeff Zucker [mailto:[EMAIL PROTECTED]
> Sent: Friday, November 30, 2007 10:10
> To: Brian H. Oak
> Cc: dbi-users@perl.org
> Subject: Re: New edition of the Cheetah?
>
> Hi Brian,
>
> Here's where we stand:
>
> $cheetah = $dbh->prepare(q{
> SELECT chapters
> FROM book
> WHERE author = ?
> AND coauthor = ?
> });
> ... # <--- you are here
> ... # <-- this interval is unknown no matter what the website
says
> ... #
> $cheetah->execute("Tim","Jeff");
>
> Sorry, even the January 2008 date is at least as exaggerated as the
> reports of Mark Twain's death. I know you'd like to fetch()
> the book, but sorry, the wait will be a bit longer.
>
> --
> Jeff
