From ee2f370686a4aad7cd91bc515de789c24a239553 Mon Sep 17 00:00:00 2001
From: ChocoTaco1 <boldfilter@zoho.com>
Date: Fri, 18 Dec 2020 19:53:57 -0500
Subject: [PATCH] Added Default exec function

Formatting
---
 Classic/scripts/autoexec/dtBanSystem.cs | 128 ++++++++++++++----------
 1 file changed, 76 insertions(+), 52 deletions(-)

diff --git a/Classic/scripts/autoexec/dtBanSystem.cs b/Classic/scripts/autoexec/dtBanSystem.cs
index 945d45e..d77420e 100644
--- a/Classic/scripts/autoexec/dtBanSystem.cs
+++ b/Classic/scripts/autoexec/dtBanSystem.cs
@@ -5,59 +5,78 @@
 
 //$Host::dtBanlist = "prefs/dtBanlist.cs";
 
-if(isFile($Host::dtBanlist))
-   exec($Host::dtBanlist);
+package dtBan
+{
 
-package dtBan{
-   function BanList::add(%guid, %ipAddress, %days){
-      if (%guid > 0){
-         $dtBanList::GUID[%guid] = dtBanDay() TAB getBanYear() TAB %days;
-      }
-      if (getSubStr(%ipAddress, 0, 3) $= "IP:"){
-         // add IP ban
-         %bareIP = getSubStr(%ipAddress, 3, strLen(%ipAddress));
-         %bareIP = getSubStr(%bareIP, 0, strstr(%bareIP, ":"));
-         %bareIP = strReplace(%bareIP, ".", "_"); // variable access bug workaround
+function ClassicLoadBanlist()
+{
+	$ClassicPermaBans = 0;
+	if(isFile($Host::dtBanlist))
+		exec($Host::dtBanlist);
+	$ClassicWhitelists = 0;
+	exec($Host::ClassicWhitelist);
+}
+	
+function BanList::add(%guid, %ipAddress, %days)
+{
+	if (%guid > 0)
+		$dtBanList::GUID[%guid] = dtBanDay() TAB getBanYear() TAB %days;
+	
+	if (getSubStr(%ipAddress, 0, 3) $= "IP:")
+	{
+		 // add IP ban
+		 %bareIP = getSubStr(%ipAddress, 3, strLen(%ipAddress));
+		 %bareIP = getSubStr(%bareIP, 0, strstr(%bareIP, ":"));
+		 %bareIP = strReplace(%bareIP, ".", "_"); // variable access bug workaround
 
-         $dtBanList::IP[%bareIP] = dtBanDay() TAB getBanYear() TAB %days;
-         //error("ban" SPC %bareIP SPC $dtBanList::IP[%bareIP]);
-      }
+		 $dtBanList::IP[%bareIP] = dtBanDay() TAB getBanYear() TAB %days;
+		 //error("ban" SPC %bareIP SPC $dtBanList::IP[%bareIP]);
+	}
 
-      // write out the updated bans to the file
-      export("$dtBanList*", $Host::dtBanlist);
-   }
-   function banList_checkIP(%client){
-      %ip = %client.getAddress();
-      %ip = getSubStr(%ip, 3, strLen(%ip));
-      %ip = getSubStr(%ip, 0, strstr(%ip, ":"));
-      %ip = strReplace(%ip, ".", "_");
-
-      %time = $dtBanList::IP[%ip];
-      if (%time !$= "" && %time !$= "UNBAN"){
-         %delta =  getBanCount(getField(%time,0), getField(%time,1));
-         if (%delta < getField(%time,2))
-            return 1;
-         else 
-            $dtBanList::IP[%ip] =  "UNBAN";
-      }
-      return 0;
-   }
-   function banList_checkGUID(%guid){
-      %time = $dtBanList::GUID[%guid];
-      if (%time !$= "" && %time !$= "UNBAN"){
-         %delta =  getBanCount(getField(%time,0), getField(%time,1));
-         if (%delta < getField(%time,2))
-            return 1;
-         else
-             $dtBanList::GUID[%guid] = "UNBAN";
-      }
-      return 0;
-   }
-};
-if (!isActivePackage(dtBan)) 
-   activatePackage(dtBan);
+	// write out the updated bans to the file
+	export("$dtBanList*", $Host::dtBanlist);
+}
    
-function  getBanCount(%d, %year){
+function banList_checkIP(%client)
+{
+	%ip = %client.getAddress();
+	%ip = getSubStr(%ip, 3, strLen(%ip));
+	%ip = getSubStr(%ip, 0, strstr(%ip, ":"));
+	%ip = strReplace(%ip, ".", "_");
+
+	%time = $dtBanList::IP[%ip];
+	if (%time !$= "" && %time !$= "UNBAN")
+	{
+		%delta =  getBanCount(getField(%time,0), getField(%time,1));
+		if (%delta < getField(%time,2))
+			return 1;
+		else 
+			$dtBanList::IP[%ip] =  "UNBAN";
+	}
+	return 0;
+}
+   
+function banList_checkGUID(%guid)
+{
+  %time = $dtBanList::GUID[%guid];
+  if (%time !$= "" && %time !$= "UNBAN")
+  {
+	%delta =  getBanCount(getField(%time,0), getField(%time,1));
+	if (%delta < getField(%time,2))
+		return 1;
+	else
+		$dtBanList::GUID[%guid] = "UNBAN";
+  }
+  return 0;
+}
+
+};
+
+if (!isActivePackage(dtBan)) 
+	activatePackage(dtBan);
+   
+function  getBanCount(%d, %year)
+{
    %dif = getBanYear() - %year;
    %days += 365 * (%dif-1);
    %days += 365 - %d;
@@ -65,7 +84,8 @@ function  getBanCount(%d, %year){
    return %days;
 }
    
-function dtBanDay(){
+function dtBanDay()
+{
    %date = formattimestring("mm dd yy");
    %m = getWord(%date,0);%d = getWord(%date,1);%y = getWord(%date,2);
    %count = 0;
@@ -74,13 +94,17 @@ function dtBanDay(){
    %days[4] = "30"; %days[5] = "31"; %days[6] = "30";
    %days[7] = "31"; %days[8] = "31"; %days[9] = "30";
    %days[10] = "31"; %days[11] = "30"; %days[12] = "31";
-   for(%i = 1; %i <= %m-1; %i++){
+   
+   for(%i = 1; %i <= %m-1; %i++)
+   {
       %count += %days[%i];
    }
+   
    return %count + %d;
 } 
 
-function getBanYear(){
+function getBanYear()
+{
     return formattimestring("yy");
 }
    
\ No newline at end of file