Diff
Not logged in

Differences From Artifact [7b8d8a78cc]:

To Artifact [a53e28c193]:


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
<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;channel&quot;</span></big><br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;quiet&quot;</span></big><br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Optional argument list &quot;args&quot;</span></big><br>

<blockquote style="font-family: monospace;"><br>
This procedure was stolen from the &quot;getEagle.tcl&quot; script.  It is<br>
designed to process a single HTTP request, including any HTTP<br>
3XX redirects (up to the specified limit), and return the raw<br>
HTTP response data.  It may raise any number of script errors.<br>
</blockquote><br><hr><br>

<big><big><span style="font-family: monospace;">Private Procedure &quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl&amp;ln=97">::Eagle::Tools::Common::setupCommonVariables</a>&quot;&nbsp;(from&nbsp;&quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl">common.tcl</a>&quot;)</span></big></big><br>
<br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;force&quot;</span></big><br>

<blockquote style="font-family: monospace;"><br>
This procedure was stolen from the &quot;getEagle.tcl&quot; script.  This<br>
procedure sets up the default values for all HTTP configuration<br>
parameters used by this package.  If the force argument is<br>
non-zero, any existing values will be overwritten and set back<br>
to their default values.<br>
</blockquote><br><hr><br>

<big><big><span style="font-family: monospace;">Private Procedure &quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl&amp;ln=153">::Eagle::Tools::Common::pageOut</a>&quot;&nbsp;(from&nbsp;&quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl">common.tcl</a>&quot;)</span></big></big><br>
<br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;channel&quot;</span></big><br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;string&quot;</span></big><br>

<blockquote style="font-family: monospace;"><br>
This procedure was stolen from the &quot;getEagle.tcl&quot; script.  It is<br>
designed to emit a message to the console.  The channel argument<br>
is the channel where the message should be written.  The string<br>
argument is the content of the message to emit.  If the channel<br>
argument is an empty string, nothing is written.<br>
</blockquote><br><hr><br>

<big><big><span style="font-family: monospace;">Private Procedure &quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl&amp;ln=167">::Eagle::Tools::Common::pageLog</a>&quot;&nbsp;(from&nbsp;&quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl">common.tcl</a>&quot;)</span></big></big><br>
<br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;string&quot;</span></big><br>

<blockquote style="font-family: monospace;"><br>
This procedure was stolen from the &quot;getEagle.tcl&quot; script.  It is<br>
designed to emit a message to the HTTP client log.  The string<br>
argument is the content of the message to emit.  If the string<br>
argument is an empty string, nothing is written.<br>
</blockquote><br><hr><br>

<big><big><span style="font-family: monospace;">Private Procedure &quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl&amp;ln=186">::Eagle::Tools::Common::pageProgress</a>&quot;&nbsp;(from&nbsp;&quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl">common.tcl</a>&quot;)</span></big></big><br>
<br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;channel&quot;</span></big><br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;type&quot;</span></big><br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;milliseconds&quot;</span></big><br>

<blockquote style="font-family: monospace;"><br>
This procedure was stolen from the &quot;getEagle.tcl&quot; script.  It is<br>
designed to emit a progress indicator while an HTTP request is<br>
being processed.  The channel argument is the Tcl channel where<br>
the progress indicator should be emitted.  The type argument is<br>
the single-character progress indicator.  The milliseconds<br>
argument is the number of milliseconds to wait until the next<br>
periodic progress indicator should be emitted.  This procedure<br>
reschedules its own execution.<br>







|











|














|












|















|







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
<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;channel&quot;</span></big><br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;quiet&quot;</span></big><br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Optional argument list &quot;args&quot;</span></big><br>

<blockquote style="font-family: monospace;"><br>
This procedure was stolen from the &quot;common.tcl&quot; script.  It is<br>
designed to process a single HTTP request, including any HTTP<br>
3XX redirects (up to the specified limit), and return the raw<br>
HTTP response data.  It may raise any number of script errors.<br>
</blockquote><br><hr><br>

<big><big><span style="font-family: monospace;">Private Procedure &quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl&amp;ln=97">::Eagle::Tools::Common::setupCommonVariables</a>&quot;&nbsp;(from&nbsp;&quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl">common.tcl</a>&quot;)</span></big></big><br>
<br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;force&quot;</span></big><br>

<blockquote style="font-family: monospace;"><br>
This procedure was stolen from the &quot;common.tcl&quot; script.  This<br>
procedure sets up the default values for all HTTP configuration<br>
parameters used by this package.  If the force argument is<br>
non-zero, any existing values will be overwritten and set back<br>
to their default values.<br>
</blockquote><br><hr><br>

<big><big><span style="font-family: monospace;">Private Procedure &quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl&amp;ln=153">::Eagle::Tools::Common::pageOut</a>&quot;&nbsp;(from&nbsp;&quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl">common.tcl</a>&quot;)</span></big></big><br>
<br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;channel&quot;</span></big><br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;string&quot;</span></big><br>

<blockquote style="font-family: monospace;"><br>
This procedure was stolen from the &quot;common.tcl&quot; script.  It is<br>
designed to emit a message to the console.  The channel argument<br>
is the channel where the message should be written.  The string<br>
argument is the content of the message to emit.  If the channel<br>
argument is an empty string, nothing is written.<br>
</blockquote><br><hr><br>

<big><big><span style="font-family: monospace;">Private Procedure &quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl&amp;ln=167">::Eagle::Tools::Common::pageLog</a>&quot;&nbsp;(from&nbsp;&quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl">common.tcl</a>&quot;)</span></big></big><br>
<br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;string&quot;</span></big><br>

<blockquote style="font-family: monospace;"><br>
This procedure was stolen from the &quot;common.tcl&quot; script.  It is<br>
designed to emit a message to the HTTP client log.  The string<br>
argument is the content of the message to emit.  If the string<br>
argument is an empty string, nothing is written.<br>
</blockquote><br><hr><br>

<big><big><span style="font-family: monospace;">Private Procedure &quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl&amp;ln=186">::Eagle::Tools::Common::pageProgress</a>&quot;&nbsp;(from&nbsp;&quot;<a href="$ROOT/artifact?ci=trunk&amp;filename=client/1.0/neutral/common.tcl">common.tcl</a>&quot;)</span></big></big><br>
<br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;channel&quot;</span></big><br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;type&quot;</span></big><br>

<big><span style="font-family: monospace;">&nbsp;&nbsp;&nbsp;&nbsp;Required argument &quot;milliseconds&quot;</span></big><br>

<blockquote style="font-family: monospace;"><br>
This procedure was stolen from the &quot;common.tcl&quot; script.  It is<br>
designed to emit a progress indicator while an HTTP request is<br>
being processed.  The channel argument is the Tcl channel where<br>
the progress indicator should be emitted.  The type argument is<br>
the single-character progress indicator.  The milliseconds<br>
argument is the number of milliseconds to wait until the next<br>
periodic progress indicator should be emitted.  This procedure<br>
reschedules its own execution.<br>