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

- fix: a typo in DatabaseLink.pm

Browse source 
- fix: a typo in CleanTempSpace.pm
 - fix: an unhandled exception in Asset/File.pm
This commit is contained in:
JT Smith 2007-04-04 16:03:34 +00:00
parent b131c4b146
commit fdf9c65ab5
4 changed files with 20 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

3
docs/changelog/7.x.x.txt
View file

@ -1,4 +1,7 @@
7.3.14 7.3.14
- fix: a typo in DatabaseLink.pm
- fix: a typo in CleanTempSpace.pm
- fix: an unhandled exception in Asset/File.pm
- fix: modifiex templates for month, week, and day, added iCal variable links. (thanks to perlDreamer) - fix: modifiex templates for month, week, and day, added iCal variable links. (thanks to perlDreamer)
- fix: added ability for Workflow/Activity/GetCsMail.pm to handle unregistered posters - fix: added ability for Workflow/Activity/GetCsMail.pm to handle unregistered posters
- fix: http://www.plainblack.com/bugs/tracker/dataform-security-bug (thanks to misja) - fix: http://www.plainblack.com/bugs/tracker/dataform-security-bug (thanks to misja)

2
etc/spectre.conf.original
View file

@ -25,7 +25,7 @@
# can help avoid creating a denial of service attack on overworked # can help avoid creating a denial of service attack on overworked
# or underpowered servers. # or underpowered servers.
"timeBetweenRunningWorkflows" : 4, "timeBetweenRunningWorkflows" : 2,
# How long should Spectre delay processing a workflow instance when # How long should Spectre delay processing a workflow instance when
# it gets suspended. It can get suspended if it's waiting for # it gets suspended. It can get suspended if it's waiting for

28
lib/WebGUI/Asset/File.pm
View file

@ -246,19 +246,21 @@ sub processPropertiesFromFormPost {
$self->SUPER::processPropertiesFromFormPost; $self->SUPER::processPropertiesFromFormPost;
delete $self->{_storageLocation}; delete $self->{_storageLocation};
my $fileStorageId = WebGUI::Form::File->new($self->session,{name => 'file'})->getValueFromPost; my $fileStorageId = WebGUI::Form::File->new($self->session, {name => 'file'})->getValueFromPost;
my $storage = WebGUI::Storage->get($self->session, $fileStorageId); my $storage = WebGUI::Storage->get($self->session, $fileStorageId);
$storage->setPrivileges($self->get('ownerUserId'), $self->get('groupIdView'), $self->get('groupIdEdit')); if (defined $storage) {
my $filename = $storage->getFiles()->[0]; $storage->setPrivileges($self->get('ownerUserId'), $self->get('groupIdView'), $self->get('groupIdEdit'));
if (defined $filename && $filename ne $self->get("filename")) { my $filename = $storage->getFiles()->[0];
my %data; if (defined $filename && $filename ne $self->get("filename")) {
$data{filename} = $filename; my %data;
$data{storageId} = $storage->getId; $data{filename} = $filename;
$data{title} = $filename unless ($self->session->form->process("title")); $data{storageId} = $storage->getId;
$data{menuTitle} = $filename unless ($self->session->form->process("menuTitle")); $data{title} = $filename unless ($self->session->form->process("title"));
$data{url} = $self->getParent->get('url').'/'.$filename unless ($self->session->form->process("url")); $data{menuTitle} = $filename unless ($self->session->form->process("menuTitle"));
$self->update(\%data); $data{url} = $self->getParent->get('url').'/'.$filename unless ($self->session->form->process("url"));
$self->setSize($storage->getFileSize($filename)); $self->update(\%data);
$self->setSize($storage->getFileSize($filename));
}
} }
} }

2
lib/WebGUI/DatabaseLink.pm
View file

@ -139,7 +139,7 @@ sub db {
} elsif ($dsn =~ /\DBI\:\w+\:\w+/i) { } elsif ($dsn =~ /\DBI\:\w+\:\w+/i) {
my $dbh = WebGUI::SQL->connect($self->session,$dsn,$username,$identifier); my $dbh = WebGUI::SQL->connect($self->session,$dsn,$username,$identifier);
unless (defined $dbh) { unless (defined $dbh) {
$self->session->errorHandler->arn("Cannot connect to DatabaseLink [".$self->getId."]"); $self->session->errorHandler->warn("Cannot connect to DatabaseLink [".$self->getId."]");
} }
$self->{_dbh} = $dbh; $self->{_dbh} = $dbh;
return $self->{_dbh}; return $self->{_dbh};