//import .FOTW;
//inherit "roxenlib";
#include "FOTW.pmod"
constant timestamp = __DATE__ + "; " + __TIME__;
object fotw;
string parse(object id)
{
//add_module_path(dirname(__FILE__));
string lang = id->variables->lang || "en";
if(search(({"en","pl"}), lang)==-1)
lang = "en";
fotw = Fotw();
if(!fotw)
return "ERROR: connection to fotw database FAILED.";
int count = sizeof(fotw);
int skip = (int)(id->variables->skip);
if(skip<0)
skip = 0;
if(skip>=count)
skip = count -1;
string res = "";
switch(lang)
{
case "en":
array stuff;
string search;
if(id->variables->search && sizeof(id->variables->search))
{
search = id->variables->search;
stuff = fotw->
query("select id, url, title_en, desc_en, cdate, match(title_en, desc_en) against ('" + fotw->db->quote(search) +
"') as score from fotw_main having score != 0 order by score desc limit " + (string)skip + ", 5");
count = (int)(fotw->query("select count(*) as count from fotw_main where match(title_en, desc_en) against ('" + fotw->db->quote(search) +
"')")[0]->count);
if(!count)
return "No results for search! Hit the \"Back\" button and try again...";
if(skip>=count)
skip = count -1;
}
else
{
stuff = fotw->
query("select id, url, title_en, desc_en, cdate from fotw_main order by cdate desc, id desc limit " + (string)skip + ", 5");
}
if(!stuff || !sizeof(stuff))
return "ERROR: failed to read from fotw database (main table empty?)";
foreach(stuff, mapping row)
{
res += "url + "\">" + _Roxen.html_encode_string(row->title_en) + "
" +
_Roxen.html_encode_string(row->desc_en) + "
Added: " +
row->cdate + "; URL: " + row->url + "; ID=" +
(string)(row->id) + "
";
}
res= "fotw by rjb\n\n"
"
" +
"
" +
"Some high-scoring keywords:
" +
"
"+
"
"+
"This is a personal link collection. It certainly reflects my interests to some extent, but does not imply any endorsement of nor "+
"agreement with the content of the listed resources. In plain words: it's the web, live with it. Have fun. Exercise your own judgment.
"+
"--
/rjb" +
"
" + ((skip>0) ? "Less " : "Most ") +
((search)? "matching " : "recently added ") + "items: ( " + (string)(skip+1) + " - " + (string)(skip+sizeof(stuff)) +
" )
| " +
(skip ? ("<<Better matches |") :
"\"><<Newer items |")) : " ") + " | " +
(((skip+5)Not so good matches>>") : "\">Older items>>") : " ") + " |
" +
"Generated: " + (ctime(time())-"\n") +
"
There are currently " + (string)count + " items "+ (search ? "matching your query " : "") + "in
fotw"
"
Comments?"
"
"
"![\"Powered](\"power280x25.gif\" "\\"Pike")
"
"";
break;
case "pl":
res = "NIE ZROBIONE!";
break;
}
return res;
}