From fc8132ded92be96b280660cc9f4ab289ec322107 Mon Sep 17 00:00:00 2001
From: doktornotor <notordoktor@gmail.com>
Date: Fri, 4 Sep 2015 13:22:27 +0200
Subject: Delete spamd_exchexp.asp

Not used anywhere, useless dead code.
---
 config/spamd/spamd_exchexp.asp | 50 ------------------------------------------
 1 file changed, 50 deletions(-)
 delete mode 100644 config/spamd/spamd_exchexp.asp

diff --git a/config/spamd/spamd_exchexp.asp b/config/spamd/spamd_exchexp.asp
deleted file mode 100644
index 56b0c629..00000000
--- a/config/spamd/spamd_exchexp.asp
+++ /dev/null
@@ -1,50 +0,0 @@
-<%
-
-dim server
-server = "SERVERNAME"
-
-Sub ExportUsers(oObject)
-    Dim oUser
-    For Each oUser in oObject
-        Select Case oUser.Class
-            Case "user"
-                If oUser.mail <> "" then
-              
-                        for each email in oUser.proxyAddresses
-                            If (lcase(left(email,4))="smtp") Then
-                                'userFile.WriteLine Mid(email,6)
-                                document.write Mid(email,6) & vbCrLf
-                            End If
-                        next
-               End if
-            Case "organizationalUnit" , "container"
-                If UsersinOU (oUser) then
-                    ExportUsers(oUser)
-                End if
-        End select
-    Next
-End Sub
-
-Function UsersinOU (oObject)
-    Dim oUser
-    UsersinOU = False
-    for Each oUser in oObject
-        Select Case oUser.Class
-            Case "organizationalUnit" , "container"
-                UsersinOU = UsersinOU(oUser)
-            Case "user"
-             UsersinOU = True
-            
-        End select
-    Next
-End Function
-
-Dim rootDSE, domainObject
-Set rootDSE=GetObject("LDAP://" & server & "/RootDSE")
-domainContainer = rootDSE.Get("defaultNamingContext")
-Set domainObject = GetObject("LDAP://" & domainContainer)
-
-ExportUsers(domainObject)
-Set oDomain = Nothing
-
-%>
\ No newline at end of file
-- 
cgit v1.2.3