+# Scrub view and vob storage records
+for ($clearadm->FindVob) {
+ ($err, $msg) = $clearadm->TrimStorage('vob', $_->{tag}, $_->{region});
+
+ if ($msg eq 'Records deleted' or $msg eq '') {
+ verbose "Scub VOB $_->{tag} $err $msg";
+ } else {
+ error "#$err: $msg";
+ } # if
+} # for
+
+for ($clearadm->FindView) {
+ ($err, $msg) = $clearadm->TrimStorage('view', $_->{tag}, $_->{region});
+
+ if ($msg eq 'Records deleted' or $msg eq '') {
+ verbose "Scub View $_->{tag} $err $msg";
+ } else {
+ error "#$err: $msg";
+ } # if
+} # for
+
+# Make sure the Clearcase objects we have in Clearadm are still valid
+my ($views, $vobs) = $clearadm->ValidateCCObjects;
+
+if ($vobs !~ /^\d+/) {
+ error "Unable to validate Clearcase objects: $vobs", $views;
+} else {
+ $runlog{status} = 0;
+
+ $runlog{message} = "Deleted $views views\n" if $views;
+ $runlog{message} .= "Deleted $vobs vobs" if $vobs;
+
+ $clearadm->AddRunlog(%runlog);
+} # if
+