2b004e1997-01-25Peter Bortas /* This is a roxen module. (c) Informationsvävarna AB 1997. * * Adds some java script that will prevent others from putting * your page in a frame. *
afbad21997-06-09Peter Bortas  * Will also remove occuranses of "index.html" at the end of the URL.
2b004e1997-01-25Peter Bortas  * * made by Peter Bortas <peter@infovav.se> Januari -97 */
1e84351997-08-27Henrik Grubbström (Grubba) constant cvs_version = "$Id: killframe.pike,v 1.7 1997/08/27 12:37:13 grubba Exp $";
2b004e1997-01-25Peter Bortas #include <module.h> inherit "module"; void create() { } mixed *register_module() { return ({ MODULE_PARSER, "Killframe tag", ("Makes pages frameproof." "<br>This module defines a tag," "<pre>" "&lt;killframe&gt;: 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"
afbad21997-06-09Peter Bortas  " 'index.html' from the end of the URL."
2b004e1997-01-25Peter Bortas  "</pre>" ), ({}), 1, }); } string tag_killframe( string tag, mapping m, object id ) {
ea90651997-05-24Henrik Grubbström (Grubba)  // Links to index.html are ugly.
a211d91997-08-10Henrik Grubbström (Grubba)  string my_url = id->conf->query("MyWorldLocation") + id->raw_url[1..];
0cbd1a1997-08-12Peter Bortas  int l=strlen(my_url); if( my_url[l-10..] == "index.html" ) my_url = my_url[..l-11];
2b004e1997-01-25Peter Bortas  if (id->supports->javascript)
1e84351997-08-27Henrik Grubbström (Grubba)  return("<script language=javascript>\n" "<!--\n" " if(top.location.href != \""+ my_url +"\")\n" " top.location.href = \""+ my_url +"\";\n" "//-->" "</script>\n"); return "";
2b004e1997-01-25Peter Bortas } mapping query_tag_callers() { return ([ "killframe" : tag_killframe ]); }