Roxen.git / server / modules / tags / killframe.pike

version» Context lines:

Roxen.git/server/modules/tags/killframe.pike:3:    * Adds some java script that will prevent others from putting    * your page in a frame.    *    * 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.12 1998/01/15 10:40:18 peter Exp $"; + constant cvs_version = "$Id: killframe.pike,v 1.13 1998/03/08 13:48:54 per Exp $";   constant thread_safe=1;      #include <module.h>   inherit "module";      void create() { }      mixed *register_module()   {    return ({
Roxen.git/server/modules/tags/killframe.pike:31:    /* " Will also strip any occurences of the string\n"    " 'index.html' from the end of the URL." */    "</pre>"    ), ({}), 1,    });   }      string tag_killframe( string tag, mapping m, object id )   {    /* Links to index.html are ugly. */ +  if(m->help) return register_module()[2]; +     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(top.location != \""+ my_url +"\")\n"    " top.location = \""+ my_url +"\";\n"    "//-->"    "</script>\n");    return "";   }      mapping query_tag_callers()   {    return ([ "killframe" : tag_killframe ]);   }