version 1.45, 2003/12/24 19:58:37
|
version 1.46, 2003/12/24 20:41:32
|
Line 202 sub dynamicmeta {
|
Line 202 sub dynamicmeta {
|
$prodir.'/nohist_accesscount.db',&GDBM_READER(),0640)) { |
$prodir.'/nohist_accesscount.db',&GDBM_READER(),0640)) { |
my $escurl=&escape($url); |
my $escurl=&escape($url); |
if (! exists($evaldata{$escurl})) { |
if (! exists($evaldata{$escurl})) { |
$returnhash{'count'}='Not Available'; |
$returnhash{'count'}=0; |
} else { |
} else { |
$returnhash{'count'}=$evaldata{$escurl}; |
$returnhash{'count'}=$evaldata{$escurl}; |
} |
} |
Line 249 my $dbh;
|
Line 249 my $dbh;
|
exit; |
exit; |
} |
} |
|
|
|
# Create table for static metadata, unless exists |
my $make_metadata_table = "CREATE TABLE IF NOT EXISTS metadata (". |
my $make_metadata_table = "CREATE TABLE IF NOT EXISTS metadata (". |
"title TEXT, author TEXT, subject TEXT, url TEXT, keywords TEXT, ". |
"title TEXT, author TEXT, subject TEXT, url TEXT, keywords TEXT, ". |
"version TEXT, notes TEXT, abstract TEXT, mime TEXT, language TEXT, ". |
"version TEXT, notes TEXT, abstract TEXT, mime TEXT, language TEXT, ". |
Line 262 my $dbh;
|
Line 263 my $dbh;
|
"FULLTEXT idx_copyright (copyright)) TYPE=MYISAM"; |
"FULLTEXT idx_copyright (copyright)) TYPE=MYISAM"; |
# It would sure be nice to have some logging mechanism. |
# It would sure be nice to have some logging mechanism. |
$dbh->do($make_metadata_table); |
$dbh->do($make_metadata_table); |
|
|
|
# Create table for dynamic metadata, unless exists |
|
my $make_dynmetadata_table = "CREATE TABLE IF NOT EXISTS dynmetadata (". |
|
"url TEXT, count INTEGER UNSIGNED, ". |
|
"course INTEGER UNSIGNED, course_list TEXT, ". |
|
"goto INTEGER UNSIGNED, goto_list TEXT, ". |
|
"comefrom INTEGER UNSIGNED, comefrom_list TEXT, ". |
|
"usage INTEGER UNSIGNED, usage_list TEXT, ". |
|
"stdno INTEGER UNSIGNED, stdno_list TEXT, ". |
|
"avetries FLOAT, avetries_list TEXT, ". |
|
"difficulty FLOAT, difficulty_list TEXT ". |
|
"TYPE=MYISAM"; |
|
# It would sure be nice to have some logging mechanism. |
|
#### $dbh->do($make_dynmetadata_table); |
|
|
} |
} |
|
|
# ------------------------------------------------------------- get .meta files |
# ------------------------------------------------------------- get .meta files |