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

Create the bundle directory, with error handling.

Browse source
This commit is contained in:
Colin Kuskie 2009-05-15 09:54:22 -07:00
parent 68378665be
commit 2db7f98169
1 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/WebGUI/FilePump/Bundle.pm
View file

@ -78,7 +78,7 @@ the method returns 0, along with an error message.
sub build { sub build {
my ($self) = @_; my ($self) = @_;
my $lastBuild = time(); my $newBuild = time();
my $originalBuild = $self->get('lastBuild'); my $originalBuild = $self->get('lastBuild');
##Whole lot of building ##Whole lot of building
@ -116,6 +116,14 @@ sub build {
return (0, $error) if ($error); return (0, $error) if ($error);
##Create the new build directory ##Create the new build directory
my $newDir = $self->getPathClassBuild($newBuild);
my $mkpathErrors;
my $dirsCreated = $newDir->mkpath({ errors => $mkpathErrors });
if (! $dirsCreated) {
$newDir->rmtree;
my $errorMessages = join "\n", @{ $mkpathErrors };
return (0, $errorMessages);
}
##Minimize files, and write them out. ##Minimize files, and write them out.
@ -130,7 +138,7 @@ sub build {
$self->update({ $self->update({
jsFiles => $jsFiles, jsFiles => $jsFiles,
cssFiles => $cssFiles, cssFiles => $cssFiles,
lastBuild => $lastBuild, lastBuild => $newBuild,
}); });
return 1; return 1;
} }
@ -542,7 +550,7 @@ sub getPathClassDir {
return Path::Class::Dir->new( return Path::Class::Dir->new(
$self->session->config->get('uploadsPath'), $self->session->config->get('uploadsPath'),
'filepump', 'filepump',
$self->get('bundleName') . $lastBuild $self->session->url->urlize($self->get('bundleName')) . '.' . $lastBuild
); );
} }