Thursday, January 31st, 2008
Here is a proof of principle project that can be further adjusted to your own needs – a simple server script that can look up your most recent Zotero database entries and display them to the world. When run in a DOS or Linux box as ZoteroServer path/zotero.sqlite it will display the most recent entries to clients listening at localhost:8888. The code should be pretty straightforward and may be replaced with even other items.
ZoteroServer.pl
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
83: | #!/usr/bin/perl
# ZoteroMiniServer: show recent Zotero entries
# m@wjst.de 27/1/08
#----------------------------------------------------------------------------------------------
#perl2exe_include "DBI.pm"
#perl2exe_include "DBD/SQLite.pm"
#perl2exe_include "CGI.pm"
#perl2exe_include "IO.pm"
my $dbfile = <$ARGV[0]>;
#----------------------------------------------------------------------------------------------
use DBI;
use CGI;
$dbh = DBI->connect(
"dbi:SQLite:$dbfile",
"", # no user
"", # no password
{ RaiseError => 1 },
) || die "Cannot connect: $DBI::errstr";
my $sql = 'SELECT DISTINCT items.itemID
FROM items
ORDER BY items.dateAdded DESC
LIMIT 50';
$res0 = $dbh->selectall_arrayref($sql);
my $idlist="";
for $i ( 0 .. $#{$res0} ) {
for $ii ( 0 .. $#{$res0->[$i]} ) {
# print "$i:$ii:$res0->[$i][$ii] ";
}
if ($i >0 ) {
$idlist .= ',' . $res0->[$i][0];
}
else {
$idlist = $res0->[0][0];
}
}
my $itemlist="";
my $sql = 'SELECT DISTINCT itemDataValues.value
FROM items LEFT JOIN itemData ON items.itemID = itemData.itemID LEFT JOIN itemDataValues ON itemData.valueID = itemDataValues.valueID
WHERE items.itemID IN (' . $idlist . ') AND itemData.fieldID=110';
$res1 = $dbh->selectall_arrayref($sql);
my $itemlist1="";
my $itemlist2="";
my $tagA = '<span class="Z3988" title="ctx_ver=Z39.88-2004&rft_val_fmt=info%3Aofi%2Ffmt%3Akev%3Amtx%3Ajournal&rfr_id=info%3Asid%2Focoins.info%3Agenerator&rft.genre=article&rft.atitle=';
my $tagB = '"></span></br>';
for $i ( 0 .. $#{$res1} ) {
$itemlist1 .= $tagA . CGI::escape($res1->[$i][0]) . $tagB;
$itemlist2 .= '<li>' . $res1->[$i][0] . '</li>';
}
#----------------------------------------------------------------------------------------------
use IO::Socket;
my $myport=8888;
my $server=IO::Socket::INET->new(LocalPort=>$myport,
Type=>SOCK_STREAM,
Reuse=>1,
Listen=>10);
my $client;
my $client_adress;
my $data;
print "Listening on port $myport ... \n";
while ( ($client,$client_adress) = $server->accept() ) {
my( $client_port,$client_iaddr) = sockaddr_in($client_adress);
my $client_dot_ip = inet_ntoa($client_iaddr);
my $client_name = gethostbyaddr($client_iaddr,AF_INET);
print "Accepting client $client_dot_ip [$client_name] port: $client_port\n";
$client->recv($data,10000);
# print "\nReceived from client:\n$data\n" ;
my $site= "<html>\n";
$site .= "<head>\n";
$site .= "<title>ZoteroServer</title>\n";
$site .= "</head> \n";
$site .= "<body>\n";
$site .= "<b>ZoteroMiniserver</b><BR/>\n";
$site .= "just click the icon in URL bar above to import any of the following references<BR/>\n";
$site .= '<ol>' . $itemlist2 . '</ol>';
$site .= $itemlist1;
$site .= "</body>\n";
$site .= "\n</html>\n ";
print $client $site;
close($client);
}
close $server;
|
Thursday, January 31st, 2008
“.. or does the theory really have legs?” is the title of a critical editorial in JMCP last month. Although I will co-author a forthcoming paper on allergic rhinitis being a risk factor for later asthma, the situation is far from being understood. “March” implies a command for all to go into one direction which is arguable a poor analogy (Show me more…)
Wednesday, January 30th, 2008
This may be obvious, at least if you have read Daniel Gilbert
In 2002, Jane Ebert and I discovered that people are generally happier with decisions when they can’t undo them. When subjects in our experiments were able to undo their decisions they tended to consider both the positive and negative features of the decisions they had made, but when they couldn’t undo their decisions they tended to concentrate on the good features and ignore the bad.
When reading my own writings a second time, I always discover typing errors, crude sentences, and other poor habits – blogs as snapshots of less happier minds?
Wednesday, January 30th, 2008
I started with the Khoury manuscript, replaced it with the Terwillinger book and are finally using this one.
It costs about 63$.