no files matched glob pattern "/musor/web/htdocs.shinoda/www/img/r_logos/*"
while executing
"glob "/musor/web/htdocs.shinoda/www/img/r_logos/*""
(procedure "ROT" line 4)
invoked from within
"ROT"
(in namespace eval "::request" script line 226)
invoked from within
"namespace eval request {
puts -nonewline ""
# 0.00.60
set HOME cms
encoding system iso8859-1
package require ncgi
package require fileutil
packa..."
OUTPUT BUFFER:
namespace eval request {
puts -nonewline ""
# 0.00.60
set HOME cms
encoding system iso8859-1
package require ncgi
package require fileutil
package require msgcat
load_headers
load_env env
# load_cookies
# package require base64
source $HOME/config.tcl
source $HOME/lib.tcl
::msgcat::mclocale $LANG
::msgcat::mcload lang/
#puts "\[[cookie get SessID]\]"
#parray env
#abort_page
fconfigure stdin -encoding binary
fconfigure stdin -translation binary
set FEIN $env(PATH_INFO)
set URL [file rootname [file tail $FEIN]]
set TEXTGOESHERE "Not Found"
set TITLEGOESHERE "untitled"
set KEYWORDSHERE ""
set NAVIGATION "lost in space"
set LASTMODIFIED ""
set Level 0
set Father 0
set substituted ""
set BrowserStupid 0
set SessID ""
set ERROR ""
set DocID ""
set BUYABLE 0
set NOW [clock format [clock seconds] -format "%Y%m%d%H%M"]
set Browser ""
catch {
set Browser $env(HTTP_USER_AGENT)
}
foreach i $STUPID_BROWSERS {
if [regexp $i $Browser] {
set BrowserStupid 1
}
}
if {$BrowserStupid} {
fconfigure stdout -encoding $STUPID_BROWSERS_ENCODING
} else {
fconfigure stdout -encoding $ENCODING
}
if {[regexp {^[0-9]{1,15}$} [var get f]]} {
set Father [var get f]
}
set mumba 404
OpenDB
if {$FORCE_SESSIONS == 1} {
if {([cookie get SessID] == "") && ($BrowserStupid == 0)} {
set Referer ""
# Have we seen the guy before?
catch {
set Referer $env(HTTP_REFERER)
} x
if {[string first $SITE_BASE $Referer] != -1} {
set ERROR "$ERROR Uncoockieble (reffered from $Referer)"
#puts $ERROR
} else {
if {![regexp {^[0-9]{1,20}$} [string trim [cookie get SessID]]]} {
cookie set SessID [GenerateSessID]
CloseDB
headers redirect $FEIN
#puts "reload it ($Referer) [cookie get SessID]"
abort_page
} else {
}
}
}
}
if {[regexp {^[0-9]{1,20}$} [cookie get SessID]]} {
set SessID [cookie get SessID]
}
#
while {1} {
if {![regexp {^[a-zA-Z0-9_\-]{1,30}$} $URL]} {
break
}
if {$URL == "NAVIGATE"} {
source $HOME/lib/NAVIGATE.tcl
set q [NAVIGATE $Father]
set TITLEGOESHERE [ncgi::decode [lindex $q 0]]
set TEXTGOESHERE [lindex $q 1]
set KEYWORDSHERE [lindex $q 2]
set mumba 200
break
}
if {$URL == "MAP"} {
source $HOME/lib/MAP.tcl
set TITLEGOESHERE [encoding convertto utf-8 [::msgcat::mc "Site Map"]]
set TEXTGOESHERE [Map]
# set TEMPLATE "maptpl.html"
set mumba 200
break
}
if {0 < [mysqlsel $MYSQL_HANDLE "select descr,body,
keywords,relation,substituted,docid from $MYSQL_DOCUMENTS_TABLE
where url='$URL'
and birthtime <= $NOW
and deathtime > $NOW
"] } {
set q [mysqlnext $MYSQL_HANDLE]
set TITLEGOESHERE [ncgi::decode [lindex $q 0]]
set TEXTGOESHERE [ncgi::decode [lindex $q 1]]
set KEYWORDSHERE [ncgi::decode [lindex $q 2]]
set Father [lindex $q 3]
set substituted [lindex $q 4]
set DocID [lindex $q 5]
set mumba 200
mysqlsel $MYSQL_HANDLE "select is_buyable from $MYSQL_SITE_TABLE,$MYSQL_DOCUMENTS_TABLE
where id = relation and docid = $DocID"
set BUYABLE [lindex [mysqlnext $MYSQL_HANDLE] 0]
}
mysqlendquery $MYSQL_HANDLE
break
}
source $HOME/lib/GetNav.tcl
set NAVIGATE [GetNav $Father]
if {($BrowserStupid == 0) && ($FORCE_SESSIONS == 1)} {
#puts "CP2"
source $HOME/lib/DRAWCART.tcl
set cart [DRAWCART]
set TEXTGOESHERE "$TEXTGOESHERE $cart "
#puts "CP2 $cart"
} else {
if { $FORCE_SESSIONS == 1 } {
set TEXTGOESHERE "$TEXTGOESHERE
[::msgcat::mc "Sorry you cant buy it with your's browser" ] "
}
}
# puts $URL
if { [var get printit] == "now" } {
set tfn $PRINTTEMPLATEROOT/$PRINTTEMPLATE
} else {
set tfn $TEMPLATEROOT/$TEMPLATE
}
if { [file readable $tfn] } {
set tpl [encoding convertfrom $TEMPLATE_CHARSET [fileutil::cat $tfn]]
} else {
set tpl "TITLEGOESHEREWarning! No template found in $TEMPLATEROOT/$TEMPLATE
NAVIGATE
TEXTGOESHERE"
}
set tpl [string map [list \
TITLEGOESHERE [utf $TITLEGOESHERE] \
TEXTGOESHERE [utf $TEXTGOESHERE] \
KEYWORDSHERE [utf $KEYWORDSHERE] \
NAVIGATIONGOESHERE $NAVIGATE \
] $tpl ]
if { ( [string first MAKEORDER $tpl] != -1 ) && ($FORCE_SESSIONS == 1) } {
source $HOME/lib/MAKEORDER.tcl
set tpl [string map [list MAKEORDER [MAKEORDER]] $tpl]
}
# Thats a example of extending
# if { [string first NEWTAG $tpl] != -1 } {
# source $HOME/lib/NEWTAG.tcl
# set tpl [string map [list NEWTAG [NEWTAG]] $tpl
# }
# Thats a example of extending (edit MENUU.tcl first)
if { [string first MENUU $tpl] != -1 } {
source $HOME/lib/MENUU.tcl
set tpl [string map [list MENUU [MENUU]] $tpl]
}
# Actually I use MENUU for english menu and MENUR for
# russian. And a different templates for en and ru.
if { [string first MENUR $tpl] != -1 } {
source $HOME/lib/MENUR.tcl
set tpl [string map [list MENUR [MENUR]] $tpl]
}
source $HOME/lib/NEWSGOESHERE.tcl
if { [string first NEWSGOESHERE $tpl] != -1 } {
set tpl [string map [list NEWSGOESHERE [NEWSGOESHERE 0 news]] $tpl]
}
if { [string first NEWSHERE $tpl] != -1 } {
set tpl [string map [list NEWSHERE [NEWSGOESHERE 0 news]] $tpl]
}
if { [string first VOTEGOESHERE $tpl] != -1 } {
source $HOME/lib/VOTE.tcl
set tpl [string map [list VOTEGOESHERE [VOTE]] $tpl]
}
if { [string first VOTERESULTSGOESHERE $tpl] != -1 } {
source $HOME/lib/VOTERESULTS.tcl
set tpl [string map [list VOTERESULTSGOESHERE [VOTERESULTS]] $tpl]
}
if { [string first VOTE2GOESHERE $tpl] != -1 } {
source $HOME/lib/VOTE2.tcl
set tpl [string map [list VOTE2GOESHERE [VOTE2]] $tpl]
}
if { [string first VOTERESULTS2GOESHERE $tpl] != -1 } {
source $HOME/lib/VOTERESULTS2.tcl
set tpl [string map [list VOTERESULTS2GOESHERE [VOTERESULTS2]] $tpl]
}
if { [string first ROTGOESHERE $tpl] != -1 } {
source $HOME/lib/ROT.tcl
set tpl [string map [list ROTGOESHERE [ROT]] $tpl]
}
CloseDB
if {$substituted == ""} {
headers numeric $mumba
if { $BrowserStupid } {
headers type "text/html; charset=$STUPID_BROWSERS_HTTP_ENCODING"
} else {
headers type "text/html; charset=$HTTP_ENCODING"
}
#puts "\[[cookie get SessID] $SessID\]"
# puts "\[$ERROR $SessID [cookie get SessID]\]"
puts $tpl
} else {
# that's all about my stupid fulltext search system based on uri::
if { $BrowserStupid == 0 } {
headers redirect $substituted
} else {
headers type "text/html; charset=$HTTP_ENCODING"
puts " Can be found here"
}
}
puts -nonewline ""
}