/usr/share/tcltk/xotcl1.6.7-actiweb/HtmlPlace.xotcl is in xotcl 1.6.7-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | # $Id: HtmlPlace.xotcl,v 1.3 2005/09/09 21:09:01 neumann Exp $
package provide xotcl::actiweb::htmlPlace 0.8
package require xotcl::trace
package require xotcl::actiweb::httpPlace
package require xotcl::store::persistence
package require xotcl::actiweb::agent
package require xotcl::actiweb::pageTemplate
package require XOTcl
namespace eval ::xotcl::actiweb::htmlPlace {
namespace import ::xotcl::*
Class HtmlPlace -superclass Place -parameter {allowExit}
HtmlPlace instproc init args {
next
#
# just define a minimal object that can react
# with HTML decoration, if the called object
# doesn't exist
PageTemplateHtml create [self]::start.html
my startingObj [self]::start.html
if {[my exists allowExit]} {
set exitObj [WebObject create [self]::[my set allowExit]]
[Place getInstance] exportObjs $exitObj
$exitObj proc default {} {after 500 ::exit; return "Server terminates"}
}
}
HtmlPlace instproc default {} {
set place [string trimleft [self] :]
set msg "<HTML><TITLE>Place $place</TITLE>
<BODY><H2>Place $place</H2> Try one of the following links:<UL>"
foreach o [my exportedObjs] {
set o [string trimleft $o :]
append msg "<LI><A HREF='[url encodeItem $o]'>$o</A></LI>"
}
append msg "</UL></BODY>\n"
}
namespace export HtmlPlace
}
namespace import ::xotcl::actiweb::htmlPlace::*
|