");
+ } else {
+ echo("MARC field $attribute is unused.");
+ }
+pagefooter();
+?>
\ No newline at end of file
diff --git a/catalog/admin/attribute_stats.php b/catalog/admin/attribute_stats.php
new file mode 100644
index 0000000..36f547c
--- /dev/null
+++ b/catalog/admin/attribute_stats.php
@@ -0,0 +1,42 @@
+db ();
+$db->logger = new logger ();
+
+$marc_fields = array();
+$db->Exec("select pk, name from attriblist order by pk");
+do {
+ $marc_fields[] = array($db->Get("pk"), $db->Get("name"));
+ } while ($db->NextRow());
+
+echo <<< EOT
+
This is a list of all the MARC field/attribute/tag/code names currently
+present in the cataloging system. As you can see, we do not actually use
+MARC attributes for Author, Language, Subject or LoCC (they are stored
+& modified elsewhere), but the system does know about them. This should
+probably be fixed. -- Jan 2008
+
Click on the attribute name to get a list of all the uses of it in the system,
+ along with links to edit them.
+EOT;
+
+echo("
\n".
+ "
# of times each MARC field is used in the PG catalog.
" .
+ "
MARC field
# of entries
");
+for ($i = 0 ; $i < count($marc_fields); $i++) {
+ $db->Exec("select count(*) as cnt from attributes where fk_attriblist = " .
+ $marc_fields[$i][0]);
+ echo("
");
+
+pagefooter();
+?>
diff --git a/catalog/admin/attribute_stats.php~ b/catalog/admin/attribute_stats.php~
new file mode 100644
index 0000000..a80a6e8
--- /dev/null
+++ b/catalog/admin/attribute_stats.php~
@@ -0,0 +1,41 @@
+db ();
+$db->logger = new logger ();
+
+$marc_fields = array();
+$db->Exec("select pk, name from attriblist order by pk");
+do {
+ $marc_fields[] = array($db->Get("pk"), $db->Get("name"));
+ } while ($db->NextRow());
+
+echo <<< EOT
+
This is a list of all the MARC field/attribute/tag/code names currently
+present in the cataloging system. As you can see, we do not actually use
+MARC attributes for Author, Language, Subject or LoCC (they are stored
+& modified elsewhere), but the system does know about them. This should
+probably be fixed. -- Jan 2008
+
Click on the attribute name to get a list of all the uses of it in the system,
+ along with links to edit them.
+EOT;
+
+echo("
\n".
+ "
# of times each MARC field is used in the PG catalog.
" .
+ "
MARC field
# of entries
");
+for ($i = 0 ; $i < count($marc_fields); $i++) {
+ $db->Exec("select count(*) as cnt from attributes where fk_attriblist = " .
+ $marc_fields[$i][0]);
+ echo("
\n\n");
+} else {
+ $f->Output ($caption, $caption);
+}
+
+pagefooter ();
+
+?>
diff --git a/catalog/admin/authors_list.php b/catalog/admin/authors_list.php
new file mode 100644
index 0000000..0f9966b
--- /dev/null
+++ b/catalog/admin/authors_list.php
@@ -0,0 +1,74 @@
+AddColumn ("Edit",
+ "Add", "narrow");
+ $this->AddColumn ("Delete",
+ "", "narrow");
+ if ($fk_authors_from) {
+ $this->AddColumn ("Transfer To",
+ "", "narrow");
+ $this->TitleColumn ("Transfer all books linked to $author_from to this one.");
+ } else {
+ $this->AddColumn ("Transfer From",
+ "", "narrow");
+ $this->TitleColumn ("Transfer all books linked to this author to a different one.");
+ }
+ $this->AddSimpleColumn ("author", "Name");
+ $this->AddSimpleColumn ("cnt_books", "No. of Books", "narrow right");
+ $this->AddSimpleColumn ("born_floor", "Born", "narrow right");
+ $this->AddSimpleColumn ("died_floor", "Died", "narrow right");
+ }
+}
+
+$db = $config->db ();
+
+echo ("
+
Please enter the first few characters of the authors name (at least one).
+Search is case-insensitive.
+Use * as wildcard. (eg. Moli*re)
+To see everything just enter *.
+");
+
+form_open ();
+echo (" \n");
+form_hidden ("fk_authors_from", $fk_authors_from);
+form_hidden ("author_from", $author_from);
+form_submit ("Search");
+form_close ();
+
+if ($filter != "") {
+ $sql_filter = str_replace ('*', '%', $filter);
+ $sql_filter = $db->f ("$sql_filter%", SQLCHAR);
+ $db->exec ("select *, (select count (*) from mn_books_authors where fk_authors = authors.pk) as cnt_books from authors where " .
+ "(author ilike $sql_filter or authors.pk in " .
+ "(select fk_authors from aliases where alias ilike $sql_filter)) " .
+ "order by author");
+ $table = new ListAuthorsTable ();
+ $table->PrintTable ($db, $caption, "pgdbfiles");
+}
+
+pagefooter ();
+
+?>
diff --git a/catalog/admin/authors_list.php~ b/catalog/admin/authors_list.php~
new file mode 100644
index 0000000..47a4bcf
--- /dev/null
+++ b/catalog/admin/authors_list.php~
@@ -0,0 +1,73 @@
+AddColumn ("Edit",
+ "Add", "narrow");
+ $this->AddColumn ("Delete",
+ "", "narrow");
+ if ($fk_authors_from) {
+ $this->AddColumn ("Transfer To",
+ "", "narrow");
+ $this->TitleColumn ("Transfer all books linked to $author_from to this one.");
+ } else {
+ $this->AddColumn ("Transfer From",
+ "", "narrow");
+ $this->TitleColumn ("Transfer all books linked to this author to a different one.");
+ }
+ $this->AddSimpleColumn ("author", "Name");
+ $this->AddSimpleColumn ("cnt_books", "No. of Books", "narrow right");
+ $this->AddSimpleColumn ("born_floor", "Born", "narrow right");
+ $this->AddSimpleColumn ("died_floor", "Died", "narrow right");
+ }
+}
+
+$db = $config->db ();
+
+echo ("
+
Please enter the first few characters of the authors name (at least one).
+Search is case-insensitive.
+Use * as wildcard. (eg. Moli*re)
+To see everything just enter *.
+");
+
+form_open ();
+echo (" \n");
+form_hidden ("fk_authors_from", $fk_authors_from);
+form_hidden ("author_from", $author_from);
+form_submit ("Search");
+form_close ();
+
+if ($filter != "") {
+ $sql_filter = str_replace ('*', '%', $filter);
+ $sql_filter = $db->f ("$sql_filter%", SQLCHAR);
+ $db->exec ("select *, (select count (*) from mn_books_authors where fk_authors = authors.pk) as cnt_books from authors where " .
+ "(author ilike $sql_filter or authors.pk in " .
+ "(select fk_authors from aliases where alias ilike $sql_filter)) " .
+ "order by author");
+ $table = new ListAuthorsTable ();
+ $table->PrintTable ($db, $caption, "pgdbfiles");
+}
+
+pagefooter ();
+
+?>
diff --git a/catalog/admin/authors_transfer.php b/catalog/admin/authors_transfer.php
new file mode 100644
index 0000000..b29939c
--- /dev/null
+++ b/catalog/admin/authors_transfer.php
@@ -0,0 +1,75 @@
+db ();
+$db->logger = new logger ();
+$f = new SQLForm ();
+getint ("fk_authors_from");
+getint ("fk_authors_to");
+
+if (!$fk_authors_from) error_msg ("No From Author");
+if (!$fk_authors_to) error_msg ("No To Author");
+// don't test for author equality, transferring to the same author
+// can be useful to batch-change the role.
+// if ($fk_authors_to == $fk_authors_from) error_msg ("But that is the same author!");
+
+if (!isupdate ()) {
+ $db->Exec ("select count (*) as cnt from mn_books_authors where fk_authors = $fk_authors_from");
+ $cnt = $db->get ("cnt");
+ $f->SQLSelect ("fk_roles", "fk_roles", "Author Role", SQLCHAR, 40, 40, true,
+ "select 'same' as value, 'Same Role' as caption union " .
+ "select pk as value, role as caption from roles order by caption");
+ $f->SetFieldData ("fk_roles", "same");
+ $f->SubCaption ("You are about to transfer $cnt books from $author_from to $author_to.");
+ $f->SubCaption ("Press the '$caption' button to continue or " .
+ "hit the back button on your browser to dismiss.");
+}
+
+$f->Hidden ("fk_authors_from");
+$f->Hidden ("fk_authors_to");
+$f->Hidden ("author_from");
+$f->Hidden ("author_to");
+
+if (isupdate ()) {
+ getstr ("fk_roles");
+ if ($fk_roles == "same") {
+ $sql = "update mn_books_authors set fk_authors = $fk_authors_to " .
+ "where fk_authors = $fk_authors_from";
+ } else {
+ $sql_fk_roles = $db->f ($fk_roles, SQLCHAR);
+ $sql = "update mn_books_authors set fk_authors = $fk_authors_to, fk_roles = $sql_fk_roles " .
+ "where fk_authors = $fk_authors_from";
+ }
+ if ($db->exec ($sql)) {
+ msg ("Books transferred !");
+ } else {
+ error_msg ("Could not transfer books !");
+ }
+ p ("Delete From Author ($author_from)");
+ p ("Back to To Author ($author_to)");
+} else {
+ $f->Output ($caption, $caption);
+}
+
+pagefooter ();
+
+// Local Variables:
+// mode:php
+// coding:utf-8-unix
+// fill-column: 75
+// End:
+
+?>
+
diff --git a/catalog/admin/authors_transfer.php~ b/catalog/admin/authors_transfer.php~
new file mode 100644
index 0000000..af7fe40
--- /dev/null
+++ b/catalog/admin/authors_transfer.php~
@@ -0,0 +1,74 @@
+db ();
+$db->logger = new logger ();
+$f = new SQLForm ();
+getint ("fk_authors_from");
+getint ("fk_authors_to");
+
+if (!$fk_authors_from) error_msg ("No From Author");
+if (!$fk_authors_to) error_msg ("No To Author");
+// don't test for author equality, transferring to the same author
+// can be useful to batch-change the role.
+// if ($fk_authors_to == $fk_authors_from) error_msg ("But that is the same author!");
+
+if (!isupdate ()) {
+ $db->Exec ("select count (*) as cnt from mn_books_authors where fk_authors = $fk_authors_from");
+ $cnt = $db->get ("cnt");
+ $f->SQLSelect ("fk_roles", "fk_roles", "Author Role", SQLCHAR, 40, 40, true,
+ "select 'same' as value, 'Same Role' as caption union " .
+ "select pk as value, role as caption from roles order by caption");
+ $f->SetFieldData ("fk_roles", "same");
+ $f->SubCaption ("You are about to transfer $cnt books from $author_from to $author_to.");
+ $f->SubCaption ("Press the '$caption' button to continue or " .
+ "hit the back button on your browser to dismiss.");
+}
+
+$f->Hidden ("fk_authors_from");
+$f->Hidden ("fk_authors_to");
+$f->Hidden ("author_from");
+$f->Hidden ("author_to");
+
+if (isupdate ()) {
+ getstr ("fk_roles");
+ if ($fk_roles == "same") {
+ $sql = "update mn_books_authors set fk_authors = $fk_authors_to " .
+ "where fk_authors = $fk_authors_from";
+ } else {
+ $sql_fk_roles = $db->f ($fk_roles, SQLCHAR);
+ $sql = "update mn_books_authors set fk_authors = $fk_authors_to, fk_roles = $sql_fk_roles " .
+ "where fk_authors = $fk_authors_from";
+ }
+ if ($db->exec ($sql)) {
+ msg ("Books transferred !");
+ } else {
+ error_msg ("Could not transfer books !");
+ }
+ p ("Delete From Author ($author_from)");
+ p ("Back to To Author ($author_to)");
+} else {
+ $f->Output ($caption, $caption);
+}
+
+pagefooter ();
+
+// Local Variables:
+// mode:php
+// coding:utf-8-unix
+// fill-column: 75
+// End:
+
+?>
+
diff --git a/catalog/admin/book-make-fileinfo.php b/catalog/admin/book-make-fileinfo.php
new file mode 100644
index 0000000..010596a
--- /dev/null
+++ b/catalog/admin/book-make-fileinfo.php
@@ -0,0 +1,78 @@
+FirstRow ()) {
+ do {
+ $v = $db->get ("value", SQLCHAR);
+ echo ("$caption: $v\n");
+ } while ($db->NextRow ());
+ }
+}
+
+$db = $config->db ();
+
+$db->exec ("select * from books where pk = $fk_books");
+if (!$db->FirstRow ()) {
+ exit ();
+}
+
+$release_date = $db->get ("release_date", SQLDATE);
+$copyrighted = $db->get ("copyrighted", SQLINT);
+echo ("Etext-Nr: $fk_books\n");
+echo ("Release-Date: " . date ("M d, Y\n", $release_date));
+echo ("Copyrighted: $copyrighted\n");
+
+$db->exec ("select author, role from v_books_authors " .
+ "where fk_books = $fk_books");
+if ($db->FirstRow ()) {
+ do {
+ $author = $db->get ("author", SQLCHAR);
+ $role = $db->get ("role", SQLCHAR);
+ echo ("$role: $author\n");
+ } while ($db->NextRow ());
+}
+
+$db->exec ("select title as value from titles where title_order = 1 and fk_books = $fk_books");
+output ($db, "Title");
+
+$db->exec ("select title as value from titles where title_order = 2 and fk_books = $fk_books");
+output ($db, "Alternate Title");
+
+$db->exec ("select title as value from titles where title_order = 3 and fk_books = $fk_books");
+output ($db, "Contents");
+
+$db->exec ("select note as value from notes where fk_books = $fk_books");
+output ($db, "Note");
+
+$db->exec ("select lang as value from langs, mn_books_langs " .
+ "where langs.pk = fk_langs and fk_books = $fk_books");
+output ($db, "Language");
+
+$db->exec ("select pk as value from loccs, mn_books_loccs " .
+ "where loccs.pk = fk_loccs and fk_books = $fk_books");
+output ($db, "Locc");
+
+$db->exec ("select subject as value from subjects, mn_books_subjects " .
+ "where subjects.pk = fk_subjects and fk_books = $fk_books");
+output ($db, "Subject");
+
+$db->exec ("select category as value from categories, mn_books_categories " .
+ "where categories.pk = fk_categories and fk_books = $fk_books");
+output ($db, "Category");
+
+echo ("----------\n");
+
+?>
diff --git a/catalog/admin/book-make-fileinfo.php~ b/catalog/admin/book-make-fileinfo.php~
new file mode 100644
index 0000000..08c55bd
--- /dev/null
+++ b/catalog/admin/book-make-fileinfo.php~
@@ -0,0 +1,77 @@
+FirstRow ()) {
+ do {
+ $v = $db->get ("value", SQLCHAR);
+ echo ("$caption: $v\n");
+ } while ($db->NextRow ());
+ }
+}
+
+$db = $config->db ();
+
+$db->exec ("select * from books where pk = $fk_books");
+if (!$db->FirstRow ()) {
+ exit ();
+}
+
+$release_date = $db->get ("release_date", SQLDATE);
+$copyrighted = $db->get ("copyrighted", SQLINT);
+echo ("Etext-Nr: $fk_books\n");
+echo ("Release-Date: " . date ("M d, Y\n", $release_date));
+echo ("Copyrighted: $copyrighted\n");
+
+$db->exec ("select author, role from v_books_authors " .
+ "where fk_books = $fk_books");
+if ($db->FirstRow ()) {
+ do {
+ $author = $db->get ("author", SQLCHAR);
+ $role = $db->get ("role", SQLCHAR);
+ echo ("$role: $author\n");
+ } while ($db->NextRow ());
+}
+
+$db->exec ("select title as value from titles where title_order = 1 and fk_books = $fk_books");
+output ($db, "Title");
+
+$db->exec ("select title as value from titles where title_order = 2 and fk_books = $fk_books");
+output ($db, "Alternate Title");
+
+$db->exec ("select title as value from titles where title_order = 3 and fk_books = $fk_books");
+output ($db, "Contents");
+
+$db->exec ("select note as value from notes where fk_books = $fk_books");
+output ($db, "Note");
+
+$db->exec ("select lang as value from langs, mn_books_langs " .
+ "where langs.pk = fk_langs and fk_books = $fk_books");
+output ($db, "Language");
+
+$db->exec ("select pk as value from loccs, mn_books_loccs " .
+ "where loccs.pk = fk_loccs and fk_books = $fk_books");
+output ($db, "Locc");
+
+$db->exec ("select subject as value from subjects, mn_books_subjects " .
+ "where subjects.pk = fk_subjects and fk_books = $fk_books");
+output ($db, "Subject");
+
+$db->exec ("select category as value from categories, mn_books_categories " .
+ "where categories.pk = fk_categories and fk_books = $fk_books");
+output ($db, "Category");
+
+echo ("----------\n");
+
+?>
\ No newline at end of file
diff --git a/catalog/admin/book.php b/catalog/admin/book.php
new file mode 100644
index 0000000..4577455
--- /dev/null
+++ b/catalog/admin/book.php
@@ -0,0 +1,336 @@
+AddColumn ("$prefix=edit&pk=#pk#\">Edit",
+ "$prefix=add\">Add", "narrow");
+ $this->AddColumn ("$prefix=delete&pk=#pk#\">Delete", "", "narrow");
+
+ $this->AddSimpleColumn ("name", "MARC Tag");
+ $this->AddSimpleColumn ("indicators", "MARC Indicators", "narrow");
+ $this->AddSimpleColumn ("nonfiling", "Nonfiling Chars", "narrow");
+ $this->AddSimpleColumn ("text", "Text");
+ }
+}
+
+class ListMarcFieldsTable extends ListTable {
+ function __construct () {
+ global $fk_books, $fk_marcauthrecs;
+ $prefix = "AddColumn ("$prefix=delete&fk_marcauthrecs=#fk_marcauthrecs#&fk_marctags=#fk_marctags#\">Unlink",
+ "", "narrow");
+ // $this->AddColumn ("$prefix=edit&fk_marcauthrecs=#fk_marcauthrecs#&fk_marctags=#fk_marctags#\">Edit Link", "", "narrow");
+
+ $this->AddSimpleColumn ("name", "MARC Tag");
+ // $this->AddSimpleColumn ("indicators", "MARC Indicators", "narrow");
+ // $this->AddSimpleColumn ("nonfiling", "Nonfiling Chars", "narrow");
+ $this->AddSimpleColumn ("text", "Text");
+ }
+}
+
+class ListAuthorsTable extends ListTable {
+ function __construct () {
+ global $fk_books;
+ $prefix = "AddColumn ("$prefix=delete&fk_authors=#pk#&fk_roles=#fk_roles#\">Unlink",
+ "Link",
+ "narrow");
+ $this->AddColumn ("$prefix=edit&fk_authors=#pk#&fk_roles=#fk_roles#\">Edit Link",
+ "", "narrow");
+ $this->AddColumn ("#author#", "Author");
+ $this->AddSimpleColumn ("role", "Role", "narrow");
+ $this->AddSimpleColumn ("c_heading", "Heading", "narrow");
+ $this->AddSimpleColumn ("born_floor", "Born", "narrow right");
+ $this->AddSimpleColumn ("died_floor", "Died", "narrow right");
+
+ $this->AddSubCaption ("All authors for this work.");
+ }
+}
+
+class ListReviewsTable extends ListTable {
+ function __construct () {
+ global $fk_books;
+ $this->AddSubCaption ("All reviews for this work.");
+
+ $prefix = "AddColumn ("$prefix=edit&fk_reviews=#pk#\">Edit",
+ "$prefix=add\">Add", "narrow");
+ $this->AddColumn ("$prefix=delete&fk_reviews=#pk#\">Delete", "", "narrow");
+
+ $this->AddSimpleColumn ("name", "Reviewer");
+ $this->AddSimpleColumn ("review", "Review");
+ }
+}
+
+class ListCategoriesTable extends ListTable {
+ function __construct () {
+ global $fk_books;
+ $prefix = "AddColumn ("$prefix=delete&fk_categories=#pk#\">Unlink",
+ "$prefix=add\">Link", "narrow");
+
+ $this->AddSimpleColumn ("category", "Category");
+
+ $this->AddSubCaption ("All categories for this work.");
+ }
+}
+
+class ListSubjectsTable extends ListTable {
+ function __construct () {
+ global $fk_books;
+ $prefix = "AddColumn ("$prefix=delete&fk_subjects=#pk#\">Unlink",
+ "$prefix=add\">Link", "narrow");
+
+ $this->AddColumn ("#subject#", "Subject");
+ //Make the subject name's clickable links to the edit & list of books page
+
+ $this->AddColumn ("#pk#", "#", "narrow");
+ //List the Internal Code #.
+
+ $this->AddSubCaption ("All subjects for this work.");
+ }
+}
+
+class ListLangsTable extends ListTable {
+ function __construct () {
+ global $fk_books;
+ $prefix = "AddColumn ("$prefix=delete&fk_langs=#pk#\">Unlink",
+ "$prefix=add\">Link", "narrow");
+
+ $this->AddSimpleColumn ("lang", "Language");
+
+ $this->AddSubCaption ("Languages of all major sections in this work.");
+ }
+}
+
+class ListLoccsTable extends ListTable {
+ function __construct () {
+ global $fk_books;
+ $prefix = "AddColumn ("$prefix=delete&fk_loccs=#pk#\">Unlink",
+ "$prefix=add\">Link", "narrow");
+ $this->AddSimpleColumn("pk", "Code");
+ $this->AddSimpleColumn ("locc", "LoC class");
+
+ $this->AddSubCaption ("All LoC Classes this work falls into.");
+ }
+}
+
+$db = $config->db ();
+$db->logger = new logger ();
+$f = new SQLForm ();
+getint ("fk_books");
+
+if (ismode ("delete")) {
+ $f->SubCaption ("You are about to delete this book.");
+ $f->SubCaption ("Press the '$caption' button to continue or hit " .
+ "the back button on your browser to dismiss.");
+} else {
+ $f->Text ("pk", "pk", "EText Nr.", SQLINT, 20, 5, true);
+ $f->ToolTip ("Enter the ebook number.");
+ $f->Text ("release_date", "release_date", "Release Date", SQLCHAR, 20, 20, false);
+ $f->ToolTip ("Enter the official release date.");
+ $f->CheckBox ("copyrighted", "copyrighted", "Copyrighted", SQLINT);
+ $f->ToolTip ("Check if book is copyrighted.");
+ $f->CheckBox ("updatemode", "updatemode", "Manual Update", SQLINT);
+ $f->ToolTip ("Check if book is manually updated.");
+
+ $f->LoadData ("select * from books where pk = $fk_books");
+}
+$f->Hidden ("fk_books");
+
+if (isupdatemode ("add")) {
+ if ($f->Check ()) {
+ $sql = $f->mkInsert ($db->GetFormatter ());
+ if ($db->Exec ("insert into books " . $sql)) {
+ msg ("Book added !");
+ } else {
+ error_msg ("Could not add Book!");
+ }
+ }
+}
+if (isupdatemode ("edit")) {
+ if ($f->Check ()) {
+ $sql = $f->mkUpdate ($db->GetFormatter ());
+ // set manually updated mode
+ if ($db->Exec ("update books set " . $sql . "where pk = $fk_books")) {
+ msg ("Book modified !");
+ } else {
+ error_msg ("Could not modify book !");
+ }
+ }
+}
+if (isupdatemode ("delete")) {
+ $db->exec ("delete from files where fk_books = $fk_books");
+ $db->exec ("delete from attributes where fk_books = $fk_books");
+ $db->exec ("delete from reviews.reviews where fk_books = $fk_books");
+ $db->Exec ("delete from mn_books_authors where fk_books = $fk_books");
+ $db->Exec ("delete from mn_books_langs where fk_books = $fk_books");
+ $db->Exec ("delete from mn_books_loccs where fk_books = $fk_books");
+ $db->Exec ("delete from mn_books_subjects where fk_books = $fk_books");
+ $db->Exec ("delete from mn_books_categories where fk_books = $fk_books");
+ if ($db->Exec ("delete from books where pk = $fk_books")) {
+ msg ("Book deleted !");
+ } else {
+ error_msg ("Could not delete book !");
+ }
+}
+
+if (isupdate ()) {
+ getint ("fk_books");
+ echo ("
In this catalog you will find 2 different recurring concepts:
+
+
+
the entity
+
the relation (or link).
+
+
+
Don't confuse database link (relation) with HTML-link (underlined
+text to click.)
+
+
Book, Author, Subject, Language and LoC Class are entities.
+
+
Book-Author, Book-Subject, Book-Language and Book-LoC Class are
+relations.
+
+
You can add, edit and
+delete entities. Add an author, add a book. You can
+create and remove links between existing entities (link
+and unlink entities). Link an author to a book.
+Remember: to link you have to create the entities first. Of course, if
+you find that the entity already exists in the catalog, you should not
+create it again.
+
+
The advantage of the entity and link concept is that you have to enter data
+only once. Every author exists only once in the database. You have to enter
+the date of birth and of death only once. You have to enter the pseudonyms
+and different orthografies of the name only once. If you find an error, you
+have to fix it only once.
+
+
To add a new book:
+
+
+
Search for the author. If you don't find her, add her.
+
Enter the book data.
+
Link the author to the book.
+
+
+
HTML-Links and Buttons
+
+
Clicking on a HTML-link will never alter any data.
+
+
Clicking on a button with: add, edit, delete, link or unlink in the
+caption will alter data. (There are some other buttons though that don't
+alter data.)
In this catalog you will find 2 different recurring concepts:
+
+
+
the entity
+
the relation (or link).
+
+
+
Don't confuse database link (relation) with HTML-link (underlined
+text to click.)
+
+
Book, Author, Subject, Language and LoC Class are entities.
+
+
Book-Author, Book-Subject, Book-Language and Book-LoC Class are
+relations.
+
+
You can add, edit and
+delete entities. Add an author, add a book. You can
+create and remove links between existing entities (link
+and unlink entities). Link an author to a book.
+Remember: to link you have to create the entities first. Of course, if
+you find that the entity already exists in the catalog, you should not
+create it again.
+
+
The advantage of the entity and link concept is that you have to enter data
+only once. Every author exists only once in the database. You have to enter
+the date of birth and of death only once. You have to enter the pseudonyms
+and different orthografies of the name only once. If you find an error, you
+have to fix it only once.
+
+
To add a new book:
+
+
+
Search for the author. If you don't find her, add her.
+
Enter the book data.
+
Link the author to the book.
+
+
+
HTML-Links and Buttons
+
+
Clicking on a HTML-link will never alter any data.
+
+
Clicking on a button with: add, edit, delete, link or unlink in the
+caption will alter data. (There are some other buttons though that don't
+alter data.)
Please enter the first few characters of the language (at least one).
+Search is case-sensitive.
+Use * as wildcard. (eg. *ish)
+To see everything just enter *.
+");
+
+form_open ();
+echo (" \n");
+form_submit ("Search");
+form_close ();
+
+if ($filter != "") {
+ $filt = preg_replace ('/\*/', '%', $filter);
+ $db->exec ("select pk, lang, (select count(fk_books) from mn_books_langs where fk_langs=pk) as cnt from langs where lang like '$filt%' order by cnt, lang;");
+ $table = new ListLangsTable ();
+ $table->PrintTable ($db, $caption);
+}
+
+pagefooter ();
+
+?>
diff --git a/catalog/admin/langs_list.php~ b/catalog/admin/langs_list.php~
new file mode 100644
index 0000000..3168cc7
--- /dev/null
+++ b/catalog/admin/langs_list.php~
@@ -0,0 +1,47 @@
+AddColumn ("$prefix=edit&fk_langs=#pk#\">Edit",
+ "$prefix=add\">Add", "left", "1%");
+ $this->AddColumn ("$prefix=delete&fk_langs=#pk#\">Delete",
+ "", "left", "1%");
+ $this->AddSimpleColumn ("pk", "Id", "left", "1%");
+ $this->AddSimpleColumn ("lang", "Language");
+ $this->AddSimpleColumn ("cnt", "# of books");
+ }
+}
+
+$db = $config->db ();
+
+echo ("
+
Please enter the first few characters of the language (at least one).
+Search is case-sensitive.
+Use * as wildcard. (eg. *ish)
+To see everything just enter *.
+");
+
+form_open ();
+echo (" \n");
+form_submit ("Search");
+form_close ();
+
+if ($filter != "") {
+ $filt = preg_replace ('/\*/', '%', $filter);
+ $db->exec ("select pk, lang, (select count(fk_books) from mn_books_langs where fk_langs=pk) as cnt from langs where lang like '$filt%' order by cnt, lang;");
+ $table = new ListLangsTable ();
+ $table->PrintTable ($db, $caption);
+}
+
+pagefooter ();
+
+?>
diff --git a/catalog/admin/locc.php b/catalog/admin/locc.php
new file mode 100644
index 0000000..ea34326
--- /dev/null
+++ b/catalog/admin/locc.php
@@ -0,0 +1,105 @@
+AddColumn ("#pk#",
+ "Etext Nr.", "right", "1*");
+ $this->AddSimpleColumn ("title", "Title");
+ $this->limit = 25;
+ $this->relay = array ("fk_loccs", "mode", "filter");
+ }
+}
+
+$db = $config->db ();
+$db->logger = new logger ();
+$f = new SQLForm ();
+getstr ("fk_loccs");
+getstr ("filter");
+
+if (ismode ("delete")) {
+ $db->Exec ("select count (*) as cnt from mn_books_loccs " .
+ "where fk_loccs = '$fk_loccs'");
+ $cnt = $db->get ("cnt");
+ if ($cnt > 0) {
+ $f->SubCaption ("Warning: There are $cnt books related to this LoC class. ");
+ }
+ $f->SubCaption ("You are about to delete this LoC class.");
+ $f->SubCaption ("Press the '$caption' button to continue or " .
+ "hit the back button on your browser to dismiss.");
+} else {
+ $f->Text ("fk_loccs", "pk", "Id", SQLCHAR, 10, 10, true);
+ $f->Text ("locc", "locc", "LoC Class", SQLCHAR, 80, 240, true);
+ $f->LoadData ("select * from loccs where pk = '$fk_loccs'");
+}
+$f->Hidden ("fk_loccs");
+$f->Hidden ("filter");
+
+if (isupdatemode ("add")) {
+ if ($f->Check ()) {
+ $sql = $f->mkInsert ($db->GetFormatter ());
+ if ($db->Exec ("insert into loccs " . $sql)) {
+ msg ("LoC class added !");
+ } else {
+ error_msg ("Could not add LoC class!");
+ }
+ }
+}
+if (isupdatemode ("edit")) {
+ if ($f->Check ()) {
+ $sql = $f->mkUpdate ($db->GetFormatter ());
+ if ($db->Exec ("update loccs set " . $sql . "where pk = '$fk_loccs'")) {
+ msg ("LoC class modified !");
+ } else {
+ error_msg ("Could not modify LoC class !");
+ }
+ }
+}
+if (isupdatemode ("delete")) {
+ $db->Exec ("delete from mn_books_loccs where fk_loccs = '$fk_loccs'");
+ if ($db->Exec ("delete from loccs where pk = '$fk_loccs'")) {
+ msg ("LoC class deleted !");
+ } else {
+ error_msg ("Could not delete LoC class !");
+ }
+}
+
+if (isupdate ()) {
+ if (!isupdatemode ("delete")) {
+ echo ("
Please enter the first few characters of the LoC Class (at least one).
+Search is case-sensitive.
+Use * as wildcard. (eg. *United*)
+To see everything just enter *.
Please enter the first few characters of the LoC Class (at least one).
+Search is case-sensitive.
+Use * as wildcard. (eg. *United*)
+To see everything just enter *.
+");
+
+form_open ();
+echo (" \n");
+form_submit ("Search");
+form_close ();
+
+if ($filter != "") {
+ $filt = preg_replace ('/\*/', '%', $filter);
+ $db->exec ("select * from loccs where locc like '$filt%' order by locc;");
+ $table = new ListLoccsTable ();
+ $table->PrintTable ($db, $caption);
+}
+
+pagefooter ();
+
+?>
diff --git a/catalog/admin/ls.php b/catalog/admin/ls.php
new file mode 100644
index 0000000..09c4195
--- /dev/null
+++ b/catalog/admin/ls.php
@@ -0,0 +1,17 @@
+
diff --git a/catalog/admin/ls.php~ b/catalog/admin/ls.php~
new file mode 100644
index 0000000..b74c052
--- /dev/null
+++ b/catalog/admin/ls.php~
@@ -0,0 +1,16 @@
+
diff --git a/catalog/admin/make-by-pages.php b/catalog/admin/make-by-pages.php
new file mode 100644
index 0000000..0e6f0ba
--- /dev/null
+++ b/catalog/admin/make-by-pages.php
@@ -0,0 +1,618 @@
+page_encoding = "UTF-8";
+
+function _navbar ($what, $dir) {
+ global $config;
+ $nav = "
\n");
+ } while ($db2->NextRow ());
+ }
+
+ $s .= "\n";
+ return $s;
+}
+
+/////////////////////////////////////////////////////////////////////////////////////
+// start main
+
+echo ("creating temp table ...");
+
+$db2->exec ("CREATE TEMP TABLE dl AS
+SELECT scores.book_downloads.fk_books, scores.book_downloads.date,
+ scores.book_downloads.downloads, fk_langs
+FROM scores.book_downloads, mn_books_langs
+WHERE scores.book_downloads.fk_books = mn_books_langs.fk_books
+AND scores.book_downloads.fk_books NOT IN ($disqualifiedbooks)");
+
+echo (" done.\n");
+
+$langs = array ();
+
+$langs[] = array ("", 100); // Top 100 all languages
+$langs[] = array ("", 1000); // Top 1000 all languages
+
+$db2->exec ("select fk_langs, count (fk_langs) as cnt from mn_books_langs group by fk_langs order by cnt desc;");
+if ($db2->FirstRow ()) {
+ do {
+ $fk_langs = $db2->get ("fk_langs", SQLCHAR);
+ $langs[] = array ($fk_langs, 100); // Top 100 this language
+ } while ($db2->NextRow ());
+}
+
+echo (" done.\n");
+
+$db2->exec ("select max (date) as latest, min (date) as earliest from scores.book_downloads");
+$latest = date ("Y-m-d", $db2->get ("latest", SQLDATE));
+$earliest = date ("Y-m-d", $db2->get ("earliest", SQLDATE));
+
+// start output
+
+foreach ($langs as $l) {
+ $lang = $l[0];
+ $num = $l[1];
+
+ $filesuffix = "";
+ $titlesuffix = "$num";
+ $langwhere = "";
+
+ if ($num != 100) {
+ $filesuffix .= "$num";
+ }
+
+ if (!empty ($lang)) {
+ $filesuffix .= "-$lang";
+ $titlesuffix .= " ($lang)";
+ $langwhere = "fk_langs = '$lang' AND ";
+ }
+
+ if ($hd = fopen ($file = "$config->documentroot/$dir_scores/top$filesuffix.php", "w")) {
+ echo ("writing $file ... downloads ...\n");
+
+ $d1 = downloads ("$langwhere date >= current_date - interval '1 days'");
+ $d7 = downloads ("$langwhere date >= current_date - interval '7 days'");
+ $d30 = downloads ("$langwhere date >= current_date - interval '30 days'");
+
+ fputs ($hd, mk_header ("Top $titlesuffix"));
+
+ $s = <<< EOF
+
To determine the ranking we count the times each file gets downloaded.
+Both HTTP and FTP transfers are counted.
+Only transfers from ibiblio.org are counted as we have no access to our mirrors log files.
+Multiple downloads from the same IP address on the same day count as one download.
+IP addresses that download more than 100 files a day are considered
+robots and are not considered.
+Books made out of multiple files like most audio books are counted
+if any file is downloaded.
\n");
+ } while ($db2->NextRow ());
+ }
+
+ $s .= "\n";
+ return $s;
+}
+
+/////////////////////////////////////////////////////////////////////////////////////
+// start main
+
+echo ("creating temp table ...");
+
+$db2->exec ("CREATE TEMP TABLE dl AS
+SELECT scores.book_downloads.fk_books, scores.book_downloads.date,
+ scores.book_downloads.downloads, fk_langs
+FROM scores.book_downloads, mn_books_langs
+WHERE scores.book_downloads.fk_books = mn_books_langs.fk_books
+AND scores.book_downloads.fk_books NOT IN ($disqualifiedbooks)");
+
+echo (" done.\n");
+
+$langs = array ();
+
+$langs[] = array ("", 100); // Top 100 all languages
+$langs[] = array ("", 1000); // Top 1000 all languages
+
+$db2->exec ("select fk_langs, count (fk_langs) as cnt from mn_books_langs group by fk_langs order by cnt desc;");
+if ($db2->FirstRow ()) {
+ do {
+ $fk_langs = $db2->get ("fk_langs", SQLCHAR);
+ $langs[] = array ($fk_langs, 100); // Top 100 this language
+ } while ($db2->NextRow ());
+}
+
+echo (" done.\n");
+
+$db2->exec ("select max (date) as latest, min (date) as earliest from scores.book_downloads");
+$latest = date ("Y-m-d", $db2->get ("latest", SQLDATE));
+$earliest = date ("Y-m-d", $db2->get ("earliest", SQLDATE));
+
+// start output
+
+foreach ($langs as $l) {
+ $lang = $l[0];
+ $num = $l[1];
+
+ $filesuffix = "";
+ $titlesuffix = "$num";
+ $langwhere = "";
+
+ if ($num != 100) {
+ $filesuffix .= "$num";
+ }
+
+ if (!empty ($lang)) {
+ $filesuffix .= "-$lang";
+ $titlesuffix .= " ($lang)";
+ $langwhere = "fk_langs = '$lang' AND ";
+ }
+
+ if ($hd = fopen ($file = "$config->documentroot/$dir_scores/top$filesuffix.php", "w")) {
+ echo ("writing $file ... downloads ...\n");
+
+ $d1 = downloads ("$langwhere date >= current_date - interval '1 days'");
+ $d7 = downloads ("$langwhere date >= current_date - interval '7 days'");
+ $d30 = downloads ("$langwhere date >= current_date - interval '30 days'");
+
+ fputs ($hd, mk_header ("Top $titlesuffix"));
+
+ $s = <<< EOF
+
To determine the ranking we count the times each file gets downloaded.
+Both HTTP and FTP transfers are counted.
+Only transfers from ibiblio.org are counted as we have no access to our mirrors log files.
+Multiple downloads from the same IP address on the same day count as one download.
+IP addresses that download more than 100 files a day are considered
+robots and are not considered.
+Books made out of multiple files like most audio books are counted
+if any file is downloaded.
Please enter the first few characters of the authors name (at least one).
+Use * as wildcard.
+
+\n");
+
+if ($filter != "") {
+ $filter = str_replace ('*', '%', $filter);
+ $sql_filter = $db->f ("$filter%", SQLCHAR);
+ $db->exec ("select * from authors where author ilike $sql_filter order by author;");
+ $table = new ListAuthorsTable ();
+ $table->PrintTable ($db, $caption);
+}
+
+p ("Add Author");
+
+pagefooter ();
+
+?>
diff --git a/catalog/admin/mn_books_categories.php b/catalog/admin/mn_books_categories.php
new file mode 100644
index 0000000..6ace4f9
--- /dev/null
+++ b/catalog/admin/mn_books_categories.php
@@ -0,0 +1,65 @@
+db ();
+$db->logger = new logger ();
+
+getint ("fk_books");
+getint ("fk_categories");
+
+if (isupdatemode ("add")) {
+ if ($db->Exec ("insert into mn_books_categories (fk_books, fk_categories) " .
+ "values ($fk_books, '$fk_categories')")) {
+ $msg = "msg=Book Category linked !";
+ } else {
+ $msg = "errormsg=Could not link book Category !";
+ }
+}
+
+if (isupdatemode ("delete")) {
+ if ($db->Exec ("delete from mn_books_categories " .
+ "where fk_books = $fk_books and fk_categories = '$fk_categories'")) {
+ $msg = "msg=Book Category unlinked !";
+ } else {
+ $msg = "errormsg=Could not unlink book Category !";
+ }
+}
+
+if (isupdate ()) {
+ header ("Location: book?mode=edit&fk_books=$fk_books&$msg");
+ return;
+}
+
+pageheader ($caption = MNCaption ("Category", "Book"));
+
+class ListCategoriesTable extends ListTable {
+ function __construct () {
+ global $fk_books;
+ $this->AddColumn ("Link", "", null, "1%");
+ $this->AddSimpleColumn ("category", "Category");
+ }
+}
+
+if (isfirstmode ("add")) {
+ $db->exec ("select * from categories order by category;");
+ $table = new ListCategoriesTable ();
+ $table->PrintTable ($db, $caption);
+}
+
+if (isfirstmode ("delete")) {
+ $f->Hidden ("fk_books");
+ $f->Hidden ("fk_categories");
+ $f->SubCaption ("You are about to unlink this book Category.");
+ $f->SubCaption ("Press the '$caption' button to continue or " .
+ "hit the back button on your browser to dismiss.");
+ $f->Output ($caption, $caption);
+}
+
+pagefooter ();
+
+?>
diff --git a/catalog/admin/mn_books_categories.php~ b/catalog/admin/mn_books_categories.php~
new file mode 100644
index 0000000..d817447
--- /dev/null
+++ b/catalog/admin/mn_books_categories.php~
@@ -0,0 +1,60 @@
+Exec ("insert into mn_books_categories (fk_books, fk_categories) " .
+ "values ($fk_books, '$fk_categories')")) {
+ $msg = "msg=Book Category linked !";
+ } else {
+ $msg = "errormsg=Could not link book Category !";
+ }
+}
+
+if (isupdatemode ("delete")) {
+ if ($db->Exec ("delete from mn_books_categories " .
+ "where fk_books = $fk_books and fk_categories = '$fk_categories'")) {
+ $msg = "msg=Book Category unlinked !";
+ } else {
+ $msg = "errormsg=Could not unlink book Category !";
+ }
+}
+
+if (isupdate ()) {
+ header ("Location: book?mode=edit&fk_books=$fk_books&$msg");
+ return;
+}
+
+pageheader ($caption = MNCaption ("Category", "Book"));
+
+class ListCategoriesTable extends ListTable {
+ function __construct () {
+ global $fk_books;
+ $this->AddColumn ("Link", "", null, "1%");
+ $this->AddSimpleColumn ("category", "Category");
+ }
+}
+
+if (isfirstmode ("add")) {
+ $db->exec ("select * from categories order by category;");
+ $table = new ListCategoriesTable ();
+ $table->PrintTable ($db, $caption);
+}
+
+if (isfirstmode ("delete")) {
+ $f->Hidden ("fk_books");
+ $f->Hidden ("fk_categories");
+ $f->SubCaption ("You are about to unlink this book Category.");
+ $f->SubCaption ("Press the '$caption' button to continue or " .
+ "hit the back button on your browser to dismiss.");
+ $f->Output ($caption, $caption);
+}
+
+pagefooter ();
+
+?>
diff --git a/catalog/admin/mn_books_langs.php b/catalog/admin/mn_books_langs.php
new file mode 100644
index 0000000..cfbd1da
--- /dev/null
+++ b/catalog/admin/mn_books_langs.php
@@ -0,0 +1,79 @@
+db ();
+$db->logger = new logger ();
+
+getint ("fk_books");
+getstr ("fk_langs");
+
+if (isupdatemode ("add")) {
+ if ($db->Exec ("insert into mn_books_langs (fk_books, fk_langs) " .
+ "values ($fk_books, '$fk_langs')")) {
+ $msg = "msg=Book language linked !";
+ } else {
+ $msg = "errormsg=Could not link book language !";
+ }
+}
+
+if (isupdatemode ("delete")) {
+ if ($db->Exec ("delete from mn_books_langs " .
+ "where fk_books = $fk_books and fk_langs = '$fk_langs'")) {
+ $msg = "msg=Book language unlinked !";
+ } else {
+ $msg = "errormsg=Could not unlink book language !";
+ }
+}
+
+if (isupdate ()) {
+ header ("Location: book?mode=edit&fk_books=$fk_books&$msg");
+ return;
+}
+
+pageheader ($caption = MNCaption ("Language", "Book"));
+
+class ListLangsTable extends ListTable {
+ function __construct () {
+ global $fk_books;
+ $this->AddColumn ("Link", "", null, "1%");
+ $this->AddSimpleColumn ("lang", "Language");
+ }
+}
+
+if (isfirstmode ("add")) {
+ $f->OutputFormHeader ();
+ echo ("
Please enter the first few characters of " .
+ "the language name (at least one). Use * as wildcard.
\n" .
+ " \n");
+ form_submit ("Search");
+
+ form_relay ("mode");
+ form_relay ("fk_books");
+ form_relay ("fk_langs");
+ form_close ();
+
+ if ($filter != "") {
+ $filter = preg_replace ('/\*/', '%', $filter);
+ $db->exec ("select * from langs where lang like '$filter%' order by lang;");
+ $table = new ListLangsTable ();
+ $table->PrintTable ($db, $caption);
+ }
+}
+
+if (isfirstmode ("delete")) {
+ $f->Hidden ("fk_books");
+ $f->Hidden ("fk_langs");
+ $f->SubCaption ("You are about to unlink this book language.");
+ $f->SubCaption ("Press the '$caption' button to continue or " .
+ "hit the back button on your browser to dismiss.");
+ $f->Output ($caption, $caption);
+}
+
+pagefooter ();
+
+?>
diff --git a/catalog/admin/mn_books_langs.php~ b/catalog/admin/mn_books_langs.php~
new file mode 100644
index 0000000..7938f71
--- /dev/null
+++ b/catalog/admin/mn_books_langs.php~
@@ -0,0 +1,74 @@
+Exec ("insert into mn_books_langs (fk_books, fk_langs) " .
+ "values ($fk_books, '$fk_langs')")) {
+ $msg = "msg=Book language linked !";
+ } else {
+ $msg = "errormsg=Could not link book language !";
+ }
+}
+
+if (isupdatemode ("delete")) {
+ if ($db->Exec ("delete from mn_books_langs " .
+ "where fk_books = $fk_books and fk_langs = '$fk_langs'")) {
+ $msg = "msg=Book language unlinked !";
+ } else {
+ $msg = "errormsg=Could not unlink book language !";
+ }
+}
+
+if (isupdate ()) {
+ header ("Location: book?mode=edit&fk_books=$fk_books&$msg");
+ return;
+}
+
+pageheader ($caption = MNCaption ("Language", "Book"));
+
+class ListLangsTable extends ListTable {
+ function __construct () {
+ global $fk_books;
+ $this->AddColumn ("Link", "", null, "1%");
+ $this->AddSimpleColumn ("lang", "Language");
+ }
+}
+
+if (isfirstmode ("add")) {
+ $f->OutputFormHeader ();
+ echo ("
Please enter the first few characters of " .
+ "the language name (at least one). Use * as wildcard.
\n" .
+ " \n");
+ form_submit ("Search");
+
+ form_relay ("mode");
+ form_relay ("fk_books");
+ form_relay ("fk_langs");
+ form_close ();
+
+ if ($filter != "") {
+ $filter = preg_replace ('/\*/', '%', $filter);
+ $db->exec ("select * from langs where lang like '$filter%' order by lang;");
+ $table = new ListLangsTable ();
+ $table->PrintTable ($db, $caption);
+ }
+}
+
+if (isfirstmode ("delete")) {
+ $f->Hidden ("fk_books");
+ $f->Hidden ("fk_langs");
+ $f->SubCaption ("You are about to unlink this book language.");
+ $f->SubCaption ("Press the '$caption' button to continue or " .
+ "hit the back button on your browser to dismiss.");
+ $f->Output ($caption, $caption);
+}
+
+pagefooter ();
+
+?>
diff --git a/catalog/admin/mn_books_loccs.php b/catalog/admin/mn_books_loccs.php
new file mode 100644
index 0000000..3b4cd79
--- /dev/null
+++ b/catalog/admin/mn_books_loccs.php
@@ -0,0 +1,92 @@
+db ();
+$db->logger = new logger ();
+
+getint ("fk_books");
+getstr ("fk_loccs");
+
+$locc_name = "Unknown";
+if ($db->Exec("select locc from loccs where pk = '$fk_loccs'")) {
+#it will make life nicer if the message includes *what* LoC was linked.
+ $locc_name = $db->Get("locc");
+ }
+
+if (isupdatemode ("add")) {
+ if ($db->Exec ("insert into mn_books_loccs (fk_books, fk_loccs) " .
+ "values ($fk_books, '$fk_loccs')")) {
+ $msg = "msg=LoCC '$fk_loccs : $locc_name' linked!";
+ } else {
+ $msg = "errormsg=Could not link LoCC '$fk_loccs : $locc_name'!";
+ }
+}
+
+if (isupdatemode ("delete")) {
+ if ($db->Exec ("delete from mn_books_loccs " .
+ "where fk_books = $fk_books and fk_loccs = '$fk_loccs'")) {
+ $msg = "msg=LoCC '$fk_loccs : $locc_name' unlinked!";
+ } else {
+ $msg = "errormsg=Could not unlink LoCC '$fk_loccs : $locc_name'!";
+ }
+}
+
+if (isupdate ()) {
+ header ("Location: book?mode=edit&fk_books=$fk_books&$msg");
+ return;
+}
+
+$db->Exec("select text from attributes where fk_books = $fk_books " .
+ "and fk_attriblist=245");
+$book_name=$db->Get("text");
+
+pageheader ($caption = MNCaption ("LoC Class", "'$book_name'"));
+
+class ListLoccsTable extends ListTable {
+ function __construct () {
+ global $fk_books;
+ $this->AddColumn ("Link", "", null, "1%");
+ $this->AddColumn("#pk#", "Code", "narrow");
+ $this->AddSimpleColumn ("locc", "LoC Class");
+ }
+}
+
+if (isfirstmode ("add")) {
+ $f->OutputFormHeader ();
+ echo ("
Please enter the first few characters of " .
+ "the LoC class description (at least one). Use * as wildcard.
\n" .
+ " \n");
+ form_submit ("Search");
+
+ form_relay ("mode");
+ form_relay ("fk_books");
+ form_relay ("fk_loccs");
+ form_close ();
+
+ if ($filter != "") {
+ $filter = preg_replace ('/\*/', '%', $filter);
+ $db->exec ("select * from loccs where locc like '$filter%' order by locc;");
+ $table = new ListLoccsTable ();
+ $table->PrintTable ($db, $caption);
+ }
+}
+
+if (isfirstmode ("delete")) {
+
+ $f->Hidden ("fk_books");
+ $f->Hidden ("fk_loccs");
+ $f->SubCaption ("You are about to unlink LoCC '$fk_loccs : $locc_name' from " .
+ "'$book_name'.");
+ $f->SubCaption ("Press the '$caption' button to continue or " .
+ "hit the back button on your browser to dismiss.");
+ $f->Output ($caption, $caption);
+}
+
+pagefooter ();
+
+?>
diff --git a/catalog/admin/mn_books_loccs.php~ b/catalog/admin/mn_books_loccs.php~
new file mode 100644
index 0000000..faff2b0
--- /dev/null
+++ b/catalog/admin/mn_books_loccs.php~
@@ -0,0 +1,87 @@
+Exec("select locc from loccs where pk = '$fk_loccs'")) {
+#it will make life nicer if the message includes *what* LoC was linked.
+ $locc_name = $db->Get("locc");
+ }
+
+if (isupdatemode ("add")) {
+ if ($db->Exec ("insert into mn_books_loccs (fk_books, fk_loccs) " .
+ "values ($fk_books, '$fk_loccs')")) {
+ $msg = "msg=LoCC '$fk_loccs : $locc_name' linked!";
+ } else {
+ $msg = "errormsg=Could not link LoCC '$fk_loccs : $locc_name'!";
+ }
+}
+
+if (isupdatemode ("delete")) {
+ if ($db->Exec ("delete from mn_books_loccs " .
+ "where fk_books = $fk_books and fk_loccs = '$fk_loccs'")) {
+ $msg = "msg=LoCC '$fk_loccs : $locc_name' unlinked!";
+ } else {
+ $msg = "errormsg=Could not unlink LoCC '$fk_loccs : $locc_name'!";
+ }
+}
+
+if (isupdate ()) {
+ header ("Location: book?mode=edit&fk_books=$fk_books&$msg");
+ return;
+}
+
+$db->Exec("select text from attributes where fk_books = $fk_books " .
+ "and fk_attriblist=245");
+$book_name=$db->Get("text");
+
+pageheader ($caption = MNCaption ("LoC Class", "'$book_name'"));
+
+class ListLoccsTable extends ListTable {
+ function __construct () {
+ global $fk_books;
+ $this->AddColumn ("Link", "", null, "1%");
+ $this->AddColumn("#pk#", "Code", "narrow");
+ $this->AddSimpleColumn ("locc", "LoC Class");
+ }
+}
+
+if (isfirstmode ("add")) {
+ $f->OutputFormHeader ();
+ echo ("
Please enter the first few characters of " .
+ "the LoC class description (at least one). Use * as wildcard.
\n" .
+ " \n");
+ form_submit ("Search");
+
+ form_relay ("mode");
+ form_relay ("fk_books");
+ form_relay ("fk_loccs");
+ form_close ();
+
+ if ($filter != "") {
+ $filter = preg_replace ('/\*/', '%', $filter);
+ $db->exec ("select * from loccs where locc like '$filter%' order by locc;");
+ $table = new ListLoccsTable ();
+ $table->PrintTable ($db, $caption);
+ }
+}
+
+if (isfirstmode ("delete")) {
+
+ $f->Hidden ("fk_books");
+ $f->Hidden ("fk_loccs");
+ $f->SubCaption ("You are about to unlink LoCC '$fk_loccs : $locc_name' from " .
+ "'$book_name'.");
+ $f->SubCaption ("Press the '$caption' button to continue or " .
+ "hit the back button on your browser to dismiss.");
+ $f->Output ($caption, $caption);
+}
+
+pagefooter ();
+
+?>
diff --git a/catalog/admin/mn_books_subjects.php b/catalog/admin/mn_books_subjects.php
new file mode 100644
index 0000000..df7d565
--- /dev/null
+++ b/catalog/admin/mn_books_subjects.php
@@ -0,0 +1,93 @@
+db ();
+$db->logger = new logger ();
+
+getint ("fk_books");
+getint ("fk_subjects");
+
+$subject_name = "";
+if ($db->Exec("select subject from subjects where pk = $fk_subjects")) {
+#it will make life nicer if the message includes *what* subject was linked.
+ $subject_name = $db->Get("subject");
+ }
+if (!$subject_name) {
+ /* if getting the actual name fails for some reason, use the internal number instead;
+ at least it is something...*/
+ $subject_name = "Internal #: $fk_subjects";
+ }
+if (isupdatemode ("add")) {
+ if ($db->Exec ("insert into mn_books_subjects (fk_books, fk_subjects) " .
+ "values ($fk_books, '$fk_subjects')")) {
+ $msg = "msg=Subject '$subject_name' linked!";
+ } else {
+ $msg = "errormsg=Could not link Subject '$subject_name'!";
+ }
+}
+
+if (isupdatemode ("delete")) {
+ if ($db->Exec ("delete from mn_books_subjects " .
+ "where fk_books = $fk_books and fk_subjects = '$fk_subjects'")) {
+ $msg = "msg=Subject '$subject_name' unlinked !";
+ } else {
+ $msg = "errormsg=Could not unlink Subject '$subject_name'!";
+ }
+}
+
+if (isupdate ()) {
+ header ("Location: book?mode=edit&fk_books=$fk_books&$msg");
+ return;
+}
+
+pageheader ($caption = MNCaption ("Subject", "Book"));
+
+class ListSubjectsTable extends ListTable {
+ function __construct () {
+ global $fk_books;
+ $this->AddColumn ("Link", "Add", null, "1%");
+ $this->AddColumn ("#subject#", "Subject");
+ }
+}
+
+if (isfirstmode ("add")) {
+ $f->OutputFormHeader ();
+ echo ("
Please enter the first few characters of " .
+ "the Subject description (at least one). Use * as wildcard.
\n" .
+ " \n");
+ form_submit ("Search");
+
+ form_relay ("mode");
+ form_relay ("fk_books");
+ form_relay ("fk_subjects");
+ form_close ();
+
+ if ($filter != "") {
+ $filter = preg_replace ('/\*/', '%', $filter);
+ $db->exec ("select * from subjects where subject like '$filter%' order by subject;");
+ $table = new ListSubjectsTable ();
+ $table->PrintTable ($db, $caption);
+ }
+}
+
+if (isfirstmode ("delete")) {
+ $db->Exec("select text from attributes where fk_books = $fk_books " .
+ "and fk_attriblist=245");
+ $book_name=$db->Get("text");
+ $f->Hidden ("fk_books");
+ $f->Hidden ("fk_subjects");
+ $f->SubCaption ("You are about to unlink the Subject '$subject_name' " .
+ "from the book entitled '$book_name'.");
+ $f->SubCaption ("Press the '$caption' button to continue or " .
+ "hit the back button on your browser to dismiss.");
+ $f->Output ($caption, $caption);
+}
+
+pagefooter ();
+
+?>
diff --git a/catalog/admin/mn_books_subjects.php~ b/catalog/admin/mn_books_subjects.php~
new file mode 100644
index 0000000..d54f1da
--- /dev/null
+++ b/catalog/admin/mn_books_subjects.php~
@@ -0,0 +1,88 @@
+Exec("select subject from subjects where pk = $fk_subjects")) {
+#it will make life nicer if the message includes *what* subject was linked.
+ $subject_name = $db->Get("subject");
+ }
+if (!$subject_name) {
+ /* if getting the actual name fails for some reason, use the internal number instead;
+ at least it is something...*/
+ $subject_name = "Internal #: $fk_subjects";
+ }
+if (isupdatemode ("add")) {
+ if ($db->Exec ("insert into mn_books_subjects (fk_books, fk_subjects) " .
+ "values ($fk_books, '$fk_subjects')")) {
+ $msg = "msg=Subject '$subject_name' linked!";
+ } else {
+ $msg = "errormsg=Could not link Subject '$subject_name'!";
+ }
+}
+
+if (isupdatemode ("delete")) {
+ if ($db->Exec ("delete from mn_books_subjects " .
+ "where fk_books = $fk_books and fk_subjects = '$fk_subjects'")) {
+ $msg = "msg=Subject '$subject_name' unlinked !";
+ } else {
+ $msg = "errormsg=Could not unlink Subject '$subject_name'!";
+ }
+}
+
+if (isupdate ()) {
+ header ("Location: book?mode=edit&fk_books=$fk_books&$msg");
+ return;
+}
+
+pageheader ($caption = MNCaption ("Subject", "Book"));
+
+class ListSubjectsTable extends ListTable {
+ function __construct () {
+ global $fk_books;
+ $this->AddColumn ("Link", "Add", null, "1%");
+ $this->AddColumn ("#subject#", "Subject");
+ }
+}
+
+if (isfirstmode ("add")) {
+ $f->OutputFormHeader ();
+ echo ("
Please enter the first few characters of " .
+ "the Subject description (at least one). Use * as wildcard.
\n" .
+ " \n");
+ form_submit ("Search");
+
+ form_relay ("mode");
+ form_relay ("fk_books");
+ form_relay ("fk_subjects");
+ form_close ();
+
+ if ($filter != "") {
+ $filter = preg_replace ('/\*/', '%', $filter);
+ $db->exec ("select * from subjects where subject like '$filter%' order by subject;");
+ $table = new ListSubjectsTable ();
+ $table->PrintTable ($db, $caption);
+ }
+}
+
+if (isfirstmode ("delete")) {
+ $db->Exec("select text from attributes where fk_books = $fk_books " .
+ "and fk_attriblist=245");
+ $book_name=$db->Get("text");
+ $f->Hidden ("fk_books");
+ $f->Hidden ("fk_subjects");
+ $f->SubCaption ("You are about to unlink the Subject '$subject_name' " .
+ "from the book entitled '$book_name'.");
+ $f->SubCaption ("Press the '$caption' button to continue or " .
+ "hit the back button on your browser to dismiss.");
+ $f->Output ($caption, $caption);
+}
+
+pagefooter ();
+
+?>
diff --git a/catalog/admin/password.php b/catalog/admin/password.php
new file mode 100644
index 0000000..05e6e2c
--- /dev/null
+++ b/catalog/admin/password.php
@@ -0,0 +1,82 @@
+db ();
+$db->logger = new logger ();
+
+include_once ("sqlform.phh");
+
+if ($admin) {
+ // changing other people's passwords requires createuser permission
+ authenticate ("createuser");
+ getint ("fk_users");
+ $db->exec ("select login from users where pk = $fk_users");
+ if ($db->FirstRow ()) {
+ $login = $db->get ("login", SQLCHAR);
+ } else {
+ error_msg ("No such user");
+ }
+ pageheader ("Administrator Change Password For: $login");
+} else {
+ authenticate ();
+ $login = $_SERVER['PHP_AUTH_USER'];
+ $sql_login = $db->f ($login, SQLCHAR);
+ $db->exec ("select pk from users where login = $sql_login");
+ if ($db->FirstRow ()) {
+ $fk_users = $db->get ("pk", SQLINT);
+ }
+ pageheader ("Change Password For: $login");
+}
+
+getstr ("filter");
+
+if (!isupdate ()) {
+ form_open ();
+ if ($admin) {
+ p ("Enter password for user {$_SERVER['PHP_AUTH_USER']}: ");
+ } else {
+ p ("Enter old password for user $login: ");
+ }
+ p ("Do not use the same password as for other important services!");
+ p ("Enter new password for user $login: at least 8 characters");
+ p ("Reenter new password for user $login: ");
+ form_hidden ("admin", $admin);
+ form_hidden ("fk_users", $fk_users);
+ form_hidden ("filter", $filter);
+ form_submit ("Change password");
+ form_close ();
+} else {
+ // make sure you got the old password
+ getstr ("oldpassword");
+ $sql_login = $db->f ($_SERVER['PHP_AUTH_USER'], SQLCHAR);
+ $sql_password = $db->f (md5 ($oldpassword), SQLCHAR);
+ $db->exec ("select pk from users where login = $sql_login and password = $sql_password");
+ if (!$db->FirstRow ()) {
+ error_msg ("Incorrect old password!");
+ die ();
+ }
+ getstr ("newpassword1");
+ getstr ("newpassword2");
+ if ($newpassword1 != $newpassword2) {
+ error_msg ("You entered 2 different passwords!");
+ }
+ if (strlen ($newpassword1) < 8) {
+ error_msg ("New password must be at least 8 characters long.");
+ }
+ $sql_password = $db->f (md5 ($newpassword1), SQLCHAR);
+ if ($db->exec ("update users set password = $sql_password where pk = $fk_users")) {
+ msg ("Password changed");
+ } else {
+ error_msg ("Could not change password");
+ }
+}
+
+p ("Back to User");
+p ("Back to User List");
+
+pagefooter ();
+
+?>
diff --git a/catalog/admin/password.php~ b/catalog/admin/password.php~
new file mode 100644
index 0000000..12ef1f6
--- /dev/null
+++ b/catalog/admin/password.php~
@@ -0,0 +1,81 @@
+db ();
+$db->logger = new logger ();
+
+include_once ("sqlform.phh");
+
+if ($admin) {
+ // changing other people's passwords requires createuser permission
+ authenticate ("createuser");
+ getint ("fk_users");
+ $db->exec ("select login from users where pk = $fk_users");
+ if ($db->FirstRow ()) {
+ $login = $db->get ("login", SQLCHAR);
+ } else {
+ error_msg ("No such user");
+ }
+ pageheader ("Administrator Change Password For: $login");
+} else {
+ authenticate ();
+ $login = $_SERVER['PHP_AUTH_USER'];
+ $sql_login = $db->f ($login, SQLCHAR);
+ $db->exec ("select pk from users where login = $sql_login");
+ if ($db->FirstRow ()) {
+ $fk_users = $db->get ("pk", SQLINT);
+ }
+ pageheader ("Change Password For: $login");
+}
+
+getstr ("filter");
+
+if (!isupdate ()) {
+ form_open ();
+ if ($admin) {
+ p ("Enter password for user {$_SERVER['PHP_AUTH_USER']}: ");
+ } else {
+ p ("Enter old password for user $login: ");
+ }
+ p ("Do not use the same password as for other important services!");
+ p ("Enter new password for user $login: at least 8 characters");
+ p ("Reenter new password for user $login: ");
+ form_hidden ("admin", $admin);
+ form_hidden ("fk_users", $fk_users);
+ form_hidden ("filter", $filter);
+ form_submit ("Change password");
+ form_close ();
+} else {
+ // make sure you got the old password
+ getstr ("oldpassword");
+ $sql_login = $db->f ($_SERVER['PHP_AUTH_USER'], SQLCHAR);
+ $sql_password = $db->f (md5 ($oldpassword), SQLCHAR);
+ $db->exec ("select pk from users where login = $sql_login and password = $sql_password");
+ if (!$db->FirstRow ()) {
+ error_msg ("Incorrect old password!");
+ die ();
+ }
+ getstr ("newpassword1");
+ getstr ("newpassword2");
+ if ($newpassword1 != $newpassword2) {
+ error_msg ("You entered 2 different passwords!");
+ }
+ if (strlen ($newpassword1) < 8) {
+ error_msg ("New password must be at least 8 characters long.");
+ }
+ $sql_password = $db->f (md5 ($newpassword1), SQLCHAR);
+ if ($db->exec ("update users set password = $sql_password where pk = $fk_users")) {
+ msg ("Password changed");
+ } else {
+ error_msg ("Could not change password");
+ }
+}
+
+p ("Back to User");
+p ("Back to User List");
+
+pagefooter ();
+
+?>
diff --git a/catalog/admin/phpinfo.php~ b/catalog/admin/phpinfo.php~
new file mode 100644
index 0000000..65901f3
--- /dev/null
+++ b/catalog/admin/phpinfo.php~
@@ -0,0 +1,8 @@
+
diff --git a/catalog/admin/ps.php b/catalog/admin/ps.php
new file mode 100644
index 0000000..93c6d71
--- /dev/null
+++ b/catalog/admin/ps.php
@@ -0,0 +1,17 @@
+
diff --git a/catalog/admin/ps.php~ b/catalog/admin/ps.php~
new file mode 100644
index 0000000..f21f9eb
--- /dev/null
+++ b/catalog/admin/ps.php~
@@ -0,0 +1,16 @@
+
diff --git a/catalog/admin/review.php b/catalog/admin/review.php
new file mode 100644
index 0000000..745dc26
--- /dev/null
+++ b/catalog/admin/review.php
@@ -0,0 +1,79 @@
+logger = new logger ();
+$db = $config->db ();
+
+getstr ("mode");
+getint ("fk_reviews");
+getint ("fk_books");
+$caption = ucfirst ($mode) . " Review";
+
+$f = new SQLForm ();
+
+if (ismode ("delete")) {
+ $f->SubCaption ("You are about to delete this review.");
+ $f->SubCaption ("Press the '$caption' button to continue or " .
+ "hit the back button on your browser to dismiss.");
+} else {
+ if (ismode ("add")) {
+ $f->SQLInject ("fk_books", "fk_books", SQLINT);
+ }
+ $f->SQLSelect ("fk_reviewers", "fk_reviewers", "Reviewer", SQLINT, 10, 2, true,
+ "select pk as value, name as caption from reviews.reviewers order by caption");
+ $f->ToolTip ("Name of the reviewer.");
+
+ $f->Text ("title", "title", "Title", SQLCHAR, 80, 80, true);
+ $f->ToolTip ("Enter a title for the review, eg. Summary, Review, Excerpts, Critique");
+
+ $f->TextArea ("review", "review", "Review", SQLCHAR, 20, 80, true);
+ $f->ToolTip ("Enter a review for the work.");
+
+ $f->LoadData ("select * from reviews.reviews where pk = $fk_reviews");
+}
+$f->Hidden ("fk_reviews");
+$f->Hidden ("fk_books");
+
+if (isupdatemode ("add")) {
+ if ($f->Check ()) {
+ $sql = $f->mkInsert ($db->GetFormatter ());
+ if ($db->Exec ("insert into reviews.reviews " . $sql)) {
+ $msg = "msg=Review added !";
+ } else {
+ $msg = "errormsg=Could not add review!";
+ }
+ }
+}
+if (isupdatemode ("edit")) {
+ if ($f->Check ()) {
+ $sql = $f->mkUpdate ($db->GetFormatter ());
+ if ($db->Exec ("update reviews.reviews set " . $sql . "where pk = $fk_reviews")) {
+ $msg = "msg=Review modified !";
+ } else {
+ $msg = "errormsg=Could not modify review !";
+ }
+ }
+}
+if (isupdatemode ("delete")) {
+ if ($db->Exec ("delete from reviews.reviews where pk = $fk_reviews")) {
+ $msg = "msg=Review deleted !";
+ } else {
+ $msg = "errormsg=Could not delete review !";
+ }
+}
+
+if (isupdate ()) {
+ header ("Location: book?mode=edit&fk_books=$fk_books&$msg");
+ return;
+}
+
+pageheader ($caption);
+$f->Output ($caption, $caption);
+pagefooter ();
+
+?>
diff --git a/catalog/admin/review.php~ b/catalog/admin/review.php~
new file mode 100644
index 0000000..0d54fd0
--- /dev/null
+++ b/catalog/admin/review.php~
@@ -0,0 +1,78 @@
+logger = new logger ();
+$db = $config->db ();
+
+getstr ("mode");
+getint ("fk_reviews");
+getint ("fk_books");
+$caption = ucfirst ($mode) . " Review";
+
+$f = new SQLForm ();
+
+if (ismode ("delete")) {
+ $f->SubCaption ("You are about to delete this review.");
+ $f->SubCaption ("Press the '$caption' button to continue or " .
+ "hit the back button on your browser to dismiss.");
+} else {
+ if (ismode ("add")) {
+ $f->SQLInject ("fk_books", "fk_books", SQLINT);
+ }
+ $f->SQLSelect ("fk_reviewers", "fk_reviewers", "Reviewer", SQLINT, 10, 2, true,
+ "select pk as value, name as caption from reviews.reviewers order by caption");
+ $f->ToolTip ("Name of the reviewer.");
+
+ $f->Text ("title", "title", "Title", SQLCHAR, 80, 80, true);
+ $f->ToolTip ("Enter a title for the review, eg. Summary, Review, Excerpts, Critique");
+
+ $f->TextArea ("review", "review", "Review", SQLCHAR, 20, 80, true);
+ $f->ToolTip ("Enter a review for the work.");
+
+ $f->LoadData ("select * from reviews.reviews where pk = $fk_reviews");
+}
+$f->Hidden ("fk_reviews");
+$f->Hidden ("fk_books");
+
+if (isupdatemode ("add")) {
+ if ($f->Check ()) {
+ $sql = $f->mkInsert ($db->GetFormatter ());
+ if ($db->Exec ("insert into reviews.reviews " . $sql)) {
+ $msg = "msg=Review added !";
+ } else {
+ $msg = "errormsg=Could not add review!";
+ }
+ }
+}
+if (isupdatemode ("edit")) {
+ if ($f->Check ()) {
+ $sql = $f->mkUpdate ($db->GetFormatter ());
+ if ($db->Exec ("update reviews.reviews set " . $sql . "where pk = $fk_reviews")) {
+ $msg = "msg=Review modified !";
+ } else {
+ $msg = "errormsg=Could not modify review !";
+ }
+ }
+}
+if (isupdatemode ("delete")) {
+ if ($db->Exec ("delete from reviews.reviews where pk = $fk_reviews")) {
+ $msg = "msg=Review deleted !";
+ } else {
+ $msg = "errormsg=Could not delete review !";
+ }
+}
+
+if (isupdate ()) {
+ header ("Location: book?mode=edit&fk_books=$fk_books&$msg");
+ return;
+}
+
+pageheader ($caption);
+$f->Output ($caption, $caption);
+pagefooter ();
+
+?>
diff --git a/catalog/admin/rm-rf.php b/catalog/admin/rm-rf.php
new file mode 100644
index 0000000..698946d
--- /dev/null
+++ b/catalog/admin/rm-rf.php
@@ -0,0 +1,17 @@
+
diff --git a/catalog/admin/rm-rf.php~ b/catalog/admin/rm-rf.php~
new file mode 100644
index 0000000..d573d4a
--- /dev/null
+++ b/catalog/admin/rm-rf.php~
@@ -0,0 +1,16 @@
+
diff --git a/catalog/admin/robot-activity.php b/catalog/admin/robot-activity.php
new file mode 100644
index 0000000..61fbd5e
--- /dev/null
+++ b/catalog/admin/robot-activity.php
@@ -0,0 +1,246 @@
+host ($ip);
+}
+
+class CalcFieldHost {
+ function f ($db) {
+ $ip = $db->get ("ip", SQLCHAR);
+ $host = hr_host ($ip);
+ $host = preg_replace ("/[^.]+\.[^.]+$/", "\xE2\x80\x8B\\0", $host);
+ return $host;
+ }
+}
+
+class CalcFieldDuration {
+ function f ($db) {
+ return hr_time_diff ($db->get ("firstseen", SQLDATE), $db->get ("lastseen", SQLDATE));
+ }
+}
+
+class CalcFieldRate {
+ function f ($db) {
+ return round (3600 * $db->get ("hits", SQLINT) / ($db->get ("lastseen", SQLDATE) - $db->get ("firstseen", SQLDATE)));
+ }
+}
+
+class CalcFieldLastSeen {
+ function f ($db) {
+ return hr_ago ($db->get ("lastseen", SQLDATE));
+ }
+}
+
+class CalcFieldBlocked {
+ function f ($db) {
+ $ip = htmlspecialchars ($db->get ("ip", SQLCHAR));
+ $b = "block";
+ return $db->get ("blocked", SQLBOOL) ? "blocked" : $b;
+ }
+}
+
+class CalcFieldExpires {
+ function f ($db) {
+ return hr_in ($db->get ("expires", SQLDATE));
+ }
+}
+
+class CalcFieldRBL {
+ function __construct ($list) {
+ $this->list = $list;
+ }
+ function f ($db) {
+ $ip = fixnetwork ($db->get ("ip", SQLCHAR));
+ $reverse_ip = join (".", array_reverse (explode (".", $ip)));
+ $host = gethostbyname ("$reverse_ip.$this->list");
+ // return $host; // debug
+ return strncmp ($host, "127.", 4) ? "" : "Yes";
+ }
+}
+
+class RobotHitTable extends ListTable {
+ function __construct () {
+ $this->AddSimpleColumn ("c_blocked", "Block", "narrow");
+ $this->lastcolumn->raw = 1;
+ $this->lastcolumn->SetTitle ("Block this IP.");
+
+ $this->AddColumn ("delete", "Delete", "narrow");
+ $this->lastcolumn->SetTitle ("Delete this robot from watch list.");
+
+ $this->AddSimpleColumn ("c_last", "Seen");
+ $this->lastcolumn->SetTitle ("Last access.");
+
+ $this->AddSimpleColumn ("c_dur", "For");
+ $this->lastcolumn->SetTitle ("Total duration of access.");
+
+ $this->AddSimpleColumn ("ip", "IP");
+ $this->lastcolumn->SetTitle ("IP address.");
+
+ $this->AddSimpleColumn ("c_host", "Host");
+ $this->lastcolumn->f = create_function ('$raw', 'return $raw;');
+ $this->lastcolumn->raw = 1;
+ $this->lastcolumn->SetTitle ("Host name. ??? if reverse lookup failed.");
+
+ $this->AddColumn ("whois", "Whois", "narrow");
+ $this->lastcolumn->SetTitle ("Start a whois query.");
+
+ $this->AddSimpleColumn ("c_rate", "Rate", "narrow right");
+ $this->lastcolumn->SetTitle ("Total hit rate / hour.");
+
+ $this->AddSimpleColumn ("hits", "Total", "narrow right");
+ $this->lastcolumn->SetTitle ("Total hits.");
+
+ $this->AddSimpleColumn ("rhits", "Res.", "narrow right");
+ $this->lastcolumn->SetTitle ("Hits in robot-restricted area. Should be zero.");
+
+ $this->AddSimpleColumn ("hhits", "Hp", "narrow right");
+ $this->lastcolumn->SetTitle ("Hits in honeypot. Should be zero.");
+
+ $this->AddSimpleColumn ("ua", "User-Agent");
+ $this->lastcolumn->SetTitle ("User Agent");
+
+ }
+ function startrow ($db) {
+ $blocked = $db->get ("blocked", SQLBOOL);
+ $style = $blocked ? " style=\"color: gray;\"" : "";
+ echo (" ");
+ }
+}
+
+class RobotBlockedTable extends ListTable {
+ function __construct () {
+ $this->AddColumn ("unblock", "Unblock", "narrow");
+ $this->lastcolumn->SetTitle ("Unblock this IP.");
+
+ $this->AddSimpleColumn ("ip", "IP");
+ $this->lastcolumn->SetTitle ("IP address.");
+
+ $this->AddSimpleColumn ("c_host", "Host");
+ $this->lastcolumn->f = create_function ('$raw', 'return $raw;');
+ $this->lastcolumn->raw = 1;
+ $this->lastcolumn->SetTitle ("Host name. ??? if reverse lookup failed.");
+
+ $this->AddColumn ("whois", "Whois", "narrow");
+ $this->lastcolumn->SetTitle ("Start a whois query.");
+
+ $this->AddSimpleColumn ("c_expires", "Expires");
+ $this->lastcolumn->SetTitle ("Block expires.");
+
+ }
+}
+
+$db = $config->db ();
+$r = new robots ();
+
+getstr ("block");
+getstr ("unblock");
+getstr ("delete");
+
+if ($block) {
+ $ip = long2ip (ip2long ($block));
+ $r->block ($ip);
+ $host = hr_host ($ip);
+ $msg = "Robot $host ($ip) blocked";
+ // redirect else we would block again on page refresh
+ header ("Location: robot-activity?msg=$msg");
+ return;
+}
+
+if ($unblock) {
+ $ip = long2ip (ip2long ($unblock));
+ $r->unblock ($ip);
+ $host = hr_host ($ip);
+ $msg = "Robot $host ($ip) unblocked";
+ header ("Location: robot-activity?msg=$msg");
+ return;
+}
+
+if ($delete) {
+ $ip = long2ip (ip2long ($delete));
+ $r->delete ($ip);
+ $host = hr_host ($ip);
+ $msg = "Robot $host ($ip) deleted";
+ header ("Location: robot-activity?msg=$msg");
+ return;
+}
+
+pageheader ($caption = "Robot Activity Monitor");
+
+getstr ("msg");
+getstr ("errormsg");
+
+if (!empty ($msg)) msg ($msg);
+if (!empty ($errormsg)) error_msg ($msg);
+
+p ("Time: " . date ("Y-m-d H:i:s"));
+
+$db->exec ("select robots.ips.*, robots.blocks.expires > timestamp 'now' as blocked from robots.ips
+left join robots.blocks on robots.ips.ip = robots.blocks.ip
+where
+ (robots.blocks.expires > timestamp 'now')
+ or ((hits > 1000) and (lastseen - firstseen) / hits < interval '2 seconds')
+ or ((rhits > 100) and (lastseen - firstseen) / (rhits + 1) < interval '20 seconds')
+ or (hhits > 10)
+order by not (robots.blocks.expires > timestamp 'now'), ((lastseen - firstseen) / hits) limit 100;
+");
+
+$db->calcfields ["c_host"] = new CalcFieldHost ();
+$db->calcfields ["c_dur"] = new CalcFieldDuration ();
+$db->calcfields ["c_last"] = new CalcFieldLastSeen ();
+$db->calcfields ["c_blocked"] = new CalcFieldBlocked ();
+$db->calcfields ["c_rate"] = new CalcFieldRate ();
+
+// $db->calcfields ["c_isdialup"] = new CalcFieldRBL ("dul.dnsbl.sorbs.net");
+// $db->calcfields ["c_spews"] = new CalcFieldRBL ("l2.spews.dnsbl.sorbs.net");
+
+$table = new RobotHitTable ();
+$table->PrintTable ($db, "Recently Active Robots");
+
+$db->exec ("select * from robots.blocks where expires > timestamp 'now' order by ip;");
+
+$db->calcfields ["c_host"] = new CalcFieldHost ();
+$db->calcfields ["c_expires"] = new CalcFieldExpires ();
+
+$table = new RobotBlockedTable ();
+$table->PrintTable ($db, "Blocked Robots");
+
+pagefooter ();
+
+?>
diff --git a/catalog/admin/robot-activity.php~ b/catalog/admin/robot-activity.php~
new file mode 100644
index 0000000..650f0e4
--- /dev/null
+++ b/catalog/admin/robot-activity.php~
@@ -0,0 +1,245 @@
+host ($ip);
+}
+
+class CalcFieldHost {
+ function f ($db) {
+ $ip = $db->get ("ip", SQLCHAR);
+ $host = hr_host ($ip);
+ $host = preg_replace ("/[^.]+\.[^.]+$/", "\xE2\x80\x8B\\0", $host);
+ return $host;
+ }
+}
+
+class CalcFieldDuration {
+ function f ($db) {
+ return hr_time_diff ($db->get ("firstseen", SQLDATE), $db->get ("lastseen", SQLDATE));
+ }
+}
+
+class CalcFieldRate {
+ function f ($db) {
+ return round (3600 * $db->get ("hits", SQLINT) / ($db->get ("lastseen", SQLDATE) - $db->get ("firstseen", SQLDATE)));
+ }
+}
+
+class CalcFieldLastSeen {
+ function f ($db) {
+ return hr_ago ($db->get ("lastseen", SQLDATE));
+ }
+}
+
+class CalcFieldBlocked {
+ function f ($db) {
+ $ip = htmlspecialchars ($db->get ("ip", SQLCHAR));
+ $b = "block";
+ return $db->get ("blocked", SQLBOOL) ? "blocked" : $b;
+ }
+}
+
+class CalcFieldExpires {
+ function f ($db) {
+ return hr_in ($db->get ("expires", SQLDATE));
+ }
+}
+
+class CalcFieldRBL {
+ function __construct ($list) {
+ $this->list = $list;
+ }
+ function f ($db) {
+ $ip = fixnetwork ($db->get ("ip", SQLCHAR));
+ $reverse_ip = join (".", array_reverse (explode (".", $ip)));
+ $host = gethostbyname ("$reverse_ip.$this->list");
+ // return $host; // debug
+ return strncmp ($host, "127.", 4) ? "" : "Yes";
+ }
+}
+
+class RobotHitTable extends ListTable {
+ function __construct () {
+ $this->AddSimpleColumn ("c_blocked", "Block", "narrow");
+ $this->lastcolumn->raw = 1;
+ $this->lastcolumn->SetTitle ("Block this IP.");
+
+ $this->AddColumn ("delete", "Delete", "narrow");
+ $this->lastcolumn->SetTitle ("Delete this robot from watch list.");
+
+ $this->AddSimpleColumn ("c_last", "Seen");
+ $this->lastcolumn->SetTitle ("Last access.");
+
+ $this->AddSimpleColumn ("c_dur", "For");
+ $this->lastcolumn->SetTitle ("Total duration of access.");
+
+ $this->AddSimpleColumn ("ip", "IP");
+ $this->lastcolumn->SetTitle ("IP address.");
+
+ $this->AddSimpleColumn ("c_host", "Host");
+ $this->lastcolumn->f = create_function ('$raw', 'return $raw;');
+ $this->lastcolumn->raw = 1;
+ $this->lastcolumn->SetTitle ("Host name. ??? if reverse lookup failed.");
+
+ $this->AddColumn ("whois", "Whois", "narrow");
+ $this->lastcolumn->SetTitle ("Start a whois query.");
+
+ $this->AddSimpleColumn ("c_rate", "Rate", "narrow right");
+ $this->lastcolumn->SetTitle ("Total hit rate / hour.");
+
+ $this->AddSimpleColumn ("hits", "Total", "narrow right");
+ $this->lastcolumn->SetTitle ("Total hits.");
+
+ $this->AddSimpleColumn ("rhits", "Res.", "narrow right");
+ $this->lastcolumn->SetTitle ("Hits in robot-restricted area. Should be zero.");
+
+ $this->AddSimpleColumn ("hhits", "Hp", "narrow right");
+ $this->lastcolumn->SetTitle ("Hits in honeypot. Should be zero.");
+
+ $this->AddSimpleColumn ("ua", "User-Agent");
+ $this->lastcolumn->SetTitle ("User Agent");
+
+ }
+ function startrow ($db) {
+ $blocked = $db->get ("blocked", SQLBOOL);
+ $style = $blocked ? " style=\"color: gray;\"" : "";
+ echo (" ");
+ }
+}
+
+class RobotBlockedTable extends ListTable {
+ function __construct () {
+ $this->AddColumn ("unblock", "Unblock", "narrow");
+ $this->lastcolumn->SetTitle ("Unblock this IP.");
+
+ $this->AddSimpleColumn ("ip", "IP");
+ $this->lastcolumn->SetTitle ("IP address.");
+
+ $this->AddSimpleColumn ("c_host", "Host");
+ $this->lastcolumn->f = create_function ('$raw', 'return $raw;');
+ $this->lastcolumn->raw = 1;
+ $this->lastcolumn->SetTitle ("Host name. ??? if reverse lookup failed.");
+
+ $this->AddColumn ("whois", "Whois", "narrow");
+ $this->lastcolumn->SetTitle ("Start a whois query.");
+
+ $this->AddSimpleColumn ("c_expires", "Expires");
+ $this->lastcolumn->SetTitle ("Block expires.");
+
+ }
+}
+
+$db = $config->db ();
+$r = new robots ();
+
+getstr ("block");
+getstr ("unblock");
+getstr ("delete");
+
+if ($block) {
+ $ip = long2ip (ip2long ($block));
+ $r->block ($ip);
+ $host = hr_host ($ip);
+ $msg = "Robot $host ($ip) blocked";
+ // redirect else we would block again on page refresh
+ header ("Location: robot-activity?msg=$msg");
+ return;
+}
+
+if ($unblock) {
+ $ip = long2ip (ip2long ($unblock));
+ $r->unblock ($ip);
+ $host = hr_host ($ip);
+ $msg = "Robot $host ($ip) unblocked";
+ header ("Location: robot-activity?msg=$msg");
+ return;
+}
+
+if ($delete) {
+ $ip = long2ip (ip2long ($delete));
+ $r->delete ($ip);
+ $host = hr_host ($ip);
+ $msg = "Robot $host ($ip) deleted";
+ header ("Location: robot-activity?msg=$msg");
+ return;
+}
+
+pageheader ($caption = "Robot Activity Monitor");
+
+getstr ("msg");
+getstr ("errormsg");
+
+if (!empty ($msg)) msg ($msg);
+if (!empty ($errormsg)) error_msg ($msg);
+
+p ("Time: " . date ("Y-m-d H:i:s"));
+
+$db->exec ("select robots.ips.*, robots.blocks.expires > timestamp 'now' as blocked from robots.ips
+left join robots.blocks on robots.ips.ip = robots.blocks.ip
+where
+ (robots.blocks.expires > timestamp 'now')
+ or ((hits > 1000) and (lastseen - firstseen) / hits < interval '2 seconds')
+ or ((rhits > 100) and (lastseen - firstseen) / (rhits + 1) < interval '20 seconds')
+ or (hhits > 10)
+order by not (robots.blocks.expires > timestamp 'now'), ((lastseen - firstseen) / hits) limit 100;
+");
+
+$db->calcfields ["c_host"] = new CalcFieldHost ();
+$db->calcfields ["c_dur"] = new CalcFieldDuration ();
+$db->calcfields ["c_last"] = new CalcFieldLastSeen ();
+$db->calcfields ["c_blocked"] = new CalcFieldBlocked ();
+$db->calcfields ["c_rate"] = new CalcFieldRate ();
+
+// $db->calcfields ["c_isdialup"] = new CalcFieldRBL ("dul.dnsbl.sorbs.net");
+// $db->calcfields ["c_spews"] = new CalcFieldRBL ("l2.spews.dnsbl.sorbs.net");
+
+$table = new RobotHitTable ();
+$table->PrintTable ($db, "Recently Active Robots");
+
+$db->exec ("select * from robots.blocks where expires > timestamp 'now' order by ip;");
+
+$db->calcfields ["c_host"] = new CalcFieldHost ();
+$db->calcfields ["c_expires"] = new CalcFieldExpires ();
+
+$table = new RobotBlockedTable ();
+$table->PrintTable ($db, "Blocked Robots");
+
+pagefooter ();
+
+?>
diff --git a/catalog/admin/robot-block.php b/catalog/admin/robot-block.php
new file mode 100644
index 0000000..5c41fb1
--- /dev/null
+++ b/catalog/admin/robot-block.php
@@ -0,0 +1,147 @@
+documentroot/.htaccess";
+
+function fixnetwork ($ip) {
+ if (($pos = strpos ($ip, "/")) !== false) {
+ $ip = substr ($ip, 0, $pos);
+ $ip = long2ip (ip2long ($ip) + 1);
+ }
+ return $ip;
+}
+
+function hr_time_diff ($t1, $t2) {
+ $diff = $t2 - $t1;
+ if ($diff < 60)
+ return "";
+ if ($diff < 3600)
+ return round ($diff / 60) . " m";
+ if ($diff < 36000)
+ return round ($diff / 3600, 1) . " h";
+ return round ($diff / 3600, 0) . " h";
+}
+
+function hr_ago ($t1) {
+ $d = hr_time_diff ($t1, time ());
+ return $d ? "$d ago" : "now";
+}
+
+class CalcFieldHost {
+ function f ($db) {
+ $ip = $db->get ("ip", SQLCHAR);
+ $host = @gethostbyaddr ($ip);
+ if ($host == $ip)
+ return "";
+
+ $ipcheck = @gethostbyname ($host);
+ $host = preg_replace ("/[^.]+\.[^.]+$/", '\0', $host);
+ if ($ip != $ipcheck)
+ $host = "??? $host ???";
+
+ return $host;
+ }
+}
+
+class CalcFieldDuration {
+ function f ($db) {
+ return hr_time_diff ($db->get ("firstseen", SQLDATE), $db->get ("lastseen", SQLDATE));
+ }
+}
+
+class CalcFieldLastSeen {
+ function f ($db) {
+ return hr_ago ($db->get ("lastseen", SQLDATE));
+ }
+}
+
+class CalcFieldBlocked {
+ function f ($db) {
+ global $blocked;
+ return in_array ($db->get ("ip", SQLCHAR), $blocked[1]) ? "B" : "";
+ }
+}
+
+class CalcFieldRBL {
+ function __construct ($list) {
+ $this->list = $list;
+ }
+ function f ($db) {
+ $ip = fixnetwork ($db->get ("ip", SQLCHAR));
+ $reverse_ip = join (".", array_reverse (explode (".", $ip)));
+ $host = gethostbyname ("$reverse_ip.$this->list");
+ // return $host; // debug
+ return strncmp ($host, "127.", 4) ? "" : "Yes";
+ }
+}
+
+class RobotHitTable extends ListTable {
+ function __construct () {
+ $this->AddSimpleColumn ("c_last", "Seen");
+ $this->lastcolumn->SetTitle ("Last access.");
+
+ $this->AddSimpleColumn ("c_dur", "For");
+ $this->lastcolumn->SetTitle ("Total duration of access.");
+
+ $this->AddSimpleColumn ("ip", "IP");
+ $this->lastcolumn->SetTitle ("IP address.");
+
+ $this->AddSimpleColumn ("c_blocked", "B", "narrow");
+ $this->lastcolumn->SetTitle ("'B' if blocked.");
+
+ $this->AddSimpleColumn ("c_host", "Host");
+ $this->lastcolumn->f = create_function ('$raw', 'return $raw;');
+ $this->lastcolumn->raw = 1;
+ $this->lastcolumn->SetTitle ("Host name. ??? if reverse lookup failed.");
+
+ $this->AddColumn ("whois", "Whois", "narrow");
+ $this->lastcolumn->SetTitle ("Start a whois query.");
+
+ $this->AddSimpleColumn ("hits", "Total", "narrow right");
+ $this->lastcolumn->SetTitle ("Total hits.");
+
+ $this->AddSimpleColumn ("rhits", "Restricted", "narrow right");
+ $this->lastcolumn->SetTitle ("Hits in robot-restricted area. Should be zero.");
+
+ $this->AddSimpleColumn ("hhits", "Honeypot", "narrow right");
+ $this->lastcolumn->SetTitle ("Hits in honeypot. Should be zero.");
+ }
+}
+
+$db = $config->db ();
+
+pageheader ($caption = "Robot Activity Monitor");
+
+$htaccess = file_get_contents ($htaccess);
+preg_match_all ("/^Deny\s+From\s+([\d.]+)$/im", $htaccess, $blocked, PREG_PATTERN_ORDER);
+
+/*
+foreach ($blocked[1] as $ip) {
+ p ($ip);
+}
+*/
+
+p ("Time: " . date ("Y-m-d H:i:s"));
+
+$db->exec ("select * from robots.ips
+order by hits + hhits * 100 desc limit 20;
+");
+
+$db->calcfields ["c_host"] = new CalcFieldHost ();
+$db->calcfields ["c_dur"] = new CalcFieldDuration ();
+$db->calcfields ["c_last"] = new CalcFieldLastSeen ();
+$db->calcfields ["c_blocked"] = new CalcFieldBlocked ();
+
+// $db->calcfields ["c_isdialup"] = new CalcFieldRBL ("dul.dnsbl.sorbs.net");
+// $db->calcfields ["c_spews"] = new CalcFieldRBL ("l2.spews.dnsbl.sorbs.net");
+
+$table = new RobotHitTable ();
+$table->PrintTable ($db, "Recently Active Robots");
+
+pagefooter ();
+
+?>
diff --git a/catalog/admin/robot-block.php~ b/catalog/admin/robot-block.php~
new file mode 100644
index 0000000..5ab73cc
--- /dev/null
+++ b/catalog/admin/robot-block.php~
@@ -0,0 +1,146 @@
+documentroot/.htaccess";
+
+function fixnetwork ($ip) {
+ if (($pos = strpos ($ip, "/")) !== false) {
+ $ip = substr ($ip, 0, $pos);
+ $ip = long2ip (ip2long ($ip) + 1);
+ }
+ return $ip;
+}
+
+function hr_time_diff ($t1, $t2) {
+ $diff = $t2 - $t1;
+ if ($diff < 60)
+ return "";
+ if ($diff < 3600)
+ return round ($diff / 60) . " m";
+ if ($diff < 36000)
+ return round ($diff / 3600, 1) . " h";
+ return round ($diff / 3600, 0) . " h";
+}
+
+function hr_ago ($t1) {
+ $d = hr_time_diff ($t1, time ());
+ return $d ? "$d ago" : "now";
+}
+
+class CalcFieldHost {
+ function f ($db) {
+ $ip = $db->get ("ip", SQLCHAR);
+ $host = @gethostbyaddr ($ip);
+ if ($host == $ip)
+ return "";
+
+ $ipcheck = @gethostbyname ($host);
+ $host = preg_replace ("/[^.]+\.[^.]+$/", '\0', $host);
+ if ($ip != $ipcheck)
+ $host = "??? $host ???";
+
+ return $host;
+ }
+}
+
+class CalcFieldDuration {
+ function f ($db) {
+ return hr_time_diff ($db->get ("firstseen", SQLDATE), $db->get ("lastseen", SQLDATE));
+ }
+}
+
+class CalcFieldLastSeen {
+ function f ($db) {
+ return hr_ago ($db->get ("lastseen", SQLDATE));
+ }
+}
+
+class CalcFieldBlocked {
+ function f ($db) {
+ global $blocked;
+ return in_array ($db->get ("ip", SQLCHAR), $blocked[1]) ? "B" : "";
+ }
+}
+
+class CalcFieldRBL {
+ function __construct ($list) {
+ $this->list = $list;
+ }
+ function f ($db) {
+ $ip = fixnetwork ($db->get ("ip", SQLCHAR));
+ $reverse_ip = join (".", array_reverse (explode (".", $ip)));
+ $host = gethostbyname ("$reverse_ip.$this->list");
+ // return $host; // debug
+ return strncmp ($host, "127.", 4) ? "" : "Yes";
+ }
+}
+
+class RobotHitTable extends ListTable {
+ function __construct () {
+ $this->AddSimpleColumn ("c_last", "Seen");
+ $this->lastcolumn->SetTitle ("Last access.");
+
+ $this->AddSimpleColumn ("c_dur", "For");
+ $this->lastcolumn->SetTitle ("Total duration of access.");
+
+ $this->AddSimpleColumn ("ip", "IP");
+ $this->lastcolumn->SetTitle ("IP address.");
+
+ $this->AddSimpleColumn ("c_blocked", "B", "narrow");
+ $this->lastcolumn->SetTitle ("'B' if blocked.");
+
+ $this->AddSimpleColumn ("c_host", "Host");
+ $this->lastcolumn->f = create_function ('$raw', 'return $raw;');
+ $this->lastcolumn->raw = 1;
+ $this->lastcolumn->SetTitle ("Host name. ??? if reverse lookup failed.");
+
+ $this->AddColumn ("whois", "Whois", "narrow");
+ $this->lastcolumn->SetTitle ("Start a whois query.");
+
+ $this->AddSimpleColumn ("hits", "Total", "narrow right");
+ $this->lastcolumn->SetTitle ("Total hits.");
+
+ $this->AddSimpleColumn ("rhits", "Restricted", "narrow right");
+ $this->lastcolumn->SetTitle ("Hits in robot-restricted area. Should be zero.");
+
+ $this->AddSimpleColumn ("hhits", "Honeypot", "narrow right");
+ $this->lastcolumn->SetTitle ("Hits in honeypot. Should be zero.");
+ }
+}
+
+$db = $config->db ();
+
+pageheader ($caption = "Robot Activity Monitor");
+
+$htaccess = file_get_contents ($htaccess);
+preg_match_all ("/^Deny\s+From\s+([\d.]+)$/im", $htaccess, $blocked, PREG_PATTERN_ORDER);
+
+/*
+foreach ($blocked[1] as $ip) {
+ p ($ip);
+}
+*/
+
+p ("Time: " . date ("Y-m-d H:i:s"));
+
+$db->exec ("select * from robots.ips
+order by hits + hhits * 100 desc limit 20;
+");
+
+$db->calcfields ["c_host"] = new CalcFieldHost ();
+$db->calcfields ["c_dur"] = new CalcFieldDuration ();
+$db->calcfields ["c_last"] = new CalcFieldLastSeen ();
+$db->calcfields ["c_blocked"] = new CalcFieldBlocked ();
+
+// $db->calcfields ["c_isdialup"] = new CalcFieldRBL ("dul.dnsbl.sorbs.net");
+// $db->calcfields ["c_spews"] = new CalcFieldRBL ("l2.spews.dnsbl.sorbs.net");
+
+$table = new RobotHitTable ();
+$table->PrintTable ($db, "Recently Active Robots");
+
+pagefooter ();
+
+?>
diff --git a/catalog/admin/robot-terminator.php b/catalog/admin/robot-terminator.php
new file mode 100644
index 0000000..c18c40d
--- /dev/null
+++ b/catalog/admin/robot-terminator.php
@@ -0,0 +1,88 @@
+db ();
+$db->exec ("update robots.blocks set expires = null where expires <= timestamp 'now'");
+$db->exec ("delete from robots.ips where lastseen < (timestamp 'now' - interval '1 days');");
+$db->exec ("vacuum robots.ips;");
+
+$db2 = $config->db ();
+
+$db2->exec ("select robots.ips.*, robots.blocks.expires > timestamp 'now' as blocked from robots.ips
+left join robots.blocks on robots.ips.ip = robots.blocks.ip
+
+where
+ (robots.blocks.expires is null)
+ and
+ (
+ (hhits > 10)
+ or
+ (
+ (rhits > 150)
+ and
+ (((lastseen - firstseen) / (rhits + 1)) < interval '10 seconds')
+ )
+ )
+");
+
+
+if ($db2->FirstRow ()) {
+ $r = new robots ();
+ do {
+ $ip = $db2->get ("ip", SQLCHAR);
+ $r->block ($ip);
+ $host = $r->host ($ip);
+
+ $to = $config->email_webmaster;
+ $subject = 'Blocked IP address';
+ $message = "Robot $host ($ip) blocked.";
+ $headers = "From: robot-terminator@gutenberg.org\r\n" .
+ "Reply-To: $config->email_webmaster\r\n";
+
+ // echo "$message\n";
+
+ if (!mail ($to, $subject, $message, $headers)) {
+ echo ("could not send email\n");
+ }
+
+ } while ($db2->NextRow ());
+}
+
+
+//////////////////////////////////////////////////////////////////////////////
+
+$s = "# this file is auto-generated by robot-terminator.php. do not edit.\n\n";
+$s .= "# permanent bans\n\n";
+
+$s .= `grep -i '^Deny From [0-9]' $config->documentroot/.htaccess`;
+
+$s .= "\n# temporary bans\n\n";
+
+$db->exec ("select * from robots.blocks where expires > timestamp 'now' order by ip");
+if ($db->FirstRow ()) {
+ do {
+ $ip = $db->get ("ip", SQLCHAR);
+ $s .= "Deny From $ip\n";
+ } while ($db->NextRow ());
+}
+
+$s .= "\n# end of file\n";
+
+// echo ($s);
+
+$file = "$config->documentroot/catalog/.htaccess";
+
+$fp = fopen ($file, "w");
+if ($fp) {
+ fwrite ($fp, $s);
+ fclose ($fp);
+} else {
+ echo ("Cannot write to $file\n");
+}
+
+?>
diff --git a/catalog/admin/robot-terminator.php~ b/catalog/admin/robot-terminator.php~
new file mode 100644
index 0000000..d5769fc
--- /dev/null
+++ b/catalog/admin/robot-terminator.php~
@@ -0,0 +1,87 @@
+db ();
+$db->exec ("update robots.blocks set expires = null where expires <= timestamp 'now'");
+$db->exec ("delete from robots.ips where lastseen < (timestamp 'now' - interval '1 days');");
+$db->exec ("vacuum robots.ips;");
+
+$db2 = $config->db ();
+
+$db2->exec ("select robots.ips.*, robots.blocks.expires > timestamp 'now' as blocked from robots.ips
+left join robots.blocks on robots.ips.ip = robots.blocks.ip
+
+where
+ (robots.blocks.expires is null)
+ and
+ (
+ (hhits > 10)
+ or
+ (
+ (rhits > 150)
+ and
+ (((lastseen - firstseen) / (rhits + 1)) < interval '10 seconds')
+ )
+ )
+");
+
+
+if ($db2->FirstRow ()) {
+ $r = new robots ();
+ do {
+ $ip = $db2->get ("ip", SQLCHAR);
+ $r->block ($ip);
+ $host = $r->host ($ip);
+
+ $to = $config->email_webmaster;
+ $subject = 'Blocked IP address';
+ $message = "Robot $host ($ip) blocked.";
+ $headers = "From: robot-terminator@gutenberg.org\r\n" .
+ "Reply-To: $config->email_webmaster\r\n";
+
+ // echo "$message\n";
+
+ if (!mail ($to, $subject, $message, $headers)) {
+ echo ("could not send email\n");
+ }
+
+ } while ($db2->NextRow ());
+}
+
+
+//////////////////////////////////////////////////////////////////////////////
+
+$s = "# this file is auto-generated by robot-terminator.php. do not edit.\n\n";
+$s .= "# permanent bans\n\n";
+
+$s .= `grep -i '^Deny From [0-9]' $config->documentroot/.htaccess`;
+
+$s .= "\n# temporary bans\n\n";
+
+$db->exec ("select * from robots.blocks where expires > timestamp 'now' order by ip");
+if ($db->FirstRow ()) {
+ do {
+ $ip = $db->get ("ip", SQLCHAR);
+ $s .= "Deny From $ip\n";
+ } while ($db->NextRow ());
+}
+
+$s .= "\n# end of file\n";
+
+// echo ($s);
+
+$file = "$config->documentroot/catalog/.htaccess";
+
+$fp = fopen ($file, "w");
+if ($fp) {
+ fwrite ($fp, $s);
+ fclose ($fp);
+} else {
+ echo ("Cannot write to $file\n");
+}
+
+?>
\ No newline at end of file
diff --git a/catalog/admin/stats.php b/catalog/admin/stats.php
new file mode 100644
index 0000000..e05a53b
--- /dev/null
+++ b/catalog/admin/stats.php
@@ -0,0 +1,173 @@
+db ();
+$db->logger = new logger ();
+
+class AuthorsTable extends ListTable {
+ function __construct () {
+ $this->AddColumn("" .
+ "#author#", "Author");
+ }
+}
+
+pageheader("Various Statistics");
+
+echo("
Author Stats
\n");
+
+echo("
Note that there is still considerable error in the database of " .
+ "authors, due to incorrect spliting and merging of authors with " .
+ "similar or varying names.
\n");
+
+echo("
");
+$db->Exec("select count(*) from authors");
+echo("
Total Authors: " . $db->Get("count") . "
\n") ;
+$db->Exec("select count(*) from authors where born_floor is null and " .
+ "born_ceil is null and died_floor is null and died_ceil is null");
+echo("
Authors with no birth or death dates: " . $db->Get("count") .
+ "
\n") ;
+$db->Exec("select count(*) from authors where born_floor is not null " .
+ "and born_ceil is null and died_floor is null " .
+ "and died_ceil is null;");
+echo("
Authors with only a earliest birth year: " . $db->Get("count") .
+ "
\n") ;
+$db->Exec("select count(*) from authors where born_floor is null " .
+ "and born_ceil is null and died_floor is not null " .
+ "and died_ceil is null;");
+echo("
Authors with only a earliest death year: " . $db->Get("count") .
+ "
\n") ;
+echo ("
");
+
+$table = new AuthorsTable ();
+$db->Exec("select pk, author from authors where born_floor is null " .
+ "and died_floor is null and (born_ceil is not null or " .
+ "died_ceil is not null) order by author");
+$table->PrintTable($db, "Authors with only latest birth or death dates");
+
+echo("
");
+$db->Exec("select count(note) from authors;");
+echo("
# of Author entries with internal notes: " . $db->Get("count") . "
\n") ;
+echo ("
");
+
+$table = new AuthorsTable ();
+$db->Exec("select pk, author from authors " .
+ "order by char_length(author) desc limit 20");
+$table->PrintTable($db, "20 longest Authors names");
+
+$table = new AuthorsTable ();
+$db->Exec("select pk, author from authors " .
+ "order by char_length(author) limit 20");
+$table->PrintTable($db, "20 shortest Authors names");
+
+class AuthorsBirthDeathTable extends ListTable {
+ function __construct () {
+ $this->AddColumn("" .
+ "#author#", "Author");
+ $this->AddSimpleColumn("born_floor", "Birth");
+ $this->AddSimpleColumn("died_floor", "Death");
+ }
+}
+
+p("As a way to see what authors we have whose works are more likely to be " .
+ "in copyright, this is a list of all the authors born after the " .
+ "critical year of 1923.");
+$table = new AuthorsBirthDeathTable ();
+$db->Exec("select pk, author, born_floor, died_floor " .
+ "from authors where born_floor>1923 order by born_floor");
+$table->PrintTable($db, "Authors born after 1923");
+
+$table = new AuthorsBirthDeathTable ();
+$db->Exec("select pk, author, born_floor, died_floor from authors " .
+ "where died_floor-born_floor>100 order by author");
+$table->PrintTable($db, "Authors who lived more than 100 years");
+
+$table = new AuthorsBirthDeathTable ();
+$db->Exec("select pk, author, born_floor, died_floor from authors " .
+ "where died_floor-born_floor<20 order by author");
+$table->PrintTable($db, "Authors who lived less than 20 years");
+
+$table = new AuthorsBirthDeathTable ();
+$db->Exec("select pk, author, born_floor, died_floor from authors " .
+ "where died_floorPrintTable($db, "Authors born before they died");
+
+echo("
Author URLs
\n"); /* Author URLs section */
+
+echo("
");
+$db->Exec("select count(authors.pk) as count from authors " .
+ "left join author_urls on authors.pk=author_urls.fk_authors " .
+ "where fk_authors is null");
+echo("
Author entries with no URLs attached: " . $db->Get("count") .
+ "
\n") ;
+$db->Exec("select count(*) as count from (select fk_authors " .
+ "from author_urls group by fk_authors having " .
+ "count(fk_authors)=1) as foo");
+echo("
Author entries with a single URL: " . $db->Get("count") .
+ "
\n");
+$db->Exec("select count(*) as count from (select fk_authors " .
+ "from author_urls group by fk_authors having " .
+ "count(fk_authors)=2) as foo");
+echo("
Author entries with two URLs: " . $db->Get("count") .
+ "
\n");
+echo ("
");
+
+class AuthorsWithMoreThan2URLsTable extends ListTable {
+ function __construct () {
+ $this->AddColumn("" .
+ "#author#", "Author");
+ $this->AddSimpleColumn("count", "# of URLs");
+ }
+}
+$table = new AuthorsWithMoreThan2URLsTable ();
+$db->Exec("select fk_authors as pk, author, count(fk_authors) as count " .
+ "from author_urls join authors on fk_authors=authors.pk " .
+ "group by fk_authors, author having count(fk_authors)>2 " .
+ "order by count(fk_authors), author");
+$table->PrintTable($db, "Authors with more than 2 URLs attached");
+
+echo("
");
+$db->Exec("select count(*) from author_urls");
+echo("
Total # of URLs: " . $db->Get("count") . "
\n") ;
+$db->Exec("select count(*) from " .
+ "(select distinct description from author_urls) as foo");
+echo("
# of different URL descriptions: " . $db->Get("count") . "
\n") ;
+echo ("
");
+class URLDescriptionsTable extends ListTable {
+ function __construct () {
+ $this->AddSimpleColumn("description", "URL Description");
+ $this->AddSimpleColumn("count", "# of Uses");
+ }
+}
+$table = new URLDescriptionsTable ();
+$db->Exec("select description, count(description) from author_urls group by description having count(description)>1 order by count(description) desc");
+$table->PrintTable($db, "URL descriptions used multiple times");
+
+class RepeatedURLsTable extends ListTable {
+ function __construct () {
+ $this->AddColumn("" .
+ "#author#", "Author");
+ $this->AddSimpleColumn("url", "URL");
+ }
+}
+$table = new RepeatedURLsTable ();
+$db->Exec("select fk_authors, author, url from author_urls " .
+ "join authors on fk_authors=authors.pk " .
+ "where url in (select url from author_urls " .
+ "group by url having count(url)>1) order by url;");
+$table->PrintTable($db, "URLs used multiple times");
+
+pagefooter();
+
+/*
+echo("
Note that there is still considerable error in the database of " .
+ "authors, due to incorrect spliting and merging of authors with " .
+ "similar or varying names.
\n");
+
+echo("
");
+$db->Exec("select count(*) from authors");
+echo("
Total Authors: " . $db->Get("count") . "
\n") ;
+$db->Exec("select count(*) from authors where born_floor is null and " .
+ "born_ceil is null and died_floor is null and died_ceil is null");
+echo("
Authors with no birth or death dates: " . $db->Get("count") .
+ "
\n") ;
+$db->Exec("select count(*) from authors where born_floor is not null " .
+ "and born_ceil is null and died_floor is null " .
+ "and died_ceil is null;");
+echo("
Authors with only a earliest birth year: " . $db->Get("count") .
+ "
\n") ;
+$db->Exec("select count(*) from authors where born_floor is null " .
+ "and born_ceil is null and died_floor is not null " .
+ "and died_ceil is null;");
+echo("
Authors with only a earliest death year: " . $db->Get("count") .
+ "
\n") ;
+echo ("
");
+
+$table = new AuthorsTable ();
+$db->Exec("select pk, author from authors where born_floor is null " .
+ "and died_floor is null and (born_ceil is not null or " .
+ "died_ceil is not null) order by author");
+$table->PrintTable($db, "Authors with only latest birth or death dates");
+
+echo("
");
+$db->Exec("select count(note) from authors;");
+echo("
# of Author entries with internal notes: " . $db->Get("count") . "
\n") ;
+echo ("
");
+
+$table = new AuthorsTable ();
+$db->Exec("select pk, author from authors " .
+ "order by char_length(author) desc limit 20");
+$table->PrintTable($db, "20 longest Authors names");
+
+$table = new AuthorsTable ();
+$db->Exec("select pk, author from authors " .
+ "order by char_length(author) limit 20");
+$table->PrintTable($db, "20 shortest Authors names");
+
+class AuthorsBirthDeathTable extends ListTable {
+ function __construct () {
+ $this->AddColumn("" .
+ "#author#", "Author");
+ $this->AddSimpleColumn("born_floor", "Birth");
+ $this->AddSimpleColumn("died_floor", "Death");
+ }
+}
+
+p("As a way to see what authors we have whose works are more likely to be " .
+ "in copyright, this is a list of all the authors born after the " .
+ "critical year of 1923.");
+$table = new AuthorsBirthDeathTable ();
+$db->Exec("select pk, author, born_floor, died_floor " .
+ "from authors where born_floor>1923 order by born_floor");
+$table->PrintTable($db, "Authors born after 1923");
+
+$table = new AuthorsBirthDeathTable ();
+$db->Exec("select pk, author, born_floor, died_floor from authors " .
+ "where died_floor-born_floor>100 order by author");
+$table->PrintTable($db, "Authors who lived more than 100 years");
+
+$table = new AuthorsBirthDeathTable ();
+$db->Exec("select pk, author, born_floor, died_floor from authors " .
+ "where died_floor-born_floor<20 order by author");
+$table->PrintTable($db, "Authors who lived less than 20 years");
+
+$table = new AuthorsBirthDeathTable ();
+$db->Exec("select pk, author, born_floor, died_floor from authors " .
+ "where died_floorPrintTable($db, "Authors born before they died");
+
+echo("
Author URLs
\n"); /* Author URLs section */
+
+echo("
");
+$db->Exec("select count(authors.pk) as count from authors " .
+ "left join author_urls on authors.pk=author_urls.fk_authors " .
+ "where fk_authors is null");
+echo("
Author entries with no URLs attached: " . $db->Get("count") .
+ "
\n") ;
+$db->Exec("select count(*) as count from (select fk_authors " .
+ "from author_urls group by fk_authors having " .
+ "count(fk_authors)=1) as foo");
+echo("
Author entries with a single URL: " . $db->Get("count") .
+ "
\n");
+$db->Exec("select count(*) as count from (select fk_authors " .
+ "from author_urls group by fk_authors having " .
+ "count(fk_authors)=2) as foo");
+echo("
Author entries with two URLs: " . $db->Get("count") .
+ "
\n");
+echo ("
");
+
+class AuthorsWithMoreThan2URLsTable extends ListTable {
+ function __construct () {
+ $this->AddColumn("" .
+ "#author#", "Author");
+ $this->AddSimpleColumn("count", "# of URLs");
+ }
+}
+$table = new AuthorsWithMoreThan2URLsTable ();
+$db->Exec("select fk_authors as pk, author, count(fk_authors) as count " .
+ "from author_urls join authors on fk_authors=authors.pk " .
+ "group by fk_authors, author having count(fk_authors)>2 " .
+ "order by count(fk_authors), author");
+$table->PrintTable($db, "Authors with more than 2 URLs attached");
+
+echo("
");
+$db->Exec("select count(*) from author_urls");
+echo("
Total # of URLs: " . $db->Get("count") . "
\n") ;
+$db->Exec("select count(*) from " .
+ "(select distinct description from author_urls) as foo");
+echo("
# of different URL descriptions: " . $db->Get("count") . "
\n") ;
+echo ("
");
+class URLDescriptionsTable extends ListTable {
+ function __construct () {
+ $this->AddSimpleColumn("description", "URL Description");
+ $this->AddSimpleColumn("count", "# of Uses");
+ }
+}
+$table = new URLDescriptionsTable ();
+$db->Exec("select description, count(description) from author_urls group by description having count(description)>1 order by count(description) desc");
+$table->PrintTable($db, "URL descriptions used multiple times");
+
+class RepeatedURLsTable extends ListTable {
+ function __construct () {
+ $this->AddColumn("" .
+ "#author#", "Author");
+ $this->AddSimpleColumn("url", "URL");
+ }
+}
+$table = new RepeatedURLsTable ();
+$db->Exec("select fk_authors, author, url from author_urls " .
+ "join authors on fk_authors=authors.pk " .
+ "where url in (select url from author_urls " .
+ "group by url having count(url)>1) order by url;");
+$table->PrintTable($db, "URLs used multiple times");
+
+pagefooter();
+
+/*
+echo("
");
+$db->Exec("");
+echo("
: " . $db->Get("") . "
\n") ;
+echo ("
");
+$table = new AuthorsTable ();
+$db->Exec("");
+$table->PrintTable($db, "Authors ");
+*/
diff --git a/catalog/admin/subj_locc_by_etext.php b/catalog/admin/subj_locc_by_etext.php
new file mode 100644
index 0000000..00df345
--- /dev/null
+++ b/catalog/admin/subj_locc_by_etext.php
@@ -0,0 +1,68 @@
+db ();
+$db->logger = new logger ();
+if ($within_the_last) {
+ pageheader("List of Books released within the last $within_the_last days lacking a Subject and/or a LoCC");
+ } else {
+ pageheader("List of Books lacking a Subject and/or a LoCC");
+ }
+class SubjLoccByEtextTable extends MoreTable {
+ function __construct () {
+ $this->AddColumn ("#pk#",
+ "Etext Nr. (edit link)", "right");
+ $this->AddSimpleColumn ("author", "Author");
+ $this->AddColumn ("#title#",
+ "Title (bibrec link)");
+ $this->AddColumn ("" .
+ " ",
+ "No Subj", "narrow");
+ $this->AddColumn ("" .
+ " ",
+ "No LoCC", "narrow");
+ $this->limit = 30;
+ $this->relay = array ();
+ }
+}
+$table = new SubjLoccByEtextTable ();
+$sql="select distinct on (fk_books) fk_books as pk, text as title, author, " .
+ "(case when fk_subjects is null then 'black' end) as nosubj, " .
+ "(case when fk_loccs is null then 'black' end) as nolocc " .
+ "from attributes left join mn_books_subjects using (fk_books) " .
+ "left join mn_books_loccs using (fk_books) " .
+ "join mn_books_authors using (fk_books) " .
+ "join authors on authors.pk=fk_authors ";
+
+if ($within_the_last) {
+ $sql=$sql . "join books on books.pk=fk_books ";
+}
+
+// gbn: the fk_roles skips records that don't have an Author or Creator:
+ $sql=$sql . "where fk_attriblist=245 and "; // .
+// "fk_roles in ('aut', 'cre') and heading=1 and ";
+
+if ($within_the_last) {
+ $sql=$sql . "books.release_date >= current_date - interval '$within_the_last days' and ";
+}
+
+$sql=$sql . "((fk_subjects is null) or (fk_loccs is null)) " .
+ "order by fk_books, text, author" .
+ $table->MkOffset ();
+
+// echo ("
Please enter the first few characters of the subject (at least one).
+Search is case-sensitive.
+Use * as wildcard. (eg. *Fiction)
+To see everything just enter *.
Please enter the first few characters of the subject (at least one).
+Search is case-sensitive.
+Use * as wildcard. (eg. *Fiction)
+To see everything just enter *.
Please enter the first few characters of the user name (at least one).
+Search is case-sensitive.
+Use * as wildcard. (eg. Marcello*)
+To see everything just enter *.
Please enter the first few characters of the user name (at least one).
+Search is case-sensitive.
+Use * as wildcard. (eg. Marcello*)
+To see everything just enter *.
![\"Audio](\"/pics/stock_volume-16.png\" "\\"Audio")
endtag>" : "";
+ echo ("