# K-Meleon Macros (http://kmeleon.sourceforge.net/wiki/index.php?id=MacroLanguage)

# ---------- agent switcher pend----------------------------

$_badlist=getfolder(RootFolder)."\\macros\\badlist.txt";

defaultagent{
getpref(BOOL,$_UserAgent_Reset)?delpref($_UserAgent_Active):0;
}

switcher{
$fireslut=getpref(STRING, "kmeleon.privacy.useragent1.string");
$switcher=setpref(STRING, "general.useragent.override", $fireslut);
}

badchecker{
$badcheck=readfile($_badlist);
$checkh=hostname( $URL );
$find1=gsub($checkh, "crappysite", $badcheck);
$find2=gsub("crappysite", "crapcrap", $find1);
$find1==$find2?&defaultagent:&switcher;
#prompt($find1, "tester" , $find2 );
}


$OnLoad=$OnLoad."badchecker;";
# --------------------------------------------------------------------
$macroModules=$macroModules."agentswitch;";