In addition: here are the httpd.conf configurations for this application:
<FilesMatch "\.(htm|asp)$">
PerlSetVar Global /usr/local/etc/infosource/apps/netcfg/
# PerlSetVar Global .
PerlSetVar GlobalPackage INAP::NEIS
PerlSetVar StateDir /usr/local/etc/infosource/apps/netcfg/state-dir
PerlSetVar CookiePath /apps/netcfg
SetHandler perl-script
PerlHandler Apache::ASP Apache::SSI
PerlSetVar SessionTimeout 90
#0 production, 2 or 1 for dev
PerlSetVar Debug 0
PerlSetVar StatINCMatch PNAP|NCM
# PerlSetVar StatINC 1
#0 production, text compression
# PerlSetVar DynamicIncludes 0
PerlSetVar Clean 0
PerlSetVar StateDB DB_File
PerlSetVar AllowSessionState 1
PerlSetVar DebugBufferLength 500
PerlSetVar StateCache 0
# PerlSetVar UseStrict 1
PerlSetVar TimeHiRes 1
</FilesMatch>
On Wed, 4 Apr 2001, Carl Lipo wrote:
>
> I've just started having problems with asp state files for Apache::ASP
> 2.09 becoming corrupted during use. My application will work just fine but
> at somepoint the session asp state files get corrupted and only deleting
> them allows the application to continue working. Oddly, this occurs on two
> different servers so the problem does not appear to be machine specific.
>
> The symptom of the problem is that application errors are returned
> from the asp code execution that look something like this:
>
> Uncaught exception from user code:
> Can't locate object method 'Quer' via package
> "Apache::ASP::Request'; at (eval 263) <a href=#167>l
> ine 167</a>.
>INAP::NEIS::_usr_local_applprod_infosource_apps_netcfg_viewNodes_htmxINL() called
> at /usr/local/lib/site_perl/Apache/
> ASP.pm line 1504
>
> or
>
> $Response::Appe not defined at /usr/local/lib/site_perl/Apache/ASP.pm <a
> href=#3132>line 3132</a>
>
> Where the object method that cant be located is truncated from the actual
> ASP method (i.e., Query will be truncated to be Quer or $Response::Append
> to log will be tructed at Response::Appe). What appears to be happnening
> is that the namespace is corrupted somehow and the Apache::ASP/mod_perl is
> not mapping the names of methods correctly.
>
> When we delete the state files, the problem goes away (and then returns at
> some point in the future). Has anyone encountered this problem? Is there a
> bug in the 2.09 code?
>
> This is our environment:
> Linux, Apache 1.3.19, mod_perl 1.25
> Apache::ASP 2.09
>
> ----------------------------------------------------------------------------
> Here is the actual error output:
>
> <table>
> <tr><td valign=top><font size=-1><b> Global: </b><td valign=top><font size=-1>
>/usr/local/etc/infosource/apps/netcfg/
> <tr><td valign=top><font size=-1><b> File: </b><td valign=top><font size=-1>
>/usr/local/applprod/infosource/apps/netcfg/viewNodes.htm
> <tr><td valign=top><font size=-1><b> IP: </b><td valign=top><font size=-1>
>64.94.117.16
> <tr><td valign=top><font size=-1><b> HTTP_*: </b><td valign=top><font size=-1>
>HTTP_ACCEPT= image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png, */*<br>
> HTTP_ACCEPT_CHARSET= iso-8859-1,*,utf-8<br>
> HTTP_ACCEPT_ENCODING= gzip<br>
> HTTP_ACCEPT_LANGUAGE= en<br>
> HTTP_CONNECTION= Keep-Alive<br>
> HTTP_COOKIE= session-id=0eef76d5377c6e62def6333423014869<br>
> HTTP_HOST= applprod4.sea.internap.com<br>
> HTTP_REFERER= https://applprod4.sea.internap.com/apps/netcfg/searchNode.htm<br>
> HTTP_USER_AGENT= Mozilla/4.75 [en] (X11; U; Linux 2.2.16 i686)
> <tr><td valign=top><font size=-1><b> Query: </b><td valign=top><font size=-1>
> <tr><td valign=top><font size=-1><b> Form: </b><td valign=top><font size=-1>
>search= Search <br>
> searchLocation= <br>
> searchNodeName= <br>
> searchNodeStatus= <br>
> searchNodeType= <br>
> searchRack= <br>
> searchSiteCode= sea<br>
> sessionActive= Active
> </table>
>
> <tt>
> <b><u>Errors Output</u></b>
> <ol>
>
> <li> Uncaught exception from user code:
> Can't locate object method "Quer" via package
>"Apache::ASP::Request" at (eval 263) <a href=#167>line 167</a>.
> INAP::NEIS::_usr_local_applprod_infosource_apps_netcfg_viewNodes_htmxINL()
>called at /usr/local/lib/site_perl/Apache/ASP.pm line 1504
> eval {...} called at /usr/local/lib/site_perl/Apache/ASP.pm line 1504
> Apache::ASP::Execute('Apache::ASP=HASH(0x8d7d930)') called at
>/usr/local/lib/site_perl/Apache/ASP.pm line 174
> Apache::ASP::handler('Apache=SCALAR(0x8d2b978)') called at /dev/null line 0
> eval {...} called at /dev/null line 0
> , /usr/local/lib/site_perl/Apache/ASP.pm line 1506
> </ol>
>
> <b><u>Debug Output</u></b>
> <ol>
>
> <li> Uncaught exception from user code:
> Can't locate object method "Quer" via package
>"Apache::ASP::Request" at (eval 263) line 167.
> INAP::NEIS::_usr_local_applprod_infosource_apps_netcfg_viewNodes_htmxINL()
>called at /usr/local/lib/site_perl/Apache/ASP.pm line 1504
> eval {...} called at /usr/local/lib/site_perl/Apache/ASP.pm line 1504
> Apache::ASP::Execute('Apache::ASP=HASH(0x8d7d930)') called at
>/usr/local/lib/site_perl/Apache/ASP.pm line 174
> Apache::ASP::handler('Apache=SCALAR(0x8d2b978)') called at /dev/null line 0
> eval {...} called at /dev/null line 0
> , /usr/local/lib/site_perl/Apache/ASP.pm line 1506
> </ol>
> </tt>
> <pre>
>
> <b><u>ASP to Perl Script</u></b><a name=1> </a>
>
> <a name=2> 1</a>: package INAP::NEIS; ;; sub
>INAP::NEIS::_usr_local_applprod_infosource_apps_netcfg_viewNodes_htmxINL { ;; @_ =
>(); ;; no strict;;use vars qw($Application $Session $Response $Server $Request);;use
>lib qw(/usr/local/etc/infosource/apps/netcfg/);;;
> <a name=3> 2</a>:
> <a name=4> 3</a>: $Response->AppendToLog("[NEIS] - init.htm:");
> <a name=5> 4</a>:
> <a name=6> 5</a>:
> <a name=7> 6</a>: ###################################################
> <a name=8> 7</a>: #
> <a name=9> 8</a>: # init.htm
> <a name=10> 9</a>: #
> <a name=11> 10</a>: # Dexter and Wayland
> <a name=12> 11</a>: #
> <a name=13> 12</a>: # October 2000
> <a name=14> 13</a>: #
> <a name=15> 14</a>: # 10/12/00 Wayland Wasserman
> <a name=16> 15</a>: # Common header file for entire NCM app
> <a name=17> 16</a>: # Contains database info and other global data
> <a name=18> 17</a>: #
> <a name=19> 18</a>: #
> <a name=20> 19</a>: ####################################################
> <a name=21> 20</a>:
> <a name=22> 21</a>: use DBI; # Used for database
>calls.
> <a name=23> 22</a>: use PNAP::NETCFG::DBconn qw(dbconnect); # Used for database
>calls.
> <a name=24> 23</a>: use PNAP::Conf;
> <a name=25> 24</a>: use PNAP::Database::Query;
> <a name=26> 25</a>: use NCM::Nodes;
> <a name=27> 26</a>: use NCM::Common;
> <a name=28> 27</a>: use XML::Config;
> <a name=29> 28</a>: use strict;
> <a name=30> 29</a>:
> <a name=31> 30</a>: # This part is in the Apache configuration file, httpd.conf.
> <a name=32> 31</a>: # BEGIN
> <a name=33> 32</a>: # {
> <a name=34> 33</a>: # $ENV{'ORACLE_HOME'} = 'usr/local/oracle_client/v8_0_5';
> <a name=35> 34</a>: # }
> <a name=36> 35</a>:
> <a name=37> 36</a>: $Response->AppendToLog("[NEIS] - init.htm: test 1");
> <a name=38> 37</a>:
> <a name=39> 38</a>: ### Read the conf file ###
> <a name=40> 39</a>: # my $g_conffile = "/usr/local/etc/netcfg/neis.conf";
># Not used anywhere else.
> <a name=41> 40</a>: my $g_debug = 0;
> <a name=42> 41</a>: # my $conf = new XML::Config; # Not used anywhere else without
>first being re-initialized.
> <a name=43> 42</a>:
> <a name=44> 43</a>: $Response->AppendToLog("[NEIS] - init.htm:
>$Application->{'DBService'}");
> <a name=45> 44</a>:
> <a name=46> 45</a>: my $DEBUG = $Application->{'Debug'};
> <a name=47> 46</a>:
> <a name=48> 47</a>: $DEBUG && $Response->AppendToLog("[NEIS] -
>init.htm: DEBUG level is $DEBUG");
> <a name=49> 48</a>:
> <a name=50> 49</a>: my $g_dbsection = $Application->{'DBService'};
> <a name=51> 50</a>:
> <a name=52> 51</a>: $DEBUG && $Response->AppendToLog("[NEIS] -
>init.htm: $Application->{'Application'} $Application->{'CVS_Version'} -
>$g_dbsection");
> <a name=53> 52</a>:
> <a name=54> 53</a>: ### Misc Global Variables ###
> <a name=55> 54</a>: my $g_nodeName;
> <a name=56> 55</a>: my $g_nodeOID;
> <a name=57> 56</a>: my $g_retPage;
> <a name=58> 57</a>: my $g_prevPage;
> <a name=59> 58</a>: my $g_searchCriteria;
> <a name=60> 59</a>:
> <a name=61> 60</a>: ### Database connection (Database::Query) ###
> <a name=62> 61</a>: my $g_dbconn = new
>PNAP::Database::Query(Connection=>$g_dbsection, Debug=>$g_debug);
> <a name=63> 62</a>:
> <a name=64> 63</a>: ### Database connection (straight DBI) ###
> <a name=65> 64</a>: ### Dev Note: this is a test to see how well this works
> <a name=66> 65</a>: # my $dbconf = $Application->{'DBConf'};
> <a name=67> 66</a>: # $DEBUG && $Response->AppendToLog("[NEIS] -
>init.htm: dbconf is $dbconf");
> <a name=68> 67</a>:
> <a name=69> 68</a>: # my $dbconfobj = new PNAP::Conf($dbconf, $g_debug);
> <a name=70> 69</a>: # my $service =
>$dbconfobj->getServInfo($Application->{'DBService'});
> <a name=71> 70</a>:
> <a name=72> 71</a>: # $Application->{'DBSID'} = $service->{'SID'};
> <a name=73> 72</a>: # $Application->{'DBDriver'} = $service->{'Driver'};
> <a name=74> 73</a>: # $Application->{'DBServer'} = $service->{'Server'};
> <a name=75> 74</a>: # $Application->{'DBUsername'} = $service->{'Username'};
> <a name=76> 75</a>: # $Application->{'DBPassword'} = $service->{'Password'};
> <a name=77> 76</a>: # $Application->{'DBTnsname'} = $service->{'Tnsname'};
> <a name=78> 77</a>:
> <a name=79> 78</a>: # my $driver = $Application->{'DBDriver'};
> <a name=80> 79</a>: # my $server = $Application->{'DBServer'};
> <a name=81> 80</a>: # my $sid = $Application->{'DBSID'};
> <a name=82> 81</a>: # my $user = $Application->{'DBUsername'};
> <a name=83> 82</a>: # my $pw = $Application->{'DBPassword'};
> <a name=84> 83</a>: # my $connstr = "dbi:$driver:host=$server;sid=$sid";
> <a name=85> 84</a>: # my $g_dbiconn = DBI->connect($connstr, $user, $pw);
> <a name=86> 85</a>: my $g_dbiconn = dbconnect();
> <a name=87> 86</a>:
> <a name=88> 87</a>: # This is where we check for form submission for the header.inc
> <a name=89> 88</a>: # check for ChangeRole
> <a name=90> 89</a>: $Session->{'Role'} = $Request->Form('role') if
>($Request->Form('control') eq "ChangeRole");
> <a name=91> 90</a>:
> <a name=92> 91</a>: my $err = $g_dbiconn->err() || "";
> <a name=93> 92</a>: my $errstr = $g_dbiconn->errstr() || "";
> <a name=94> 93</a>: if ($err || $errstr) {
> <a name=95> 94</a>: $Response->AppendToLog("[NEIS] - init.htm: DATABASE
>ERROR -- ($err) $errstr");
> <a name=96> 95</a>: }
> <a name=97> 96</a>:
> <a name=98> 97</a>: ; $main::Response->WriteRef(\('
> <a name=99> 98</a>:
> <a name=100> 99</a>: '));
> <a name=101>100</a>:
>############################################################################
> <a name=102>101</a>: #
> <a name=103>102</a>: # viewNodes.htm
> <a name=104>103</a>: #
> <a name=105>104</a>: # Purpose: displays information about nodes matching the given
>search criteria
> <a name=106>105</a>: #
> <a name=107>106</a>: # Input:
> <a name=108>107</a>: # search criteria, read from the Form or $Session
>variable
> <a name=109>108</a>: # column name by which results should be sorted, passed
>along the URL
> <a name=110>109</a>: #
> <a name=111>110</a>: # Created by: Catherine Higuchi, Dexter Lieu
> <a name=112>111</a>: # Last Update: 09/29/2000
> <a name=113>112</a>: #
> <a name=114>113</a>:
>############################################################################
> <a name=115>114</a>:
> <a name=116>115</a>: ### Variable definition ###
> <a name=117>116</a>: my $asppage = $INAP::NEIS::asppage;
> <a name=118>117</a>: my $pagetitle = "View Nodes";
> <a name=119>118</a>:
> <a name=120>119</a>: ###########################
> <a name=121>120</a>: #
> <a name=122>121</a>: # Code to check users permission to edit
> <a name=123>122</a>: # current area
> <a name=124>123</a>: #
> <a name=125>124</a>:
> <a name=126>125</a>: my $pageTopic = 'NODE';
> <a name=127>126</a>: my $userRole = $Session->{'Role'};
> <a name=128>127</a>: my $allowEdit = NCM::Nodes::checkUserRole($userRole,
>$pageTopic);
> <a name=129>128</a>: my $editcols = 2;
> <a name=130>129</a>: $editcols = 3 if $allowEdit;
> <a name=131>130</a>: $Session->{"nodeSearchError"} = '';
> <a name=132>131</a>:
> <a name=133>132</a>:
> <a name=134>133</a>: ### testing of pagehash...
> <a name=135>134</a>:
> <a name=136>135</a>: ## for ( keys %g_PageHash)
> <a name=137>136</a>: ## {
> <a name=138>137</a>: ## $DEBUG &&
>$Response->AppendToLog("[NEIS] - viewNodes.htm - $g_PageHash->{$_}");
> <a name=139>138</a>: ## }
> <a name=140>139</a>:
> <a name=141>140</a>:
> <a name=142>141</a>:
> <a name=143>142</a>:
> <a name=144>143</a>: ### read the values from the previous form ###
> <a name=145>144</a>: ### and save to the session vars ###
> <a name=146>145</a>: my $form=$Request->Form();
> <a name=147>146</a>: my $nm;
> <a name=148>147</a>: for ( keys %{$form}) {
> <a name=149>148</a>: $nm = $_;
> <a name=150>149</a>: $Session->{$nm}= $form->{$nm};
> <a name=151>150</a>: $DEBUG && $Response->AppendToLog("[NEIS] -
>viewNodes.htm - $nm: $form->{$nm}");
> <a name=152>151</a>: }
> <a name=153>152</a>:
> <a name=154>153</a>:
> <a name=155>154</a>: if ($Request->QueryString('assetTag')) {
> <a name=156>155</a>: $Session->{"searchNodeOID"} =
>NCM::Nodes::getNodeFromAsset($g_dbconn, $Request->QueryString('assetTag'));
> <a name=157>156</a>: if ( !($Session->{"searchNodeOID"}) )
> <a name=158>157</a>: {
> <a name=159>158</a>: $Session->{'ERROR'} = 'Invalid Asset Tag';
> <a name=160>159</a>:
> <a name=161>160</a>: $Response->Redirect("index.htm");
> <a name=162>161</a>: }
> <a name=163>162</a>:
> <a name=164>163</a>: }
> <a name=165>164</a>:
> <a name=166>165</a>:
> <a name=167>166</a>: ### get the criteria from the session vars ###
> <a name=168><b><font color=red>167</font></b></a>: my $searchNodeOID =
>$Session->{"searchNodeOID"} || $Request->QueryString('OID') ||
>"";
> <a name=169>168</a>: my $searchNodeName = $Session->{"searchNodeName"}
>|| "";
> <a name=170>169</a>: my $searchNodeType = $Session->{"searchNodeType"}
>|| "";
> <a name=171>170</a>: my $searchNodeStatus =
>$Session->{"searchNodeStatus"} || "";
> <a name=172>171</a>: my $searchSiteCode = $Session->{"searchSiteCode"}
>|| "";
> <a name=173>172</a>: my $searchLocation = $Session->{"searchLocation"}
>|| "";
> <a name=174>173</a>: my $searchRack = $Session->{"searchRack"} ||
>"";
> <a name=175>174</a>:
> <a name=176>175</a>: ### whack the other fields if searching by nodeoid
> <a name=177>176</a>: if ($searchNodeOID)
> <a name=178>177</a>: {
> <a name=179>178</a>: $searchNodeName = '';
> <a name=180>179</a>: $searchNodeType = '';
> <a name=181>180</a>: $searchNodeStatus = '';
> <a name=182>181</a>: $searchSiteCode = '';
> <a name=183>182</a>: $searchLocation = '';
> <a name=184>183</a>: $searchRack = '';
> <a name=185>184</a>: }
> <a name=186>185</a>: my @altNodeOIDs;
> <a name=187>186</a>:
> <a name=188>187</a>:
> <a name=189>188</a>: $searchNodeName =~ s/'/_/g;
> <a name=190>189</a>: $searchLocation =~ s/'/_/g;
> <a name=191>190</a>: $searchRack =~ s/'/_/g;
> <a name=192>191</a>:
> <a name=193>192</a>: $searchNodeName =~ s/"/_/g;
> <a name=194>193</a>: $searchLocation =~ s/"/_/g;
> <a name=195>194</a>: $searchRack =~ s/"/_/g;
> <a name=196>195</a>:
> <a name=197>196</a>:
> <a name=198>197</a>: if ($Session->{"altNodeSearch"})
> <a name=199>198</a>: {
> <a name=200>199</a>: @altNodeOIDs = @{$Session->{"altNodeSearch"}};
> <a name=201>200</a>: }
> <a name=202>201</a>:
> <a name=203>202</a>:
> <a name=204>203</a>: ### if no criteria bounce them back to search page
> <a name=205>204</a>: if ( (! ($searchNodeOID) ) && (! ($searchNodeName) )
>&& (! ($searchNodeType) ) && (! ($searchNodeStatus) ) && (!
>($searchSiteCode) ) && (! ($searchLocation) ) && (! ($searchRack) ) )
> {
> <a name=206>205</a>:
> <a name=207>206</a>: $Session->{"nodeSearchError"} = 'Search requires
>at least one field be filled in';
> <a name=208>207</a>:
> <a name=209>208</a>: $Response->Redirect("searchNode.htm");
> <a name=210>209</a>:
> <a name=211>210</a>:
> <a name=212>211</a>: }
> <a name=213>212</a>:
> <a name=214>213</a>:
> <a name=215>214</a>:
> <a name=216>215</a>:
> <a name=217>216</a>:
> <a name=218>217</a>:
> <a name=219>218</a>:
> <a name=220>219</a>:
> <a name=221>220</a>:
> <a name=222>221</a>:
> <a name=223>222</a>:
> <a name=224>223</a>:
> <a name=225>224</a>: ### Get the order by column ###
> <a name=226>225</a>: my $ordercolumn = $Request->QueryString('ordercolumn') ||
>"NODENAME, NODETYPE, STATUS, SITECODE";
> <a name=227>226</a>:
> <a name=228>227</a>: ### lists of returned data ###
> <a name=229>228</a>: my (@nodeOIDList, @nodeNameList, @nodeTypeList,
>@nodeTypeCodeList, @statusList, @statusCodeList, @siteCodeList, @locationList,
>@rackList, @commentList, @updateNbrList);
> <a name=230>229</a>: my $nodecount = NCM::Nodes::getNodes($g_dbconn, $searchNodeOID,
>$searchNodeName, $searchNodeType, $searchNodeStatus,
> <a name=231>230</a>: $searchSiteCode, $searchLocation, $searchRack, \@altNodeOIDs,
>$ordercolumn, \@nodeOIDList,
> <a name=232>231</a>: \@nodeNameList, \@nodeTypeList, \@nodeTypeCodeList,
>\@statusList, \@statusCodeList,
> <a name=233>232</a>: \@siteCodeList, \@locationList, \@rackList, \@commentList,
>\@updateNbrList);
> <a name=234>233</a>:
> <a name=235>234</a>: ######################### HTML START #########################
> <a name=236>235</a>:
> <a name=237>236</a>: ; $main::Response->WriteRef(\('
> <a name=238>237</a>: <html>
> <a name=239>238</a>: <head>
> <a name=240>239</a>: '));
> <a name=241>240</a>:
>######################################################################
> <a name=242>241</a>: # head.inc
> <a name=243>242</a>: #
> <a name=244>243</a>: # use: include in the <head> block on every page and
>add onload="init()"
> <a name=245>244</a>: # to the <body> tag on every page
> <a name=246>245</a>: #
> <a name=247>246</a>: # purpose: defines the meta tags and stylesheets for the page,
> <a name=248>247</a>: # sets the timeout redirect, sets the page title
> <a name=249>248</a>: # and creates the menus to be used in the nav bar
> <a name=250>249</a>: #
> <a name=251>250</a>: # prerequisites: the value of $pagetitle describing the
>specific page
> <a name=252>251</a>: # is set in each page where this include is used
> <a name=253>252</a>: #
> <a name=254>253</a>: # Created By: Will Stevenson, Dexter Lieu
> <a name=255>254</a>: # Last Update: 09/29/2000
> <a name=256>255</a>: #
> <a name=257>256</a>:
>######################################################################
> <a name=258>257</a>:
> <a name=259>258</a>: use vars qw($pagetitle);
> <a name=260>259</a>:
> <a name=261>260</a>: # Put go.script include file here rather than in each htm file.
> <a name=262>261</a>: if ($asppage =~
>/^(searchCircuit|searchBandwidth|searchService|viewCircuitService|editservice|addSecondary)/)
> {
> <a name=263>262</a>: ; $main::Response->WriteRef(\(' <script
>language="JavaScript">
> <a name=264>263</a>: <!--
> <a name=265>264</a>:
>if(document.layers){origWidth=innerWidth;origHeight=innerHeight;onresize=function(){if(innerWidth!=origWidth||innerHeight!=origHeight)location.reload()}}
> <a name=266>265</a>: function MM_showHideLayers() { //v2.0
> <a name=267>266</a>: var i, visStr, args, theObj;
> <a name=268>267</a>: args = MM_showHideLayers.arguments;
> <a name=269>268</a>: for (i=0; i<(args.length-2); i+=3) { //with arg triples
>(objNS,objIE,visStr)
> <a name=270>269</a>: visStr = args[i+2];
> <a name=271>270</a>: if (navigator.appName == \'Netscape\' &&
>document.layers != null) {
> <a name=272>271</a>: theObj = eval(args[i]);
> <a name=273>272</a>: if (theObj) theObj.visibility = visStr;
> <a name=274>273</a>: } else if (document.all != null) { //IE
> <a name=275>274</a>: if (visStr == \'show\') visStr = \'visible\'; //convert
>vals
> <a name=276>275</a>: if (visStr == \'hide\') visStr = \'hidden\';
> <a name=277>276</a>: theObj = eval(args[i+1]);
> <a name=278>277</a>: if (theObj) theObj.style.visibility = visStr;
> <a name=279>278</a>: } }
> <a name=280>279</a>: }
> <a name=281>280</a>:
> <a name=282>281</a>: function PopSearch(){
> <a name=283>282</a>: var QUERY=prompt("Enter Search Term",
>"");
> <a name=284>283</a>: if (QUERY) {
> <a name=285>284</a>:
>document.location.href="/cgi-bin/nph-seek.cgi/query.html?qt="+QUERY;
> <a name=286>285</a>: }
> <a name=287>286</a>: }
> <a name=288>287</a>: //-->
> <a name=289>288</a>: </script>
> <a name=290>289</a>: '));
> <a name=291>290</a>: }
> <a name=292>291</a>:
> <a name=293>292</a>:
> <a name=294>293</a>: ; $main::Response->WriteRef(\('
> <a name=295>294</a>:
> <a name=296>295</a>:
> <a name=297>296</a>: <meta http-equiv="Pragma"
>content="No-cache">
> <a name=298>297</a>: <meta http-equiv="Content-Type"
>content="text/html; charset=iso-8859-1">
> <a name=299>298</a>: <meta http-equiv="refresh"
>content="'.(($Session->{'Timeout'}*60) ).';URL=logout.htm">
> <a name=300>299</a>:
> <a name=301>300</a>: <noscript>
> <a name=302>301</a>: <!-- in case the user is not using javascript we send them
>to infosource
> <a name=303>302</a>: which has a nice red page that tells them how to enable it
>-->
> <a name=304>303</a>: <meta http-equiv="refresh"
>content="0;URL=http://infosource.internap.com/">
> <a name=305>304</a>: </noscript>
> <a name=306>305</a>:
> <a name=307>306</a>: <link rel="stylesheet" type="text/css"
>href="/track.css">
> <a name=308>307</a>: <link rel="stylesheet" type="text/css"
>href="/sub.css">
> <a name=309>308</a>: <link rel="stylesheet" type="text/css"
>href="netcfg.css">
> <a name=310>309</a>:
> <a name=311>310</a>: <title>'));
>$Response->Write("$Application->{'Application'}
>$Application->{'CVS_Version'}");; $main::Response->WriteRef(\(' |
>'.($pagetitle).'</title>
> <a name=312>311</a>:
> <a name=313>312</a>: <script language="JavaScript1.2"
>SRC="./inc/menu.js"></script>
> <a name=314>313</a>: <script language="JavaScript1.2"
>SRC="./inc/dhtmllib.js"></script>
> <a name=315>314</a>:
> <a name=316>315</a>: <script language="JavaScript1.2">
> <a name=317>316</a>:
> <a name=318>317</a>: '));
> <a name=319>318</a>: #check for errormsgs
> <a name=320>319</a>: if($Session->{ERRORMSG} ne ''){
> <a name=321>320</a>: ; $main::Response->WriteRef(\('
> <a name=322>321</a>: top.errorWindow =
>window.open(\'error.htm\',\'errorWindow\',\'scrollbars=yes,titlebar=no,dependent=yes,width=400,height=400,screenX=200,screenY=200\');
> <a name=323>322</a>: top.errorWindow.focus();
> <a name=324>323</a>: '));}; $main::Response->WriteRef(\('
> <a name=325>324</a>:
> <a name=326>325</a>: //<!--
> <a name=327>326</a>: var isNetscape=0;
> <a name=328>327</a>: var isIE=0;
> <a name=329>328</a>:
> <a name=330>329</a>: //This is to fix netscape bug with style sheets;
> <a name=331>330</a>: //Reload the document if resized;
> <a name=332>331</a>: function onResize(){
> <a name=333>332</a>:
> <a name=334>333</a>: //Netscape has a bug and needs to be reloaded after resized
>if it
> <a name=335>334</a>: //contains css or dhtml
> <a name=336>335</a>: if(isNetscape){
> <a name=337>336</a>: location.reload();
> <a name=338>337</a>: }
> <a name=339>338</a>: }
> <a name=340>339</a>:
> <a name=341>340</a>:
> <a name=342>341</a>: //global menus
> <a name=343>342</a>:
> <a name=344>343</a>: /***************************************************************
> <a name=345>344</a>: * client side initialization of NEIS::Network Configuration
> <a name=346>345</a>: */
> <a name=347>346</a>: function init(){
> <a name=348>347</a>:
> <a name=349>348</a>: //which browser?
> <a name=350>349</a>: if(navigator.appName.indexOf("Internet Explorer")
>!= -1){
> <a name=351>350</a>: isIE=1;
> <a name=352>351</a>: }
> <a name=353>352</a>: if( navigator.appName.indexOf("Netscape") != -1){
> <a name=354>353</a>: isNetscape=1;
> <a name=355>354</a>: }
> <a name=356>355</a>: if(!isNetscape && !isIE){
> <a name=357>356</a>: alert(navigator.appName + " is an unsupported browser
>for NEIS::Network Configuration. \\n Use at your own risk.");
> <a name=358>357</a>: }
> <a name=359>358</a>:
> <a name=360>359</a>: // if we are using netscape we can create menus right now
> <a name=361>360</a>: // else we will create the menus in ./inc/header.inc for IE
> <a name=362>361</a>: if(isNetscape){
> <a name=363>362</a>: CreateMenus();
> <a name=364>363</a>: }
> <a name=365>364</a>:
> <a name=366>365</a>: window.document.onkeyup=function(event){
> <a name=367>366</a>: if( !isNetscape){
> <a name=368>367</a>: event=window.event;
> <a name=369>368</a>: }
> <a name=370>369</a>:
> <a name=371>370</a>: if (event){
> <a name=372>371</a>: var charCode = (navigator.appName ==
>"Netscape") ? event.which : event.keyCode;
> <a name=373>372</a>: var actualChar = String.fromCharCode(charCode);
> <a name=374>373</a>: }
> <a name=375>374</a>: } //end function(event)
> <a name=376>375</a>: } // end init()
> <a name=377>376</a>:
> <a name=378>377</a>:
> <a name=379>378</a>: /**********************************************************
> <a name=380>379</a>: * Creates the menus for NEIS Net Config (NCM)
> <a name=381>380</a>: */
> <a name=382>381</a>:
> <a name=383>382</a>: var myMenu;
> <a name=384>383</a>: var mainMenu;
> <a name=385>384</a>: var roleMenu;
> <a name=386>385</a>:
> <a name=387>386</a>: function CreateMenus(){
> <a name=388>387</a>: // create main menu; items to be added via navmenu.htm
> <a name=389>388</a>: mainMenu = new Menu("main");
> <a name=390>389</a>:
> <a name=391>390</a>: // get the menu options from navmenu.htm
> <a name=392>391</a>: '));
> <a name=393>392</a>:
>#################################################################################
> <a name=394>393</a>: #
> <a name=395>394</a>: # navmenu.inc
> <a name=396>395</a>: #
> <a name=397>396</a>: # use: this file is included in head.inc; so, as long as
>head.inc is included
> <a name=398>397</a>: # in the file, this file does not have to be
>explicitly included as well
> <a name=399>398</a>: #
> <a name=400>399</a>: # purpose: used to generate the options in the main menu,
>based on the current
> <a name=401>400</a>: # page and context
> <a name=402>401</a>: #
> <a name=403>402</a>: # prerequisites: the boolean $allowEdit must be defined in
>each page (this
> <a name=404>403</a>: # determines if the add links are
>displayed)
> <a name=405>404</a>: #
> <a name=406>405</a>: # comment: it may be better to not try to suppress the add
>links based on role,
> <a name=407>406</a>: # and just let the role security in the
>add pages reject users without
> <a name=408>407</a>: # the right access
> <a name=409>408</a>: #
> <a name=410>409</a>: # Created By: Dexter Lieu
> <a name=411>410</a>: # Last Revision: 10/16/2000
> <a name=412>411</a>: #
> <a name=413>412</a>:
>#################################################################################
> <a name=414>413</a>:
> <a name=415>414</a>: ### define hash of context-sensitive help docs
> <a name=416>415</a>:
> <a name=417>416</a>: ### done just in case someone forgets to define this var
> <a name=418>417</a>: use vars qw($allowEdit);
> <a name=419>418</a>:
> <a name=420>419</a>: my %helpdoc = (
> <a name=421>420</a>: "index.htm"
> => "ncm30.htm",
> <a name=422>421</a>: "addLinkGroup.htm" =>
>"about_links_and_link_groups.htm",
> <a name=423>422</a>: "addNode.htm" =>
>"about_nodes.htm",
> <a name=424>423</a>: "editEndpoint.htm" =>
>"about_endpoints.htm",
> <a name=425>424</a>: "editInstalledAsset.htm" =>
>"about_assets.htm",
> <a name=426>425</a>: "editLinks.htm"
> => "about_links_and_link_groups.htm",
> <a name=427>426</a>: "editLinkGroup.htm" =>
>"about_links_and_link_groups.htm",
> <a name=428>427</a>: "editNode.htm"
> => "about_nodes.htm",
> <a name=429>428</a>: "listBWServices.htm" =>
>"to_navigate_from_search_results.htm",
> <a name=430>429</a>: "listCircuits.htm" =>
>"to_navigate_from_search_results.htm",
> <a name=431>430</a>: "pickAsset.htm"
> => "about_assets.htm",
> <a name=432>431</a>: "pickEndpoint.htm" =>
>"about_endpoints.htm",
> <a name=433>432</a>: "pickLocation.htm" =>
>"about_locations.htm",
> <a name=434>433</a>: "pickNode.htm"
> => "about_nodes.htm",
> <a name=435>434</a>: "pickRack.htm"
> => "about_racks.htm",
> <a name=436>435</a>: "refineAsset.htm" =>
>"refining_a_search.htm",
> <a name=437>436</a>: "refineEndpoint.htm" =>
>"refining_a_search.htm",
> <a name=438>437</a>: "refineLocation.htm" =>
>"refining_a_search.htm",
> <a name=439>438</a>: "refineNode.htm" =>
>"refining_a_search.htm",
> <a name=440>439</a>: "refineRack.htm" =>
>"refining_a_search.htm",
> <a name=441>440</a>: "searchBandwidthService.htm"
>=> "about_bandwidth_services.htm",
> <a name=442>441</a>: "searchCircuit.htm" =>
>"about_circuits_and_secondary_circuits.htm",
> <a name=443>442</a>: "searchLinkGroup.htm" =>
>"searching_for_link_groups.htm",
> <a name=444>443</a>: "searchNode.htm" =>
>"about_nodes.htm",
> <a name=445>444</a>: "viewEndpoints.htm" =>
>"to_navigate_from_search_results.htm",
> <a name=446>445</a>: "viewInstalledAssets.htm" =>
>"to_navigate_from_search_results.htm",
> <a name=447>446</a>: "viewLinkGroups.htm" =>
>"to_navigate_from_search_results.htm",
> <a name=448>447</a>: "viewNodes.htm"
> => "to_navigate_from_search_results.htm"
> <a name=449>448</a>: );
> <a name=450>449</a>:
> <a name=451>450</a>:
> <a name=452>451</a>:
> <a name=453>452</a>:
> <a name=454>453</a>:
> <a name=455>454</a>:
> <a name=456>455</a>:
> <a name=457>456</a>:
>#################################################################################
> <a name=458>457</a>: # add menu options for the viewEndpoints.htm page
> <a name=459>458</a>:
>#################################################################################
> <a name=460>459</a>: if ($asppage =~ /viewEndpoints/)
> <a name=461>460</a>: { ; $main::Response->WriteRef(\('
> <a name=462>461</a>: mainMenu.addMenuItem("Back to Nodes List",
>"document.location.href=\'viewNodes.htm\'");
> <a name=463>462</a>: <!-- mainMenu.addMenuItem("Search Nodes",
>"document.location.href=\'searchNode.htm\'"); -->
> <a name=464>463</a>: mainMenu.addMenuSeparator();
> <a name=465>464</a>: ')); if ($allowEdit)
> <a name=466>465</a>: { ; $main::Response->WriteRef(\('
> <a name=467>466</a>: mainMenu.addMenuItem("Add
>Endpoints",
>"document.location.href=\'editEndpoint.htm?nodeOID='.($g_nodeOID).'\'");
> <a name=468>467</a>: mainMenu.addMenuSeparator();
> <a name=469>468</a>: ')); } ; $main::Response->WriteRef(\('
> <a name=470>469</a>: ')); }
> <a name=471>470</a>:
> <a name=472>471</a>:
> <a name=473>472</a>:
>#################################################################################
> <a name=474>473</a>: # add menu options for the viewInstalledAssets.htm page
> <a name=475>474</a>:
>#################################################################################
> <a name=476>475</a>: if ($asppage =~ /viewInstalledAssets/)
> <a name=477>476</a>: { ; $main::Response->WriteRef(\('
> <a name=478>477</a>: mainMenu.addMenuItem("Back to Nodes List",
>"document.location.href=\'viewNodes.htm\'");
> <a name=479>478</a>: <!-- mainMenu.addMenuItem("Search Nodes",
>"document.location.href=\'searchNode.htm\'"); -->
> <a name=480>479</a>: mainMenu.addMenuSeparator();
> <a name=481>480</a>: ')); if ($allowEdit)
> <a name=482>481</a>: { ; $main::Response->WriteRef(\('
> <a name=483>482</a>: mainMenu.addMenuItem("Add Installed
>Asset",
>"document.location.href=\'editInstalledAsset.htm?OID='.($g_nodeOID).'\'");
> <a name=484>483</a>: mainMenu.addMenuSeparator();
> <a name=485>484</a>: ')); } ; $main::Response->WriteRef(\('
> <a name=486>485</a>: ')); }
> <a name=487>486</a>:
> <a name=488>487</a>:
> <a name=489>488</a>:
>#################################################################################
> <a name=490>489</a>: # add common options to all menus except the denied page
> <a name=491>490</a>:
>#################################################################################
> <a name=492>491</a>: if ( $asppage !~ /(denied|logout)/ ) {
> <a name=493>492</a>:
> <a name=494>493</a>:
> <a name=495>494</a>:
>#################################################################################
> <a name=496>495</a>: # add menu options for adding a node
> <a name=497>496</a>:
>#################################################################################
> <a name=498>497</a>: if (NCM::Nodes::checkUserRole($Session->{'Role'}, 'NODE'))
> <a name=499>498</a>: { ; $main::Response->WriteRef(\('
> <a name=500>499</a>: mainMenu.addMenuItem("Add a Node",
>"document.location.href=\'addNode.htm?origPage='.($asppage).'\'");
> <a name=501>500</a>: mainMenu.addMenuSeparator();
> <a name=502>501</a>: ')); }
> <a name=503>502</a>:
> <a name=504>503</a>:
> <a name=505>504</a>:
>#################################################################################
> <a name=506>505</a>: # add menu options for adding linkgroups
> <a name=507>506</a>:
>#################################################################################
> <a name=508>507</a>: if (NCM::Nodes::checkUserRole($Session->{'Role'}, 'LINK'))
> <a name=509>508</a>: { ; $main::Response->WriteRef(\('
> <a name=510>509</a>: mainMenu.addMenuItem("Add a Link Group",
>"document.location.href=\'editLinkGroup.htm?origPage='.($asppage).'\'");
> <a name=511>510</a>: mainMenu.addMenuItem("Add a PNAP",
>"document.location.href=\'addPNAP.htm\'");
> <a name=512>511</a>: mainMenu.addMenuSeparator();
> <a name=513>512</a>: ')); }
> <a name=514>513</a>: ; $main::Response->WriteRef(\('
> <a name=515>514</a>: mainMenu.addMenuItem("Go To Asset",
>"javascript:GoToAsset();");
> <a name=516>515</a>: mainMenu.addMenuItem("Go To Link Group",
>"javascript:GoToLG();");
> <a name=517>516</a>: mainMenu.addMenuItem("Go To Service",
>"javascript:GoToSVC();");
> <a name=518>517</a>: mainMenu.addMenuSeparator();
> <a name=519>518</a>: mainMenu.addMenuItem("Search Bandwidth
>Services", "document.location.href=\'searchBandwidthService.htm\'");
> <a name=520>519</a>: mainMenu.addMenuItem("Search Circuit
>Services", "document.location.href=\'searchCircuit.htm\'");
> <a name=521>520</a>: mainMenu.addMenuItem("Search Link Groups and
>Links", "document.location.href=\'searchLinkGroup.htm\'");
> <a name=522>521</a>: mainMenu.addMenuItem("Search Nodes and
>Endpoints", "document.location.href=\'searchNode.htm\'");
> <a name=523>522</a>: mainMenu.addMenuItem("Search Services",
>"document.location.href=\'searchService.htm\'");
> <a name=524>523</a>: ')); if ($Session->{'Role'} =~ /^NCMADM$/) { ;
>$main::Response->WriteRef(\('
> <a name=525>524</a>: mainMenu.addMenuSeparator();
> <a name=526>525</a>: <!-- mainMenu.addMenuItem("Administer Roles",
>"document.location.href=\'roleAdmin.htm\'"); -->
> <a name=527>526</a>: mainMenu.addMenuItem("Administer Roles",
>"document.location.href=\''.($INAP::NEIS::Application->{'RolesLocation'}).'/index.htm?rct=NEIS&logo=/apps/netcfg/images/netconfig.gif\'");
> <a name=528>527</a>: ')); } ; $main::Response->WriteRef(\('
> <a name=529>528</a>: mainMenu.addMenuSeparator();
> <a name=530>529</a>: mainMenu.addMenuItem("NCM Home",
>"document.location.href=\'index.htm\'");
> <a name=531>530</a>: mainMenu.addMenuSeparator();
> <a name=532>531</a>: mainMenu.addMenuItem("Help",
>"open(\'https://infosource.internap.com/appdocs/ncm/WebHelp/index.htm\',\'helpwindow\',\'scrollbars\');");
> <a name=533>532</a>:
> <a name=534>533</a>: //// mainMenu.addMenuItem("Help",
>"open(\'https://infosource.internap.com/apps/ncm/webhelp/'.($helpdoc{$asppage}).'\',\'helpwindow\',\'scrollbars\');");
> <a name=535>534</a>:
> <a name=536>535</a>: ')); } elsif ( $asppage =~ /(denied|logout)/ ) { ;
>$main::Response->WriteRef(\('
> <a name=537>536</a>: mainMenu.addMenuItem("NCM Home",
>"document.location.href=\'index.htm\'");
> <a name=538>537</a>: ')); }
> <a name=539>538</a>: ; $main::Response->WriteRef(\('
> <a name=540>539</a>:
> <a name=541>540</a>:
> <a name=542>541</a>: setupMenu(mainMenu,\'grayblue\');
> <a name=543>542</a>:
> <a name=544>543</a>: //located in ./inc/header.inc
> <a name=545>544</a>: createRoleMenu("'.($Session->{'Role'}).'");
> <a name=546>545</a>:
> <a name=547>546</a>: mainMenu.writeMenus();
> <a name=548>547</a>: }
> <a name=549>548</a>:
> <a name=550>549</a>: function setupMenu( menu, type){
> <a name=551>550</a>: menu.enableHideOnMouseOut=1;
> <a name=552>551</a>: menu.menuBorder=0;
> <a name=553>552</a>: menu.menuItemHeight=0;
> <a name=554>553</a>: menu.menuItemBorder=0;
> <a name=555>554</a>: menu.menuHiliteBgColor="#cccccc";
> <a name=556>555</a>: menu.fontSize=12;
> <a name=557>556</a>:
> <a name=558>557</a>: if(type==\'white\'){
> <a name=559>558</a>: menu.fontColor = "blue";
> <a name=560>559</a>: menu.bgColor = "#dddddd";
> <a name=561>560</a>: menu.menuItemBgColor = "white";
> <a name=562>561</a>: menu.menuHiliteBgColor = "#a6b9e9";
> <a name=563>562</a>: }
> <a name=564>563</a>:
> <a name=565>564</a>: if(type==\'grayblue\'){
> <a name=566>565</a>: menu.fontColorHilite = "#0000ff";
> <a name=567>566</a>: }
> <a name=568>567</a>: }
> <a name=569>568</a>:
> <a name=570>569</a>:
> <a name=571>570</a>: // Note from Dex: I don\'t think we need these last three menus,
> <a name=572>571</a>: // but they may become useful so I\'m leaving them in for now
> <a name=573>572</a>:
> <a name=574>573</a>: function ShowUserMenu( UserName){
> <a name=575>574</a>: if(UserName != "No data"){
> <a name=576>575</a>: userMenu = new Menu(UserName);
> <a name=577>576</a>: userMenu.addMenuItem("Infosource Page",
>"document.location.href=\'https://infosource.internap.com/corp/staff/info.htm?login="+UserName+"\'");
> <a name=578>577</a>: userMenu.addMenuSeparator();
> <a name=579>578</a>: userMenu.addMenuItem("Email",
>"document.location.href=\'mailto:"+UserName+"@internap.com\'");
> <a name=580>579</a>: userMenu.addMenuItem("Page",
>"document.location.href=\'https://infosource.internap.com/corp/staff/page.htm?login="+UserName+"\'");
> <a name=581>580</a>: setupMenu(userMenu,\'white\');
> <a name=582>581</a>: userMenu.writeMenus();
> <a name=583>582</a>: showMenu(userMenu);
> <a name=584>583</a>: }
> <a name=585>584</a>: }
> <a name=586>585</a>:
> <a name=587>586</a>: function NewContact(){
> <a name=588>587</a>: top.contactWindow =
>window.open(\'newcontact.htm\',\'contactWindow\',\'titlebar=no,dependent=yes,width=300,height=200,screenX=100,screenY=100\');
> <a name=589>588</a>: top.contactWindow.focus();
> <a name=590>589</a>:
> <a name=591>590</a>: document.FNewContact.target=\'contactWindow\';
> <a name=592>591</a>: document.FNewContact.submit();
> <a name=593>592</a>: }
> <a name=594>593</a>:
> <a name=595>594</a>: function GetUserInfo( UserName){
> <a name=596>595</a>:
>document.location.href="https://infosource.internap.com/corp/staff/info.htm?login="+UserName;
> <a name=597>596</a>: }
> <a name=598>597</a>:
> <a name=599>598</a>: //***************************************
> <a name=600>599</a>: //Navigates to the next service
> <a name=601>600</a>: //
> <a name=602>601</a>: //
> <a name=603>602</a>: function GoToSVC(){
> <a name=604>603</a>: var SVCOID=prompt("Enter Service",
>"'.($Session->{'LastsvcOID'}).'");
> <a name=605>604</a>: if(SVCOID!=null){
> <a name=606>605</a>: if(isNaN(SVCOID))
> <a name=607>606</a>: alert(\'Sorry. You did not enter a valid number\');
> <a name=608>607</a>: else
> <a name=609>608</a>:
>document.location.href="viewCircuitService.htm?SVCOID="+SVCOID;
> <a name=610>609</a>: }
> <a name=611>610</a>: }
> <a name=612>611</a>:
> <a name=613>612</a>: //***************************************
> <a name=614>613</a>: //Navigates to the asset
> <a name=615>614</a>: //
> <a name=616>615</a>: //
> <a name=617>616</a>: function GoToAsset(){
> <a name=618>617</a>: var ASTNBR=prompt("Enter Asset Tag","");
> <a name=619>618</a>: if(ASTNBR.length > 0){
> <a name=620>619</a>: if(isNaN(ASTNBR))
> <a name=621>620</a>: alert(\'Sorry. You did not enter a valid number\');
> <a name=622>621</a>: else
> <a name=623>622</a>:
>document.location.href="viewNodes.htm?assetTag="+ASTNBR;
> <a name=624>623</a>: } else {
> <a name=625>624</a>: alert(\'Sorry. You did not enter a valid number\');
> <a name=626>625</a>: }
> <a name=627>626</a>: }
> <a name=628>627</a>:
> <a name=629>628</a>: //***************************************
> <a name=630>629</a>: //Navigates to the next link group
> <a name=631>630</a>: //
> <a name=632>631</a>: //
> <a name=633>632</a>: function GoToLG(){
> <a name=634>633</a>: var LGOID=prompt("Enter Link Group",
>"'.($Session->{'searchLinkGroupOID'}).'");
> <a name=635>634</a>: if(LGOID!=null){
> <a name=636>635</a>: if(isNaN(LGOID)) {
> <a name=637>636</a>: alert(\'Sorry. You did not enter a valid number\');
> <a name=638>637</a>: return 0;
> <a name=639>638</a>: } else {
> <a name=640>639</a>:
>document.FGoToLinkGroupDetail.searchLinkGroupOID.value=LGOID;
> <a name=641>640</a>: document.FGoToLinkGroupDetail.submit();
> <a name=642>641</a>: }
> <a name=643>642</a>: }
> <a name=644>643</a>: }
> <a name=645>644</a>:
> <a name=646>645</a>: /***************************************************
> <a name=647>646</a>: * Function is used to submit the LinkGroupOID to
> <a name=648>647</a>: * the View Link Group page
> <a name=649>648</a>: *
> <a name=650>649</a>: */
> <a name=651>650</a>: function GoToLinkGroupDetail(linkgroupOID){
> <a name=652>651</a>:
>document.FGoToLinkGroupDetail.searchLinkGroupOID.value=linkgroupOID;
> <a name=653>652</a>: document.FGoToLinkGroupDetail.submit();
> <a name=654>653</a>: }
> <a name=655>654</a>: /**********************************************************
> <a name=656>655</a>: TOOL TIP
> <a name=657>656</a>: Timing and positioning constants for tool tip display.
> <a name=658>657</a>: */
> <a name=659>658</a>:
> <a name=660>659</a>:
> <a name=661>660</a>: var toolTipWait = 1000; // Delay before showing tool tip.
> <a name=662>661</a>: var toolTipShow = 25000; // Time to keep tool tip active.
> <a name=663>662</a>: var toolTipxOff = 0; // Horizontal distance from mouse.
> <a name=664>663</a>: var toolTipyOff = 20; // Vertical distance from mouse.
> <a name=665>664</a>:
> <a name=666>665</a>: function startToolTip(name) {
> <a name=667>666</a>: var tip = getLayer(name);
> <a name=668>667</a>: // Clear out any pending timer.
> <a name=669>668</a>: if (tip.timerID)
> <a name=670>669</a>: clearTimeout(tip.timerID);
> <a name=671>670</a>:
> <a name=672>671</a>: // Set timer to show tool tip.
> <a name=673>672</a>: tip.timerID = setTimeout(\'showToolTip("\' + name +
>\'")\', toolTipWait);
> <a name=674>673</a>: }
> <a name=675>674</a>:
> <a name=676>675</a>: function showToolTip(name) {
> <a name=677>676</a>: var tip = getLayer(name);
> <a name=678>677</a>: // Clear out any pending timer.
> <a name=679>678</a>: if (tip.timerID)
> <a name=680>679</a>: clearTimeout(tip.timerID);
> <a name=681>680</a>:
> <a name=682>681</a>: // Position and show the tool tip.
> <a name=683>682</a>: moveLayerTo(tip, window.pageX + toolTipxOff, window.pageY +
>toolTipyOff);
> <a name=684>683</a>: showLayer(tip);
> <a name=685>684</a>: // Set timer to hide the tool tip after a delay.
> <a name=686>685</a>: tip.timerID = setTimeout(\'hideToolTip("\' + name +
>\'")\', toolTipShow);
> <a name=687>686</a>: }
> <a name=688>687</a>:
> <a name=689>688</a>: function hideToolTip(name) {
> <a name=690>689</a>: var tip = getLayer(name);
> <a name=691>690</a>: // Clear out any pending timer.
> <a name=692>691</a>: if (tip.timerID)
> <a name=693>692</a>: clearTimeout(tip.timerID);
> <a name=694>693</a>:
> <a name=695>694</a>: hideLayer(tip);
> <a name=696>695</a>: }
> <a name=697>696</a>: //-->
> <a name=698>697</a>: </script>
> <a name=699>698</a>:
> <a name=700>699</a>: <script language="JavaScript">
> <a name=701>700</a>: <!--
> <a name=702>701</a>:
>if(document.layers){origWidth=innerWidth;origHeight=innerHeight;onresize=function(){if(innerWidth!=origWidth||innerHeight!=origHeight)location.reload()}}
> <a name=703>702</a>: function MM_showHideLayers() { //v2.0
> <a name=704>703</a>: var i, visStr, args, theObj;
> <a name=705>704</a>: args = MM_showHideLayers.arguments;
> <a name=706>705</a>: for (i=0; i<(args.length-2); i+=3) { //with arg triples
>(objNS,objIE,visStr)
> <a name=707>706</a>: visStr = args[i+2];
> <a name=708>707</a>: if (navigator.appName == \'Netscape\' &&
>document.layers != null) {
> <a name=709>708</a>: theObj = eval(args[i]);
> <a name=710>709</a>: if (theObj) theObj.visibility = visStr;
> <a name=711>710</a>: } else if (document.all != null) { //IE
> <a name=712>711</a>: if (visStr == \'show\') visStr = \'visible\'; //convert
>vals
> <a name=713>712</a>: if (visStr == \'hide\') visStr = \'hidden\';
> <a name=714>713</a>: theObj = eval(args[i+1]);
> <a name=715>714</a>: if (theObj) theObj.style.visibility = visStr;
> <a name=716>715</a>: } }
> <a name=717>716</a>: }
> <a name=718>717</a>:
> <a name=719>718</a>: function PopSearch(){
> <a name=720>719</a>: var QUERY=prompt("Enter Search Term",
>"");
> <a name=721>720</a>: if (QUERY) {
> <a name=722>721</a>:
>document.location.href="/cgi-bin/nph-seek.cgi/query.html?qt="+QUERY;
> <a name=723>722</a>: }
> <a name=724>723</a>: }
> <a name=725>724</a>: //-->
> <a name=726>725</a>: </script>
> <a name=727>726</a>:
> <a name=728>727</a>: </head>
> <a name=729>728</a>: <body onLoad="init()">
> <a name=730>729</a>: '));
> <a name=731>730</a>:
> <a name=732>731</a>: # this file is included in the <body> tag of every page
> <a name=733>732</a>: # and generates the role menu and HTML for the header
> <a name=734>733</a>: # (company logo, application gif, nav bar)
> <a name=735>734</a>:
> <a name=736>735</a>: ; $main::Response->WriteRef(\('
> <a name=737>736</a>:
> <a name=738>737</a>: <script language="JavaScript1.2">
> <a name=739>738</a>: <!--
> <a name=740>739</a>:
> <a name=741>740</a>: function ChangeRole(role) {
> <a name=742>741</a>: document.FChangeRole.role.value=role;
> <a name=743>742</a>: document.FChangeRole.submit();
> <a name=744>743</a>: }
> <a name=745>744</a>:
> <a name=746>745</a>: function createRoleMenu() {
> <a name=747>746</a>: roleMenu=new Menu("role");
> <a name=748>747</a>:
> <a name=749>748</a>:
> <a name=750>749</a>: ')); if ($Session->{'Role'}) { ;
>$main::Response->WriteRef(\('
> <a name=751>750</a>:
> <a name=752>751</a>:
> <a name=753>752</a>:
>roleMenu.addMenuItem("'.($Session->{'RoleLong'}).'");
> <a name=754>753</a>:
> <a name=755>754</a>:
> <a name=756>755</a>: '));
> <a name=757>756</a>: }
> <a name=758>757</a>:
> <a name=759>758</a>: if ($Session->{'Roles'}) {
> <a name=760>759</a>: my @Roles = @{$Session->{'Roles'}};
> <a name=761>760</a>: my @RolesLong = @{$Session->{'RolesLong'}};
> <a name=762>761</a>: my $role;
> <a name=763>762</a>: my $roleCounter = 0;
> <a name=764>763</a>:
> <a name=765>764</a>: foreach $role (@Roles) {
> <a name=766>765</a>:
> <a name=767>766</a>: unless ($role eq $Session->{'Role'}) { ;
>$main::Response->WriteRef(\('
> <a name=768>767</a>:
> <a name=769>768</a>: roleMenu.addMenuItem("'.(
>$RolesLong[$roleCounter] ).'","ChangeRole(\''.( $role ).'\');");
> <a name=770>769</a>:
> <a name=771>770</a>:
> <a name=772>771</a>: '));
> <a name=773>772</a>: }
> <a name=774>773</a>: $roleCounter++;
> <a name=775>774</a>: }
> <a name=776>775</a>:
> <a name=777>776</a>: if ($Session->{'Role'} =~ /^NCMADM$/) {
> <a name=778>777</a>: ; $main::Response->WriteRef(\('
> <a name=779>778</a>: roleMenu.addMenuSeparator();
> <a name=780>779</a>:
> <a name=781>780</a>: roleMenu.addMenuItem("Administer Roles",
>"document.location.href=\''.( $INAP::NEIS::Application->{'RolesLocation'}
>).'/index.htm?rct=NEIS&logo=/apps/netcfg/images/netconfig.gif\'");
> <a name=782>781</a>: '));
> <a name=783>782</a>: }
> <a name=784>783</a>: ; $main::Response->WriteRef(\('
> <a name=785>784</a>:
> <a name=786>785</a>: setupMenu(roleMenu,\'grayblue\');
> <a name=787>786</a>: '));
> <a name=788>787</a>: } ### end if
> <a name=789>788</a>:
> <a name=790>789</a>: ; $main::Response->WriteRef(\('
> <a name=791>790</a>:
> <a name=792>791</a>: } // end function
> <a name=793>792</a>:
> <a name=794>793</a>: //-->
> <a name=795>794</a>: </script>
> <a name=796>795</a>:
> <a name=797>796</a>: <!-- form used to change user role -->
> <a name=798>797</a>: <form name="FChangeRole"
>method="post">
> <a name=799>798</a>: <input type="hidden" name="control"
>value="ChangeRole">
> <a name=800>799</a>: <input type="hidden" name="role">
> <a name=801>800</a>: </form>
> <a name=802>801</a>:
> <a name=803>802</a>: <!-- form used to move to the viewLinkGroups.htm page -->
> <a name=804>803</a>: <form name="FGoToLinkGroupDetail"
>method="post" action="viewLinkGroups.htm">
> <a name=805>804</a>: <input type="hidden"
>name="searchLinkGroupOID">
> <a name=806>805</a>: <input type="hidden" name="search"
>value="SEARCH">
> <a name=807>806</a>: </form>
> <a name=808>807</a>:
> <a name=809>808</a>: <!-- main nav -->
> <a name=810>809</a>: <table width="100%" cellpadding="0"
>cellspacing="0">
> <a name=811>810</a>: <tr>
> <a name=812>811</a>: <td><img src="../../images/info-sm2.gif"
>align="left" usemap="#gomenu" border="0"
>alt="InfoSource"></td>
> <a name=813>812</a>: <td align="right"> </td>
> <a name=814>813</a>: <td align="right" valign="top">
> <a name=815>814</a>: <a href="index.htm"><img
>src="./images/netconfig.gif" alt="Network Configuration"
>border="0"></a>
> <a name=816>815</a>: <font size="-1"
>color="red"><br>
> <a name=817>816</a>: <div align="center">
> <a name=818>817</a>: '));
> <a name=819>818</a>: $Response->Write("DEBUG MODE ON") if
>($Application->{'Debug'} eq "1");
> <a name=820>819</a>: ; $main::Response->WriteRef(\('
> <a name=821>820</a>: </div>
> <a name=822>821</a>: </font>
> <a name=823>822</a>: </td>
> <a name=824>823</a>: </tr>
> <a name=825>824</a>: </table>
> <a name=826>825</a>: <!-- end mainnav -->
> <a name=827>826</a>:
> <a name=828>827</a>: <script language="JavaScript1.2">
> <a name=829>828</a>: <!--
> <a name=830>829</a>: //this is nessecary for the menus to show up on IE.
> <a name=831>830</a>: //IE needs to create the menus after the <BODY> tag
> <a name=832>831</a>:
> <a name=833>832</a>: if(document.all){
> <a name=834>833</a>: CreateMenus();
> <a name=835>834</a>: }
> <a name=836>835</a>: //-->
> <a name=837>836</a>: </script>
> <a name=838>837</a>:
> <a name=839>838</a>:
> <a name=840>839</a>:
> <a name=841>840</a>: <!-- begin navbar -->
> <a name=842>841</a>: <table border="0" bgcolor="#0000AA"
>cellpadding="2" cellspacing="0" width="100%">
> <a name=843>842</a>: <tr>
> <a name=844>843</a>: <td align="left"
>class="navsm">Current User: '.($Session->{'FirstName'}).'
>'.($Session->{'LastName'}).'&nbsp&nbsp&nbsp
> <a name=845>844</a>: '));
> <a name=846>845</a>: if ($Session->{'Role'} ne '') {
> <a name=847>846</a>: if ($asppage eq "index.htm") { ;
>$main::Response->WriteRef(\('
> <a name=848>847</a>: Current Role: <a class="navsm"
>href="javascript:void(0)"
>onmouseover="window.showMenu(window.roleMenu);"
>>'.($Session->{'RoleLong'}).'</a>
> <a name=849>848</a>: ')); } else { ; $main::Response->WriteRef(\('
> <a name=850>849</a>: Current Role: '.($Session->{'RoleLong'}).'
> <a name=851>850</a>: ')); }
> <a name=852>851</a>: }
> <a name=853>852</a>: ; $main::Response->WriteRef(\('
> <a name=854>853</a>: </td>
> <a name=855>854</a>: <td align="right" class="navsm">
> <a name=856>855</a>: <!-- <a href="mywo.htm"
>onMouseOver="window.showMenu(window.myMenu);" class="navsm">My
>NetConfig</a>&nbsp;&nbsp;|&nbsp;&nbsp; -->
> <a name=857>856</a>: <a href="javascript:void(0)"
>onmouseover="window.showMenu(window.mainMenu);"
>class="navsm">Main Menu</a>
> <a name=858>857</a>:
>&nbsp;&nbsp;&nbsp;&nbsp;|&nbsp;&nbsp;&nbsp;&nbsp;
> <a name=859>858</a>: <a href="logout.htm"
>class="navsm">Sign Out</a> &nbsp;&nbsp;
> <a name=860>859</a>: </td>
> <a name=861>860</a>: </tr>
> <a name=862>861</a>: </table>
> <a name=863>862</a>: <!-- end navbar -->
> <a name=864>863</a>: <br>
> <a name=865>864</a>:
> <a name=866>865</a>:
> <a name=867>866</a>: <center>
> <a name=868>867</a>: <form method="POST">
> <a name=869>868</a>: <table border="0"
>cellpadding="4">
> <a name=870>869</a>: <tr>
> <a name=871>870</a>: <th class="header"
>colspan="9"><font size="+1">Nodes</font></th>
> <a name=872>871</a>: </tr>
> <a name=873>872</a>: <tr>
> <a name=874>873</a>: <td colspan="9">
> <a name=875>874</a>:
> <a name=876>875</a>: ')); ### if the user has edit
>rights, show the edit links
> <a name=877>876</a>: if ($allowEdit)
> <a name=878>877</a>: { ;
>$main::Response->WriteRef(\('
> <a name=879>878</a>: <img
>src="images/edite.gif" width="15" height="18"
>border="0" alt="Edit"> Edit
> <a name=880>879</a>: &nbsp;&nbsp;&nbsp;
> <a name=881>880</a>: ')); } ;
>$main::Response->WriteRef(\('
> <a name=882>881</a>:
> <a name=883>882</a>: <img
>src="images/editp.gif" width="15" height="18"
>border="0" alt="Endpoints"> Endpoints
> <a name=884>883</a>: &nbsp;&nbsp;&nbsp;
> <a name=885>884</a>: <img
>src="images/edita.gif" width="15" height="18"
>border="0" alt="Assets"> Assets
> <a name=886>885</a>: </td>
> <a name=887>886</a>: </tr>
> <a name=888>887</a>: <tr>
> <a name=889>888</a>: <th
>colspan="'.($editcols).'">Select:</th>
> <a name=890>889</a>: <td
>class="columnHeader">
> <a name=891>890</a>: <A
>href="'.($asppage).'?ordercolumn=NODENAME">Name</A>
> <a name=892>891</a>: </td>
> <a name=893>892</a>: <td
>class="columnHeader">
> <a name=894>893</a>: <A
>href="'.($asppage).'?ordercolumn=NODETYPE">Type</A>
> <a name=895>894</a>: </td>
> <a name=896>895</a>: <td
>class="columnHeader">
> <a name=897>896</a>: <A
>href="'.($asppage).'?ordercolumn=STATUS">Status</A>
> <a name=898>897</a>: </td>
> <a name=899>898</a>: <td
>class="columnHeader">
> <a name=900>899</a>: <A
>href="'.($asppage).'?ordercolumn=SITECODE">Site Code</A>
> <a name=901>900</a>: </td>
> <a name=902>901</a>: <td
>class="columnHeader">
> <a name=903>902</a>: <A
>href="'.($asppage).'?ordercolumn=LOCATIONDSCR">Location</A>
> <a name=904>903</a>: </td>
> <a name=905>904</a>: <td
>class="columnHeader">
> <a name=906>905</a>: <A
>href="'.($asppage).'?ordercolumn=RACKNBR">Rack #</A>
> <a name=907>906</a>: </td>
> <a name=908>907</a>: </tr>
> <a name=909>908</a>:
> <a name=910>909</a>: ')); ### Add the data to the table ###
> <a name=911>910</a>: my $iCount;
> <a name=912>911</a>: my $bgcolor;
> <a name=913>912</a>: for ($iCount = 0; $iCount < $nodecount;
>$iCount++)
> <a name=914>913</a>: {
> <a name=915>914</a>: # set the alternating row
>colors
> <a name=916>915</a>: if ($iCount%2 != 0) {
> <a name=917>916</a>: $bgcolor =
>"eeeeee"
> <a name=918>917</a>: } else {
> <a name=919>918</a>: $bgcolor =
>"ffffff"
> <a name=920>919</a>: }
> <a name=921>920</a>: ;
>$main::Response->WriteRef(\('
> <a name=922>921</a>: <tr>
> <a name=923>922</a>:
> <a name=924>923</a>: ')); ### if the user has edit rights,
>show the edit links
> <a name=925>924</a>: if ($allowEdit)
> <a name=926>925</a>: { ;
>$main::Response->WriteRef(\('
> <a name=927>926</a>:
> <a name=928>927</a>: <td><A
>href="editNode.htm?OID='.($nodeOIDList[$iCount]).'">
> <a name=929>928</a>: <img
>src="images/edite.gif" width="15" height="18"
>border="0" alt="Edit"></a>
> <a name=930>929</a>: </td>
> <a name=931>930</a>:
> <a name=932>931</a>: ')); } ;
>$main::Response->WriteRef(\('
> <a name=933>932</a>:
> <a name=934>933</a>: <td><A
>href="viewEndpoints.htm?OID='.($nodeOIDList[$iCount]).'&nodeName='.($nodeNameList[$iCount]).'">
> <a name=935>934</a>: <img
>src="images/editp.gif" width="15" height="18"
>border="0" alt="Endpoints"></a>
> <a name=936>935</a>: </td>
> <a name=937>936</a>: <td><A
>href="viewInstalledAssets.htm?OID='.($nodeOIDList[$iCount]).'">
> <a name=938>937</a>: <img
>src="images/edita.gif" width="15" height="18"
>border="0" alt="Assets"></a>
> <a name=939>938</a>: </td>
> <a name=940>939</a>: <td
>bgcolor="#'.($bgcolor).'">'.( $nodeNameList[$iCount]
>).'&nbsp;</td>
> <a name=941>940</a>: <td
>bgcolor="#'.($bgcolor).'">'.( $nodeTypeList[$iCount]
>).'&nbsp;</td>
> <a name=942>941</a>: <td
>bgcolor="#'.($bgcolor).'">'.( $statusList[$iCount]
>).'&nbsp;</td>
> <a name=943>942</a>: <td
>bgcolor="#'.($bgcolor).'">'.( $siteCodeList[$iCount]
>).'&nbsp;</td>
> <a name=944>943</a>: <td
>bgcolor="#'.($bgcolor).'">'.( $locationList[$iCount]
>).'&nbsp;</td>
> <a name=945>944</a>: <td
>bgcolor="#'.($bgcolor).'">'.( $rackList[$iCount] ).'&nbsp;</td>
> <a name=946>945</a>: </tr>
> <a name=947>946</a>:
> <a name=948>947</a>: ')); } ### end for loop
> <a name=949>948</a>: ; $main::Response->WriteRef(\('
> <a name=950>949</a>:
> <a name=951>950</a>: <tr>
> <a name=952>951</a>: <td colspan="9">
> <a name=953>952</a>: <font
>color="red">
> <a name=954>953</a>:
> <a name=955>954</a>: '));
> <a name=956>955</a>: if (0 == $nodecount)
> <a name=957>956</a>: { ; $main::Response->WriteRef(\('
> <a name=958>957</a>: <font
>size="+2">
> <a name=959>958</a>: No nodes were found with that
>search critera. Please try again.
> <a name=960>959</a>: </font>
> <a name=961>960</a>: ')); } else { ;
>$main::Response->WriteRef(\('
> <a name=962>961</a>: Your search returned
>'.($nodecount ).' nodes.
> <a name=963>962</a>: ')); } ;
>$main::Response->WriteRef(\('
> <a name=964>963</a>:
> <a name=965>964</a>: </font>
> <a name=966>965</a>: </td>
> <a name=967>966</a>: </tr>
> <a name=968>967</a>: </table>
> <a name=969>968</a>: <!-- SAVE THE SEARCH CRITERIA -->
> <a name=970>969</a>: <input type="hidden"
>name="searchNodeOID" value="'.($searchNodeOID).'">
> <a name=971>970</a>: <input type="hidden"
>name="searchNodeName" value="'.($searchNodeName).'">
> <a name=972>971</a>: <input type="hidden"
>name="searchNodeType" value="'.($searchNodeType).'">
> <a name=973>972</a>: <input type="hidden"
>name="searchNodeStatus" value="'.($searchNodeStatus).'">
> <a name=974>973</a>: <input type="hidden"
>name="searchSiteCode" value="'.($searchSiteCode).'">
> <a name=975>974</a>: <input type="hidden"
>name="searchLocation" value="'.($searchLocation).'">
> <a name=976>975</a>: <input type="hidden"
>name="searchRack" value="'.($searchRack).'">
> <a name=977>976</a>: </form>
> <a name=978>977</a>: </center>
> <a name=979>978</a>: <div align="center">Problems? Please <a
>href="javascript:document.FBug.submit();">let us
>know.</a></div>
> <a name=980>979</a>: <form name="FBug" method="get"
>action="/cgi-bin/itservices.cgi">
> <a name=981>980</a>: <input type="hidden" name="app"
>value="'));$Response->Write(qq($Application->{'Application'}
>$Application->{'CVS_Version'}));; $main::Response->WriteRef(\('">
> <a name=982>981</a>: </form>
> <a name=983>982</a>: <div align="left"><b><i>Version
>'.($Application->{'CVS_Version'}).'</i></b></div>
> <a name=984>983</a>: <!-- <div align="right"><i>For
></i><b><font face="Helvetica"
>color="blue">Inter</font>NAP</b><i> internal use
>only.</i></div> -->
> <a name=985>984</a>: <div align="right"><i>For
><b>INTERNAP</b> internal use only.</i></div>
> <a name=986>985</a>: ')); # Comment out this functionality until I need to add menus
>later.
> <a name=987>986</a>: # <script language="JavaScript1.2">
> <a name=988>987</a>: # <!--
> <a name=989>988</a>: # //this is nessecary for the menus to show up on IE.
> <a name=990>989</a>: # //IE needs to create the menus after the <BODY>
>tag
> <a name=991>990</a>: # if(document.all){ # document.all is only defined in
>IE, not in Netscape.
> <a name=992>991</a>: # CreateMenus();
> <a name=993>992</a>: # }
> <a name=994>993</a>: # //-->
> <a name=995>994</a>: # </script>
> <a name=996>995</a>: unless ($asppage =~ /^(pick|refine)/) { ;
>$main::Response->WriteRef(\('
> <a name=997>996</a>: <Map name="gomenu">
> <a name=998>997</a>: <area shape="rect"
>coords="61,0,251,25" href="/">
> <a name=999>998</a>: </map>
> <a name=1000>999</a>:
> <a name=1001>1000</a>: <div id="goOff"><a
>href="javascript:void(0)"
>onMouseOver="MM_showHideLayers(\'document.layers[\\\'goOff\\\']\',\'document.all[\\\'goOff\\\']\',\'hide\',\'document.layers[\\\'go\\\']\',\'document.all[\\\'go\\\']\',\'hide\')"><img
> src="/images/1space.gif" alt="" width="150"
>height="400" border="0"></a></div>
> <a name=1002>1001</a>:
> <a name=1003>1002</a>: <div id="goTgl"><a
>href="javascript:void(0)"
>onMouseOver="MM_showHideLayers(\'document.layers[\\\'goOff\\\']\',\'document.all[\\\'goOff\\\']\',\'show\',\'document.layers[\\\'go\\\']\',\'document.all[\\\'go\\\']\',\'show\')"><img
> src="/images/1space.gif" alt="" width="120"
>height="55" border="0"></a></div>
> <a name=1004>1003</a>:
> <a name=1005>1004</a>: <div id="go">
> <a name=1006>1005</a>: <div align="center"><a
>href="/"><font face="sans-serif" color="#000000"
>size="-1"><b>Home</b></font></a></div><br>
> <a name=1007>1006</a>: <a href="/corp/staff/pageall.htm"><font
>face="sans-serif" color="#000099"
>size="-1"><b>Paging</b></font></a><br><br>
> <a name=1008>1007</a>: <a
>href="/passwd/cgi-bin/prox/password.cgi"><font
>face="sans-serif" color="#000099"
>size="-1"><b>Change&nbsp;Password</b></font></a>&nbsp;<br><br>
> <a name=1009>1008</a>: <a href="/top/help.htm"><font
>face="sans-serif" color="#000099"
>size="-1"><b>Help</b></font></a><br><br>
> <a name=1010>1009</a>: <a href="/dept/index.htm"><font
>face="sans-serif" color="#000099"
>size="-1"><b>Departments</b></font></a><br><br>
> <a name=1011>1010</a>: <a href="/apps/index.htm"><font
>face="sans-serif" color="#000099"
>size="-1"><b>Applications</b></font></a><br><br>
> <a name=1012>1011</a>: <a href="/corp/staff/search.htm"><font
>face="sans-serif" color="#000099"
>size="-1"><b>Staff&nbsp;Search</b></font></a><br><br>
> <a name=1013>1012</a>: <a href="javascript:PopSearch();"><font
>face="sans-serif" color="#000099"
>size="-1"><b>InfoSource&nbsp;Search</b></font></a><br>
> <a name=1014>1013</a>: <!--<a
>href="javascript:q=document.getSelection();for(i=0;i<frames.length;i++){q=frames[i].document.getSelection();if(q)break;}if(!q)void(q=prompt(\'Enter
> Search
>Terms\',\'\'));if(q)location.href=\'https://infosource.internap.com/cgi-bin/nph-seek.cgi/query.html?qt=\'+escape(q)"><font
> face="sans-serif" color="#000099"
>size="-1"><b>InfoSource&nbsp;Search</b></font></a>--><br>
> <a name=1015>1014</a>: </div>
> <a name=1016>1015</a>:
> <a name=1017>1016</a>: ')); } ; $main::Response->WriteRef(\('
> <a name=1018>1017</a>:
> <a name=1019>1018</a>:
> <a name=1020>1019</a>: </body>
> <a name=1021>1020</a>: </html>'));;;no lib
>qw(/usr/local/etc/infosource/apps/netcfg/); ;; }
>
> </pre>
> <hr width=30% size=1>
> <font size=-1>
> <i>
> An error has occured with the Apache::ASP script just run.
> If you are the developer working on this script, and cannot work
> through this problem, please try researching the it at the
> <a href=http://www.apache-asp.org/>Apache::ASP web site</a>,
> specifically the <a href=http://www.apache-asp.org/faq.html>FAQ section</a>.
> Failing that, check out your
> <a href=http://www.apache-asp.org/support.html>support options</a>, and
> if necessary include this debug output with any query.
>
>
>
>
>
>
