/* -*- LPC -*- */
varargs mixed creator_file(string file, int author) {
string *str;
if (!file || !stringp(file)) return "NOONE";
str = explode(file, "/") - ({ "" });
if (sizeof(str)<2) return 0;
switch (str[0]) {
case "secure" :
return get_root_uid();
case "handlers" :
case "obj" :
if (sizeof(str) > 2 && str[1] == "secure")
return "ims";
case "p":
case "global" :
case "std" :
case "cmds" :
case "room" :
return get_bb_uid();
case "net" :
return "Network";
case "www" :
if (sizeof(str) > 2 && str[1] == "secure")
return "Root";
return "WWW";
case "tmp" :
if( str[1] == "mon-shad" )
return "monster";
if( str[1] == "def_tmp" )
return "string_to_define";
return 0;
case "failsafe" :
return "failsafe";
case "p":
if (sizeof(str) < 3)
return 0;
return capitalize(str[1]);
case "d" :
if (sizeof(str) < 3)
return 0;
return capitalize(str[1]);
case "w" :
if (sizeof(str) < 3)
if (str[1] == "common" || str[1] == "development" || str[1] == "meeting")
return "womble-frog";
else
return 0;
return str[1];
}
} /* creator_file() */
mixed author_file(mixed bing) {
return creator_file(bing, 1);
} /* author_file() */
mixed domain_file(mixed bing) {
string str;
str = creator_file(bing);
if (!str) return str;
if (str[0] >= 'A' && str[0] <= 'Z') return str;
return "Creator";
} /* domain_file() */
