Changeset 463 for mt4-backup/trunk/backup

Timestamp:

06/25/08 13:52:20 (7 months ago)

Author:

ogawa

Message:

Add version number and remove bogus messages.

Files:

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

mt4-backup/trunk/backup

@@ -10 +10 @@
 use base qw( MT::Tool );
 
+our $VERSION = '0.1';
+
 sub usage { '[--dir <dir>] [--blog_ids <id1,id2,...>] [--size <num>] [--archive=zip|tgz]' }
 
 sub help {
-    return q{
-        Creates a backup image.
+    return qq{
+        backup $VERSION - A command-line tools for backup
 
         --dir <dir>
@@ -30 +32 @@
                 just generates a set of backup files and does not create 
                 a compressed archive file.
+
     };
 }
@@ -113 +116 @@
             close $fh;
             if ($archive) {
+                my $filepath = File::Spec->catfile( $temp_dir, "$file.$archive" );
                 require MT::Util::Archive;
-                my $filepath = File::Spec->catfile( $temp_dir, "$file.$archive" );
                 my $arc = MT::Util::Archive->new($archive, $filepath);
                 $arc->add_file( $temp_dir, "$file.xml" );
@@ -123 +126 @@
                       "$file.manifest");
                 $arc->close;
+                # for safery, don't unlink before closing $arc here.
                 unlink $filename;
             }
@@ -180 +184 @@
                   . "' />\n";
                 push @files, $name;
-                print STDERR "Asset file '$name' (ID=$id) is created\n" if $verbose;
             }
             print $fh "</manifest>\n";
             close $fh;
             push @files, "$file.manifest";
-            print STDERR "Manifest file '$file.manfest' is created\n" if $verbose;
 
             if ($archive) {
@@ -195 +197 @@
                 }
                 $arc->close;
-                print STDERR "Archive file '$file.$archive' is created\n" if $verbose;
                 # for safery, don't unlink before closing $arc here.
                 for my $f (@files) {
                     unlink File::Spec->catfile( $temp_dir, $f );
-                    print STDERR "File '$f' is removed\n" if $verbose;
                 }
             }