diff --git a/sbin/Hourly/SyncProfilesToLDAP.pm b/sbin/Hourly/SyncProfilesToLDAP.pm
new file mode 100644
index 000000000..9de2ecad1
--- /dev/null
+++ b/sbin/Hourly/SyncProfilesToLDAP.pm
@@ -0,0 +1,75 @@
+package Hourly::SyncProfilesToLDAP;
+
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001-2002 Plain Black LLC.
+#-------------------------------------------------------------------
+# Please read the legal notices (docs/legal.txt) and the license
+# (docs/license.txt) that came with this distribution before using
+# this software.
+#-------------------------------------------------------------------
+# http://www.plainblack.com                     info@plainblack.com
+#-------------------------------------------------------------------
+
+use Net::LDAP;
+use strict;
+use WebGUI::DateTime;
+use WebGUI::Session;
+use WebGUI::SQL;
+
+#-------------------------------------------------------------------
+sub _alias {
+	my %alias = (
+	firstName=>"givenname",
+	lastName=>"sn",
+	email=>"mail",
+	companyName=>"o"
+	);
+	return $alias{$_[0]} || $_[0];
+}
+
+#-------------------------------------------------------------------
+sub process {
+	my (@date, $userId, $u, $uri, $port, %args, $fieldName, $ldap, $search, $a, $b);
+	@date = WebGUI::DateTime::localtime();
+	if ($date[3] == 6) { # only do this at 6 am.
+		if ($session{config}{syncProfilesToLDAP} == 1) { 
+			$a = WebGUI::SQL->read("select userId from users where authMethod='LDAP'");
+			while (($userId) = $a->array) {
+				$u = WebGUI::User->new($userId);
+				$uri = URI->new($u->ldapURL);
+				if ($uri->port < 1) {
+					$port = 389;
+				} else {
+					$port = $uri->port;
+				}
+				%args = (port => $port);
+				$ldap = Net::LDAP->new($uri->host, %args);
+				if ($ldap) {
+					$ldap->bind;
+					$search = $ldap->search (base => $uri->dn, filter => $u->connectDN);
+					if (defined $search->entry(0)) {
+						$b = WebGUI::SQL->read("select fieldName from userProfileField where profileCategoryId<>4");
+						while (($fieldName) = $b->array) {
+							if ($search->entry(0)->get_value(_alias($fieldName)) ne "") {
+								WebGUI::SQL->write("replace into userProfileData 
+									(userId,fieldName,fieldData) values ("
+                                                                        .$userId.","
+                                                                        .quote($fieldName).","
+                                                                        .quote($search->entry(0)->get_value(_alias($fieldName)))
+                                                                        .")");
+							}
+						}
+						$b->finish;
+						$ldap->unbind;
+					} else {
+						print "Couldn't connect to LDAP host ".$uri->host." to find user ".$u->username." (".$userId.").\n";
+					}
+				}
+			}
+			$a->finish;
+		}
+	}
+}
+
+1;
+