view release on metacpan or  search on metacpan

bin/chronicle  view on Meta::CPAN

529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
database then insert it.
 
We also handle the case where the file on disk is newer than the database
version - in that case we remove the database version and update it to
contain the newer content.
 
=end doc
 
=cut
 
sub updateDatabase
{
    my ($dbh) = (@_);
 
    #
    #  Assume each entry is already present in the database.
    #
    my $sql =
      $dbh->prepare("SELECT id FROM blog WHERE ( file=? AND mtime=? )") or
      die "Failed to select post";