Changeset 460

Timestamp:

06/24/08 01:38:32 (7 months ago)

Author:

ogawa

Message:

Fix a bug for not specifying blog_ids. And code clean up.

Files:

• mt4-backup/trunk/backup (modified) (6 diffs)

mt4-backup/trunk/backup

@@ -5 +5 @@
 package MT::Tool::Backup;
 use strict;
+use warnings;
 
 use lib qw( lib extlib );
@@ -42 +43 @@
 }
 
-use MT;
-
 sub main {
     my $class = shift;
@@ -54 +53 @@
     if ($blog_ids) {
         @blog_ids = grep { $_ =~ /^\d+$/ } ( split ',', $blog_ids );
+        die "There're no blogs to backup" unless scalar @blog_ids;
     } else {
-        my $iter = MT->model('blog')->load_iter;
-        while (my $blog = $iter->()) {
-            push @blog_ids, $blog->id;
-        }
+        die "There're no blogs to backup" unless MT->model('blog')->exist;
     }
-    die "There're no blogs to backup" unless scalar @blog_ids;
 
     if ($archive) {
@@ -75 +71 @@
 }
 
+# This function is almostly copied from MT::CMS::Tools::backup()
 use Symbol;
-use File::Spec;
-use File::Copy;
 
 sub backup {
@@ -88 +83 @@
     my $file = "Movable_Type-$ts" . '-Backup';
 
+    require File::Temp;
+    require File::Spec;
+    use File::Copy;
     require MT::BackupRestore;
 
@@ -153 +151 @@
 
         if ($archive) {
-            require File::Temp;
             my ( $fh_arc, $filepath ) =
                 File::Temp::tempfile( $archive . '.XXXXXXXX', DIR => $temp_dir );