[Rt-commit] r5848 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Sun Sep  3 20:43:10 2006
New Revision: 5848

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/html/Admin/Tools/Shredder/index.html

Log:
 r3688 at cubic-pc:  cubic | 2006-09-04 04:51:03 +0400
 ::Shredder
 * fix up backups writing from web UI


Modified: rt/branches/3.7-EXPERIMENTAL/html/Admin/Tools/Shredder/index.html
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/html/Admin/Tools/Shredder/index.html	(original)
+++ rt/branches/3.7-EXPERIMENTAL/html/Admin/Tools/Shredder/index.html	Sun Sep  3 20:43:10 2006
@@ -79,11 +79,27 @@
 
 if( $Plugin && $Wipeout ) { { # use additional block({}) to effectively exit block on errors
 	my $shredder = new RT::Shredder( force => 1 );
-	my ($fn, $fh) = $shredder->SetFile;
+    my $backup_plugin = new RT::Shredder::Plugin;
+    my ($status, $msg) = $backup_plugin->LoadByName('SQLDump');
+	unless( $status ) {
+		push @{ $messages{Errors} }, $msg;
+		$Search = ''; @objs = ();
+		last;
+	}
+    ($status, $msg) = $backup_plugin->TestArgs;
+	unless( $status ) {
+		push @{ $messages{Errors} }, $msg;
+		$Search = ''; @objs = ();
+		last;
+	}
+
+	my ($fn) = $backup_plugin->FileName;
     push @{ $messages{'Success'} }, "SQL dump file is '$fn'";
 
+    $shredder->AddDumpPlugin( Object => $backup_plugin );
+
 	$shredder->PutObjects( Objects => \@WipeoutObject );
-	my ($status, $msg) = $plugin_obj->SetResolvers( Shredder => $shredder );
+	($status, $msg) = $plugin_obj->SetResolvers( Shredder => $shredder );
 	unless( $status ) {
 		push @{ $messages{Errors} }, $msg;
 		$Search = ''; @objs = ();