69baaa1999-09-23Martin Nilsson // Config tablist look-a-like module. Copyright © 1999, Idonex AB. //
be34a51999-11-03Martin Nilsson constant cvs_version="$Id: configtablist.pike,v 1.20 1999/11/03 22:56:45 nilsson Exp $";
69baaa1999-09-23Martin Nilsson  #include <module.h> inherit "module";
0a9b8c1999-09-29Martin Nilsson inherit "roxenlib";
69baaa1999-09-23Martin Nilsson array register_module() {
bc53801999-09-28Martin Stjernholm  return ({ MODULE_PARSER, "Old tab list module", "Use the <i>Tab list</i> module instead", 0, 1});
69baaa1999-09-23Martin Nilsson }
be34a51999-11-03Martin Nilsson void start() { object configuration = my_configuration(); werror("\n ***** Config tab list outdated. Adding Tab list instead.\n");
69baaa1999-09-23Martin Nilsson  if(configuration)
be34a51999-11-03Martin Nilsson  if(!configuration->enabled_modules->tablist )
69baaa1999-09-23Martin Nilsson  configuration->enable_module("tablist#0");
be34a51999-11-03Martin Nilsson  call_out( configuration->disable_module, 0.5, "configtablist#0" );
69baaa1999-09-23Martin Nilsson }
0a9b8c1999-09-29Martin Nilsson  string tag_ctablist(string t, mapping a, string c) { return make_container("tablist",a,c); } mapping query_container_callers() { return ([ "config_tablist":tag_ctablist ]); }