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

Fixed a localtime bug.

Browse source
This commit is contained in:
JT Smith 2003-06-01 20:32:04 +00:00
parent 016de5abae
commit 4e800d5178
5 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/DateTime.pm
View file

@ -484,14 +484,14 @@ Returns an array of time elements. The elements are: years, months, days, hours,
=item epoch
The number of seconds since January 1, 1970.
The number of seconds since January 1, 1970. Defaults to now.
=back
=cut
sub localtime {
return Date::Calc::Localtime($_[0]);
return Date::Calc::Localtime($_[0]||WebGUI::DateTime::time());
}
#-------------------------------------------------------------------

2
lib/WebGUI/Grouping.pm
View file

@ -118,7 +118,7 @@ sub addUsersToGroups {
my ($isIn) = WebGUI::SQL->quickArray("select count(*) from groupings where groupId=$gid and userId=$uid");
unless ($isIn) {
WebGUI::SQL->write("insert into groupings (groupId,userId,expireDate)
values ($gid, $uid, ".(time()+$expireOffset).")");
values ($gid, $uid, ".(WebGUI::DateTime::time()+$expireOffset).")");
}
}
}

2
sbin/Hourly/EmptyTrash.pm
View file

@ -18,7 +18,7 @@ use WebGUI::SQL;
#-----------------------------------------
sub process {
my @date = WebGUI::DateTime::localtime();
my @date = WebGUI::DateTime::localtime(WebGUI::DateTime::time());
if ($date[1] == $session{config}{EmptyTrash_day} && $date[4] == 1) { # only occurs at 1am on the day in question.
WebGUI::ErrorHandler::audit("emptying system trash");
WebGUI::Operation::Trash::_recursePageTree(3);

7
sbin/Hourly/NotifyExpiredGroupings.pm
View file

@ -19,15 +19,16 @@ use WebGUI::SQL;
#-----------------------------------------
sub process {
my @date = WebGUI::DateTime::localtime();
my @date = WebGUI::DateTime::localtime(WebGUI::DateTime::time());
if ($date[4] == 1) { # only occurs at 1am on the day in question.
my $now = time();
my $now = WebGUI::DateTime::time();
my $a = WebGUI::SQL->read("select groupId,expireNotifyOffset,expireNotifyMessage from groups
where expireNotify=1");
while (my $group = $a->hashRef) {
my $start = $now + (86400 * $group->{expireNotifyOffset});
my $end = $start + 86400;
my $b = WebGUI::SQL->read("select userId from groupings where expireDate>=".$start." and expireDate<=".$end);
my $b = WebGUI::SQL->read("select userId from groupings where groupId=".$group->{groupId}." and
expireDate>=".$start." and expireDate<=".$end);
while (my ($userId) = $b->array) {
WebGUI::MessageLog::addEntry($userId,"",WebGUI::International::get(867),$group->{expireNotifyMessage});
}

2
sbin/Hourly/SyncProfilesToLDAP.pm
View file

@ -30,7 +30,7 @@ sub _alias {
#-------------------------------------------------------------------
sub process {
my (@date, $userId, $u, $uri, $port, %args, $fieldName, $ldap, $search, $a, $b);
@date = WebGUI::DateTime::localtime();
@date = WebGUI::DateTime::localtime(WebGUI::DateTime::time());
if ($date[3] == $session{config}{SyncProfilesToLDAP_hour}) {
$a = WebGUI::SQL->read("select userId from users where authMethod='LDAP'");
while (($userId) = $a->array) {