+sub do_clean {
+ my $do_clean = sub {
+ $chg->clean(
+ finished_cb => sub {
+ my ($error) = @_;
+ if ($error) {
+ print "EXITSTATUS 1\n";
+ print "<error> $error\n";
+ Amanda::MainLoop::call_later(\&getcmd);
+ } else {
+ print "EXITSTATUS 0\n";
+ print "<none> cleaning operation successful\n";
+ Amanda::MainLoop::call_later(\&getcmd);
+ }
+ },
+ drive => '',
+ );
+ };
+ release_and_then([], $do_clean);
+}
+