<!---
* What files exist in folder A, but not B
* What files exist in folder B, but not A
* What files exist in both, but APPEAR different (size, date)
--->


<cffunction access="public"
         name="compareDir"
         output="true"
         returntype="struct">
   <cfargument default="" name="pathA" required="true">
   <cfargument default="" name="pathB" required="true">
   <cfset var qryDirA = "" />
   <cfset var qryDirB = "" />
   <cfset var sameFiles = "" />
   <cfset var myReturn = structNew() />

   <cfif directoryExists(expandPath(arguments.pathA))
       AND directoryExists(expandPath(arguments.pathB))>
      <cfdirectory action="list"
               directory="#expandPath(arguments.pathA)#"
               name="qryDirA"
               filter="*.*">
      <cfdirectory action="list"
               directory="#expandPath(arguments.pathB)#"
               name="qryDirB"
               filter="*.*">
      
      <cfquery name="sameFiles" dbtype="query">
         select qryDirB.* from
         qryDirB,
         qryDirA
         where qryDirA.name = qryDirB.name
         and (
          qryDirA.DATELASTMODIFIED != qryDirB.DATELASTMODIFIED
         )
      </cfquery>
      
      <cfset myReturn.SameFilesDiffDT = ValueList(sameFiles.name) />
      <cfset myReturn.DirectoryAOnly = "" />
      <cfset myReturn.DirectoryBOnly = "" />
      
      <cfloop query="qryDirB" >
         <cfif not ListFindNoCase(ValueList(qryDirA.name),name)>
            <cfset myReturn.DirectoryAOnly = ListAppend(myReturn.DirectoryAOnly,name,',') />
         </cfif>
      </cfloop>
      
      <cfloop query="qryDirA">
         <cfif not ListFindnocase(ValueList(qryDirB.name),name)>
            <cfset myReturn.DirectoryBOnly = ListAppend(myReturn.DirectoryBOnly,name,',') />
         </cfif>
      </cfloop>
   </cfif>
      
   <cfreturn myReturn>
</cffunction>

<cfdump var="#compareDir('a','b')#">

<cfif Len(Trim(cgi.PATH_INFO))>   
   <!--- Create a struct to hold all of our variables so
         we can debug easier --->
   <cfset ses = StructNew() />   
   <cfset ses.urlVars=
         ReReplaceNoCase(Trim(cgi.path_info), '.+\.cfm/? *', '')>
   <!--- since I am using Model-Glue event will always be first
         in the list so set it and then strip it --->
   <cfset url['event'] = ListFirst(ses.urlVars,'/') />
   <cfset ses.urlVars = ListDeleteAt(ses.urlVars,1,'/') />
   <!--- Now that we deleted the first item we need to check to
         see if still have a list --->
   <cfif ListLen(ses.urlVars,'/')>
      <!--- This is just in case some trys to pass another
             event variable --->
      <cfset ses.urlVars =
            ListDeleteAt(ses.urlVars,ListFindNoCase(ses.urlvars,'event','/'),'/')>
      <cfset ses.urlVars = listRest(ses.urlVars,'/') />
      <!--- Loop over the our list and step by two that way we
            can set name value pairs --->
      <cfloop from="1" to="#ListLen(ses.urlVars,'/')#" index="ses.i" step="2">
         <!--- Set the current url name --->
         <cfset ses.CurName = Listgetat(ses.urlVars,ses.i,'/') />
         <!--- Check to see if there are enough items in the list
         to set the current url value --->
         <cfif ListLen(ses.urlVars,'/') gte ses.i + 1>
            <cfset ses.CurValue = listgetat(ses.urlVars,ses.i + 1,'/') />         
         <cfelse>
            <cfset ses.CurValue = "" />
         </cfif>
         <!--- Create your url name value pair --->
         <cfset url[ses.CurName] = ses.CurValue />
      </cfloop>
   </cfif>
</cfif>

function Ajaxengine(){
};
Ajaxengine.loadStatus=false;
Ajaxengine.loadDoc = function (url, sMethod, method, params, msg){
   try{      
       try { xmlhttp = new ActiveXObject("Msxml2.XMLHTTP"); }
       catch (e) { try { xmlhttp = new ActiveXObject("Microsoft.XMLHTTP"); }
       catch (e) { try { xmlhttp = new XMLHttpRequest(); }
       catch (e) { xmlhttp = false; }}}
      if(!Ajaxengine.loadStatus){
         if(msg){
            Ajaxengine.addMessage(msg);
         }         
         Ajaxengine.loadStatus=true;
         call = new Object();
         call.method=method;
         call.xmlhttp=xmlhttp;
         var urlParams=null;
         for (var element in params){
            temp=params[element];
            temp=temp.split(":");
            if(!urlParams){
               urlParams=temp[0] + "=" + temp[1];
            }else{
               urlParams=urlParams + "&" + temp[0] + "=" + temp[1];
            }
         }
         urlParams = encodeURI(urlParams);
       temp="";
         /* branch for native XMLHttpRequest object*/
         
         sURL=url + '?' + urlParams
          if (sMethod == "GET"){
            call.xmlhttp.open(sMethod, sURL, true);
            sVars = "";
          }else {
            call.xmlhttp.open(sMethod, sURL, true);
            call.xmlhttp.setRequestHeader("Method", "POST "+sURL+" HTTP/1.1");
            call.xmlhttp.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
          }
          call.xmlhttp.onreadystatechange = function() { Ajaxengine._Change(call); };
          call.xmlhttp.send(urlParams);         
      }
   }catch(oException) {
alert("Got the following expection data (1): " + oException);
}

};
Ajaxengine._Change = function (call) {   
   try{
   if (call.xmlhttp.readyState == 4) {
      
      var txt=null;

      txt=call.xmlhttp.responseText;   
      call.method(txt);
      Ajaxengine.loadStatus=false;
      Ajaxengine.removeMessage();
      if (call.xmlhttp.status == 200) {            
         return true;
      } else {
         return false;
      alert("There was a problem retrieving the XML data:\n" + call.req.statusText);
      }
   }   
   }catch(oException) {
alert("Got the following expection data: _change " + oException);
}
}

Ajaxengine.addMessage = function (msg){
   var _message=getEL("messagebox");
   if(_message){
      document.body.removeChild(_message);
      return false;
   }
   var _messageSpanShell = document.createElement("span");
   _messageSpanShell.id = "messagebox";
   _messageSpanShell.className="messagebox";
   _messageSpanShell.innerHTML=msg;
   document.body.appendChild(_messageSpanShell);
}

Ajaxengine.removeMessage = function (){
   var _message=getEL("messagebox");
   if(_message){
      document.body.removeChild(_message);
      return false;
   }
   
}

<cfgrid name="data" query="qry_docs" height="400" rowheaders="no" onchange="getUrl(data.selectedItem.yourURL)">
   <cfgridcolumn name="display_name" header="Name" />
   <cfgridcolumn name="yourURL" display="no"/>
   <cfgridcolumn header="Category" name="category" />
   <cfgridcolumn header="Upload Date" name="upload_date" mask="mm/dd/yyyy" />
   <cfgridcolumn header="Modify Date" name="modify_date" mask="mm/dd/yyyy" />
</cfgrid>

<cfldap action="query"
   name="users"
   start="cn=users,dc=<company>.,dc=ad"
   attributes="uid,company,manager,co,st,streetAddress,L,postalCode,title,cn,givenname,sn, department, mail,ipphone,samAccountName,memberof,telephoneNumber,accountDisabled "
   server="<domain>..ad"
   port="389"
   username="<username>@<domain>.ad"
   password="<password>"
/>

<cfset attributelist="streetAddress=<streetaddress>;department=#DEPARTMENT#; title=#title#; ipphone=#ipphone#; TELEPHONENUMBER=#TELEPHONENUMBER#" />
   <cfldap action="modify"
      modifytype="replace"
      attributes="#attributeList#"
      dn="cn=#trim(CN)#, cn=users,dc=wha,dc=ad"
      server="<username>@<domain>.ad"
      port="389"
      username="<username>@<domain>.ad"
    password="<password>"
   />