/usr/share/tcltk/xotcl1.6.7-actiweb/pageTemplate.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 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 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 | package provide xotcl::actiweb::pageTemplate 0.8
package require xotcl::actiweb::webObject
package require xotcl::actiweb::invoker
package require xotcl::mixinStrategy
package require XOTcl
namespace eval ::xotcl::actiweb::pageTemplate {
namespace import ::xotcl::*
Class PageTemplate -superclass WebObject
PageTemplate instproc init args {
next
my mixinStrategy ::Send=TypedString
}
PageTemplate abstract instproc listExportedProcs args
PageTemplate abstract instproc simplePage args
Class PageTemplateHtml -superclass PageTemplate
PageTemplateHtml instproc init args {
my contentType text/html
next
}
PageTemplateHtml instproc listExportedProcs args {
#
# place must be a Html place!
#
set place [HtmlPlace getInstance]
set c "
The following options are avaiable on $n:
"
foreach i [my exportedProcs] {
set href [my selfAction "[self] $i"]
set app {
<p> <a href= "$href">$i</a>
}
append c [subst -nobackslashes $app]
}
return [my simplePage $place [self] $c]
}
PageTemplateHtml instproc simplePage {title heading content {closing ""}} {
set place [Place getInstance]
set c {<html>
<head>
<title>$title</title>
</head>
<body>
<h1>$heading</h1>
<hr>
<p>
$content
<p> $closing
<p><hr><p>
</body>
</html>
}
return [subst -nobackslashes -nocommands $c]
}
#
# builds a simple Form -- args are tupels of the form
# {text, name, type, default, size}
#
#
PageTemplateHtml instproc simpleForm {action args} {
set action [my selfAction $action]
set c {
<form method="get" action="$action">
<TABLE>
}
foreach {text name type def size} $args {
append c "
<TR>
<TD>$text: </TD>
<TD><input name=\"$name\" type=\"$type\" size=\"$size\" value=\"$def\"></TD>
</TR>
"
}
append c {
<TR>
<td><input type=submit value="Submit"></td>
<td><input type=reset value="Reset"></td>
</TR>
</TABLE>
</FORM>
}
return [subst -nobackslashes -nocommands $c]
}
namespace export PageTemplate PageTemplateHtml
}
namespace import ::xotcl::actiweb::pageTemplate::*
|