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
- 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: added ability for Workflow/Activity/GetCsMail.pm to handle unregistered posters
- 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
# or underpowered servers.
"timeBetweenRunningWorkflows" : 4,
"timeBetweenRunningWorkflows" : 2,
# How long should Spectre delay processing a workflow instance when
# 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;
delete $self->{_storageLocation};
my $fileStorageId = WebGUI::Form::File->new($self->session,{name => 'file'})->getValueFromPost;
my $storage = WebGUI::Storage->get($self->session, $fileStorageId);
$storage->setPrivileges($self->get('ownerUserId'), $self->get('groupIdView'), $self->get('groupIdEdit'));
my $filename = $storage->getFiles()->[0];
if (defined $filename && $filename ne $self->get("filename")) {
my %data;
$data{filename} = $filename;
$data{storageId} = $storage->getId;
$data{title} = $filename unless ($self->session->form->process("title"));
$data{menuTitle} = $filename unless ($self->session->form->process("menuTitle"));
$data{url} = $self->getParent->get('url').'/'.$filename unless ($self->session->form->process("url"));
$self->update(\%data);
$self->setSize($storage->getFileSize($filename));
my $fileStorageId = WebGUI::Form::File->new($self->session, {name => 'file'})->getValueFromPost;
my $storage = WebGUI::Storage->get($self->session, $fileStorageId);
if (defined $storage) {
$storage->setPrivileges($self->get('ownerUserId'), $self->get('groupIdView'), $self->get('groupIdEdit'));
my $filename = $storage->getFiles()->[0];
if (defined $filename && $filename ne $self->get("filename")) {
my %data;
$data{filename} = $filename;
$data{storageId} = $storage->getId;
$data{title} = $filename unless ($self->session->form->process("title"));
$data{menuTitle} = $filename unless ($self->session->form->process("menuTitle"));
$data{url} = $self->getParent->get('url').'/'.$filename unless ($self->session->form->process("url"));
$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) {
my $dbh = WebGUI::SQL->connect($self->session,$dsn,$username,$identifier);
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;
return $self->{_dbh};