oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Updated to take their configurable parameters from the config file.

Browse source
This commit is contained in:
JT Smith 2002-10-13 19:55:39 +00:00
parent 55108689b4
commit 0f2350d4c5
5 changed files with 46 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

7
sbin/Hourly/CleanLoginHistory.pm
View file

@ -1,7 +1,5 @@
package Hourly::CleanLoginHistory; package Hourly::CleanLoginHistory;
my $ageToDelete = 90; # in days, time to wait before deleting from login log
#------------------------------------------------------------------- #-------------------------------------------------------------------
# WebGUI is Copyright 2001-2002 Plain Black LLC. # WebGUI is Copyright 2001-2002 Plain Black LLC.
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -19,7 +17,10 @@ use WebGUI::SQL;
#----------------------------------------- #-----------------------------------------
sub process { sub process {
WebGUI::SQL->write("delete from userLoginLog where timeStamp<".(time()-(86400*$ageToDelete))); if ($session{config}{CleanLoginHistory_ageToDelete}) {
WebGUI::SQL->write("delete from userLoginLog
where timeStamp < ".(time()-(86400*$session{config}{CleanLoginHistory_ageToDelete})));
}
} }
1; 1;

8
sbin/Hourly/DecayKarma.pm
View file

@ -1,8 +1,5 @@
package Hourly::DecayKarma; package Hourly::DecayKarma;
my $minimumKarma = 0; # won't go below this number
my $decayFactor = 1; # amount to remove per hour
#------------------------------------------------------------------- #-------------------------------------------------------------------
# WebGUI is Copyright 2001-2002 Plain Black LLC. # WebGUI is Copyright 2001-2002 Plain Black LLC.
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -20,7 +17,10 @@ use WebGUI::SQL;
#----------------------------------------- #-----------------------------------------
sub process { sub process {
WebGUI::SQL->write("update users set karma=karma-$decayFactor where karma>".$minimumKarma); if ($session{config}{DecayKarma_minimumKarma} ne "" && $session{config}{DecayKarma_decayFactor}) {
WebGUI::SQL->write("update users set karma=".karma-$session{config}{DecayKarma_decayFactor}
." where karma > ".$session{config}{DecayKarma_minimumKarma});
}
} }
1; 1;

7
sbin/Hourly/DeleteExpiredEvents.pm
View file

@ -1,7 +1,5 @@
package Hourly::DeleteExpiredEvents; package Hourly::DeleteExpiredEvents;
my $offset = 0; # in days, time to wait before deleting
#------------------------------------------------------------------- #-------------------------------------------------------------------
# WebGUI is Copyright 2001-2002 Plain Black LLC. # WebGUI is Copyright 2001-2002 Plain Black LLC.
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -19,7 +17,10 @@ use WebGUI::SQL;
#----------------------------------------- #-----------------------------------------
sub process { sub process {
WebGUI::SQL->write("delete from EventsCalendar_event where endDate<".(time()-(86400*$offset))); if ($session{config}{DeleteExpiredEvents_offset} ne "") {
WebGUI::SQL->write("delete from EventsCalendar_event where endDate < "
.(time()-(86400*$session{config}{DeleteExpiredEvents}{offset})));
}
} }
1; 1;

7
sbin/Hourly/DeleteExpiredGroupings.pm
View file

@ -1,7 +1,5 @@
package Hourly::DeleteExpiredGroupings; package Hourly::DeleteExpiredGroupings;
my $offset = 0; # in seconds, time to wait before deleting
#------------------------------------------------------------------- #-------------------------------------------------------------------
# WebGUI is Copyright 2001-2002 Plain Black LLC. # WebGUI is Copyright 2001-2002 Plain Black LLC.
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -18,7 +16,10 @@ use WebGUI::SQL;
#----------------------------------------- #-----------------------------------------
sub process { sub process {
WebGUI::SQL->write("delete from groupings where expireDate<".(time()-(86400*$offset))); if ($session{config}{DeleteExpiredGroupings_offset} ne "") {
WebGUI::SQL->write("delete from groupings where expireDate < "
.(time()-(86400*$session{config}{DeleteExpiredGroupings_offset})));
}
} }
1; 1;

62
sbin/Hourly/SyncProfilesToLDAP.pm
View file

@ -31,43 +31,41 @@ sub _alias {
sub process { sub process {
my (@date, $userId, $u, $uri, $port, %args, $fieldName, $ldap, $search, $a, $b); my (@date, $userId, $u, $uri, $port, %args, $fieldName, $ldap, $search, $a, $b);
@date = WebGUI::DateTime::localtime(); @date = WebGUI::DateTime::localtime();
if ($date[3] == 6) { # only do this at 6 am. if ($date[3] == $session{config}{SyncProfilesToLDAP_hour}) {
if ($session{config}{syncProfilesToLDAP} == 1) { $a = WebGUI::SQL->read("select userId from users where authMethod='LDAP'");
$a = WebGUI::SQL->read("select userId from users where authMethod='LDAP'"); while (($userId) = $a->array) {
while (($userId) = $a->array) { $u = WebGUI::User->new($userId);
$u = WebGUI::User->new($userId); $uri = URI->new($u->ldapURL);
$uri = URI->new($u->ldapURL); if ($uri->port < 1) {
if ($uri->port < 1) { $port = 389;
$port = 389; } else {
} else { $port = $uri->port;
$port = $uri->port; }
} %args = (port => $port);
%args = (port => $port); $ldap = Net::LDAP->new($uri->host, %args);
$ldap = Net::LDAP->new($uri->host, %args); if ($ldap) {
if ($ldap) { $ldap->bind;
$ldap->bind; $search = $ldap->search (base => $uri->dn, filter => $u->connectDN);
$search = $ldap->search (base => $uri->dn, filter => $u->connectDN); if (defined $search->entry(0)) {
if (defined $search->entry(0)) { $b = WebGUI::SQL->read("select fieldName from userProfileField where profileCategoryId<>4");
$b = WebGUI::SQL->read("select fieldName from userProfileField where profileCategoryId<>4"); while (($fieldName) = $b->array) {
while (($fieldName) = $b->array) { if ($search->entry(0)->get_value(_alias($fieldName)) ne "") {
if ($search->entry(0)->get_value(_alias($fieldName)) ne "") { WebGUI::SQL->write("replace into userProfileData
WebGUI::SQL->write("replace into userProfileData (userId,fieldName,fieldData) values ("
(userId,fieldName,fieldData) values (" .$userId.","
.$userId."," .quote($fieldName).","
.quote($fieldName)."," .quote($search->entry(0)->get_value(_alias($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";
} }
$b->finish;
$ldap->unbind;
} else {
print "Couldn't connect to LDAP host ".$uri->host." to find user ".$u->username." (".$userId.").\n";
} }
} }
$a->finish;
} }
$a->finish;
} }
} }