#!/usr/bin/perl

use DBD::mysql;

$dbh=DBI->connect("DBI:mysql:rubicon:gerald");

@files=<*.html>;

foreach $file(@files){
($isbn=$file)=~s/.html//;

$books_query=qq(select record_id from biblio where flat_isbn="$isbn");
$sth=$dbh->prepare("$books_query") or die $!;
$sth->execute or die $!;

while (@rows=$sth->fetchrow_array){
if ($rows[0]){
	open(FILE, ">$isbn.html");
	print FILE qq(<? header("Location:  http://www.nap.edu/catalog/$rows[0].html"); ?>);
	close FILE;
}



print "$rows[0]\n";
}

}