Roxen.git/
server/
modules/
tags/
killframe.pike
Branch:
Tag:
Non-build tags
All tags
No tags
1997-08-27
1997-08-27 12:37:13 by Henrik Grubbström (Grubba) <grubba@grubba.org>
1e843547299d5bf5dcb472be522f9cfbf6026aeb (
19
lines) (+
9
/-
10
)
[
Show
|
Annotate
]
Branch:
5.2
Minor fix.
Rev: server/modules/tags/killframe.pike:1.7
8:
* made by Peter Bortas <peter@infovav.se> Januari -97 */
-
constant cvs_version = "$Id: killframe.pike,v 1.
6
1997/08/
12
17
:
47
:
31
peter
Exp $";
+
constant cvs_version = "$Id: killframe.pike,v 1.
7
1997/08/
27
12:
37
:
13
grubba
Exp $";
#include <module.h> inherit "module";
35:
{ // Links to index.html are ugly. string my_url = id->conf->query("MyWorldLocation") + id->raw_url[1..];
-
+
int l=strlen(my_url); if( my_url[l-10..] == "index.html" ) my_url = my_url[..l-11]; if (id->supports->javascript)
-
string head =
"<script language=javascript>\n"
+
return(
"<script language=javascript>\n"
"<!--\n" " if(top.location.href != \""+ my_url +"\")\n" " top.location.href = \""+ my_url +"\";\n" "//-->"
-
"</script>\n";
-
-
return
head
;
+
"</script>\n"
)
;
+
return
""
;
} mapping query_tag_callers() { return ([ "killframe" : tag_killframe ]); }