Roxen.git/
server/
modules/
tags/
killframe.pike
Branch:
Tag:
Non-build tags
All tags
No tags
1997-11-14
1997-11-14 01:00:02 by Peter Bortas <zino@lysator.liu.se>
aa899c69b2592cfa487434c643e9c6d5262948c1 (
34
lines) (+
29
/-
5
)
[
Show
|
Annotate
]
Branch:
5.2
Made it work again.
Rev: server/modules/tags/killframe.pike:1.11
6:
* Will also remove occuranses of "index.html" at the end of the URL. * * made by Peter Bortas <peter@infovav.se> Januari -97
+
*
+
* Thanks to
*/
-
constant cvs_version = "$Id: killframe.pike,v 1.
10
1997/
09
/
12
06
:
14
:
39
per
Exp $";
+
constant cvs_version = "$Id: killframe.pike,v 1.
11
1997/
11
/
14
01
:
00
:
02
peter
Exp $";
constant thread_safe=1; #include <module.h>
26:
"<pre>" "<killframe>: Adds some java script that will prevent others\n" " from putting your page in a frame.\n\n"
-
" Will also strip any occurences of the string\n"
-
" 'index.html' from the end of the URL."
+
/*
" Will also strip any occurences of the string\n"
+
" 'index.html' from the end of the URL."
*/
"</pre>" ), ({}), 1, }); }
-
+
string newstyle_tag_killframe( string tag, mapping m, object id )
+
{
+
/* 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-11..] == "/index.html" )
+
my_url = my_url[..l-11];
+
+
if (id->supports->javascript)
+
return("<script language=javascript>\n"
+
"<!--\n"
+
// " if (self != top) top.location = self.location\n"
+
" if (\""+ my_url +"\" != top.location) top.location = \""
+
+ my_url +"\"\n"
+
"//-->"
+
"</script>\n");
+
return "";
+
}
+
+
/* I liked this better, but it caused securityexceptions on newer browsers */
string tag_killframe( string tag, mapping m, object id ) { /* Links to index.html are ugly. */
45:
if (id->supports->javascript) return("<script language=javascript>\n" "<!--\n"
-
" if(top.location
.href
!= \""+ my_url +"\")\n"
-
" top.location
.href
= \""+ my_url +"\";\n"
+
" if(top.location != \""+ my_url +"\")\n"
+
" top.location = \""+ my_url +"\";\n"
"//-->" "</script>\n"); return "";