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

Fix an I/O wrapping problem with checking for broken file assets and storage locations.

Browse source
This commit is contained in:
Colin Kuskie 2012-04-02 11:09:53 -07:00
parent d4f63b2bce
commit 604887ff66
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
sbin/findBrokenAssets.pl
View file

@ -253,7 +253,7 @@ if ($file_assets) {
my $file_asset = eval { $get_asset->() }; my $file_asset = eval { $get_asset->() };
if ( $@ || Exception::Class->caught() ) { if ( $@ || Exception::Class->caught() ) {
##Do nothing, since it would have been caught above ##Do nothing, since it would have been caught above
printf "\r%-68s", "No asset to check"; printf "\r%-68s\n", "No asset to check";
} }
elsif (!$file_asset) { elsif (!$file_asset) {
last FILE_ASSET last FILE_ASSET
@ -261,7 +261,7 @@ if ($file_assets) {
else { else {
my $storage = $file_asset->getStorageLocation; my $storage = $file_asset->getStorageLocation;
if (! $storage) { if (! $storage) {
printf "\r%-s", "-- No storage location: ".$file_asset->getId." storageId: ".$file_asset->get('storageId'); printf "\r%-s\n", "-- No storage location: ".$file_asset->getId." storageId: ".$file_asset->get('storageId');
} }
else { else {
my $file = $storage->getPath($file_asset->get('filename')); my $file = $storage->getPath($file_asset->get('filename'));
@ -276,9 +276,9 @@ if ($file_assets) {
print "Could not purge File Asset"; print "Could not purge File Asset";
} }
} }
print "\n";
} }
} }
print "\n";
} }
progress( $file_assets, $count++ ) unless $no_progress; progress( $file_assets, $count++ ) unless $no_progress;
} }