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

findBrokenAssets: Don't delete Shortcuts if they were requested to be fixed. Also handle File assets that have lost their files.

Browse source
This commit is contained in:
Colin Kuskie 2012-01-19 08:41:32 -08:00
parent 3ef66c73c7
commit c35b2e5758
1 changed files with 54 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

57
sbin/findBrokenAssets.pl
View file

@ -225,7 +225,7 @@ if ($shortcuts) {
my $linked_asset = eval { WebGUI::Asset->newPending($session, $shortcut->get('shortcutToAssetId')); }; my $linked_asset = eval { WebGUI::Asset->newPending($session, $shortcut->get('shortcutToAssetId')); };
if ( $@ || Exception::Class->caught() || ! $linked_asset ) { if ( $@ || Exception::Class->caught() || ! $linked_asset ) {
printf "\r%-68s", "-- Broken shortcut: ".$shortcut->getId.' pointing to '.$shortcut->get('shortcutToAssetId'); printf "\r%-68s", "-- Broken shortcut: ".$shortcut->getId.' pointing to '.$shortcut->get('shortcutToAssetId');
if ($fix || $delete) { if ($delete) {
my $success = $shortcut->purge; my $success = $shortcut->purge;
if ($success) { if ($success) {
print "Purged shortcut"; print "Purged shortcut";
@ -242,6 +242,44 @@ if ($shortcuts) {
progress( $shortcuts, $count ) unless $no_progress; progress( $shortcuts, $count ) unless $no_progress;
} }
print "\n";
my $file_assets = $session->db->quickScalar(q!select count(*) from asset where className like 'WebGUI::Asset::File%'!);
if ($file_assets) {
print "Checking for broken File Assets\n";
my $get_asset = WebGUI::Asset::File->getIsa($session, 0, {returnAll => 1});
$count = 0;
FILE_ASSET: while (1) {
my $file_asset = eval { $get_asset->() };
if ( $@ || Exception::Class->caught() ) {
##Do nothing, since it would have been caught above
printf "\r%-68s", "No asset to check";
}
elsif (!$file_asset) {
last FILE_ASSET
}
else {
my $storage = $file_asset->getStorageLocation;
my $file = $storage->getPath($file_asset->get('filename'));
if (! -e $file) {
printf "\r%-s", "-- Broken file asset: ".$file_asset->getId." file does not exist: $file";
if ($delete) {
my $success = $file_asset->purge;
if ($success) {
print "Purged File Asset";
}
else {
print "Could not purge File Asset";
}
}
print "\n";
}
}
progress( $file_assets, $count++ ) unless $no_progress;
}
progress( $file_assets, $count ) unless $no_progress;
}
finish($session); finish($session);
print "\n"; print "\n";
@ -298,7 +336,20 @@ findBrokenAssets.pl -- Find and fix broken assets
=head1 DESCRIPTION =head1 DESCRIPTION
This utility will find any broken assets that cannot be instantiated and are This utility will find any broken assets that cannot be instantiated and are
causing undesired operation of your website. causing undesired operation of your website. It also checks for these kinds of
semi-working assets and reports them:
=over 4
=item *
Shortcuts pointing to assets that don't exist.
=item *
File assets that have lost their files in the uploads area.
=back
It can also automatically delete them or fix them so you can restore missing data. It can also automatically delete them or fix them so you can restore missing data.
@ -320,7 +371,7 @@ Delete any corrupted assets.
=item B<--fix> =item B<--fix>
Try to fix any corrupted assets. Try to fix any corrupted assets. The broken Shortcuts and File Assets cannot be fixed.
=item B<--help> =item B<--help>