Changeset 951

Timestamp:

12/19/06 11:42:50 (2 years ago)

Author:

fumiakiy

Message:

* Restore now uses XML::SAX. mt-check and mt-wizard will now see XML::SAX. BugId: 45877
** Backup format has been changed so it will go better with SAX callbacks.
* Backup/Restore specific code has been removed from Object.pm and added to BackupRestore.pm for delay-loading. BugId: 45876
* Implemented weblog-level backup. Note a weblog administrator can backup weblog but can not restore if s/he is not a sysadmin. BugId: 45788

Files:

• branches/wheeljack/extras/examples/plugins/BackupRestoreSample/BackupRestoreSample.pl (modified) (2 diffs)
• branches/wheeljack/lib/MT/App/CMS.pm (modified) (21 diffs)
• branches/wheeljack/lib/MT/App/Wizard.pm (modified) (1 diff)
• branches/wheeljack/lib/MT/BackupRestore (added)
• branches/wheeljack/lib/MT/BackupRestore.pm (modified) (18 diffs)
• branches/wheeljack/lib/MT/BackupRestore/BackupFileHandler.pm (added)
• branches/wheeljack/lib/MT/BackupRestore/ManifestFileHandler.pm (added)
• branches/wheeljack/lib/MT/Object.pm (modified) (2 diffs)
• branches/wheeljack/mt-check.cgi.pre (modified) (1 diff)
• branches/wheeljack/t/61-to_from_xml.t (modified) (4 diffs)
• branches/wheeljack/tmpl/cms/backup_end.tmpl (modified) (2 diffs)
• branches/wheeljack/tmpl/cms/backup_restore.tmpl (modified) (9 diffs)
• branches/wheeljack/tmpl/cms/blog-left-nav.tmpl (modified) (1 diff)
• branches/wheeljack/tmpl/cms/dialog_restore_end.tmpl (modified) (1 diff)

branches/wheeljack/extras/examples/plugins/BackupRestoreSample/BackupRestoreSample.pl

@@ -28 +28 @@
-});
-MT->add_plugin($plugin);
-
-
-
-
-
-
+
+
-
-sub backup {
-
-
+
-    my $xml;
-    my $terms = {};
-
-
-
+
-    my @objects = BackupRestoreSample::Object->load($terms);
-    for my $object (@objects) {
@@ -50 +43 @@
-}
-
-
-
-
+
+
+
+
+
+
+
+
+
-}
-
-sub restore {
-    my ($cb, $xp, $xml_node, $parent, $objects, $deferred, $printer) = @_;
-    return 0 if !($xml_node->isa('XML::XPath::Node::Element'));
-    my $namespace_node = $xml_node->getNamespace($xml_node->getPrefix);
-    return 0 if $ns ne $namespace_node->getExpanded;
-    my $error = '';
-    my $obj = BackupRestoreSample::Object->from_xml(
-        XPath => $xp,
-        XmlNode => $xml_node,
-        Objects => $objects,
-        Deferred => $deferred,
-        Callback => $printer,
-        Namespace => $ns,
-    );
-    1;
-}
-
-sub restore_else {
-    my ($cb, $xp, $xml_node, $objects, $deferred, $printer) = @_;
-    return 0 if !($xml_node->isa('XML::XPath::Node::Element'));
-    my $namespace_node = $xml_node->getNamespace($xml_node->getPrefix);
-    return 0 if $ns ne $namespace_node->getExpanded;
-    $printer->('restore_else has been called: ' . $xml_node->toString);
-    1;
-}

branches/wheeljack/lib/MT/App/CMS.pm

@@ -10823 +10823 @@
-    my $app = shift;
-    my $user = $app->user;
-
+
+
+
+
+
+
-
-    my %param = ();
+    $param{blog_id} = $blog_id if $blog_id;
-    $app->add_breadcrumb($app->translate('Backup & Restore'));
-
+ unless $blog_id
-    $param{nav_backup} = 1;
-    my $missing_tgz = 0;
@@ -10840 +10846 @@
-    $param{zip} = !$missing_zip;
-
-XPath
-xpath
+SAX
+sax
-
-    my $limit = $app->config('CGIMaxUpload') || 2048;
@@ -10869 +10875 @@
-    my $app = shift;
-    my $user = $app->user;
-
+
+
+
+
+
+
-    $app->validate_magic() or return;
-    
-    my $q = $app->param;
-
-    my $what = $q->param('backup_what');
-    return $app->errtrans("You must select what you want to backup.") if !$what;
@@ -10907 +10916 @@
-    $app->add_breadcrumb($app->translate('Backup & Restore'), $app->uri(mode => 'backup_restore'));
-    $app->add_breadcrumb($app->translate('Backup'));
-
+
+
-    $param->{nav_backup} = 1;
-
@@ -10981 +10991 @@
-        $fh = gensym();
-        open $fh, ">$filename";
+        my $url = $app->uri . "?__mode=backup_download&name=$file-1.xml&magic_token=" . $app->current_magic;
+        $url .= "&blog_id=$blog_id" if defined($blog_id);
-        push @files, { 
-app->uri . "?__mode=backup_download&name=$file-1.xml&magic_token=" . $app->current_magic
+url
-            filename => $file . "-1.xml"
-        };
@@ -10993 +11005 @@
-            $fh = gensym();
-            open $fh, ">$filename";
+            my $url = $app->uri . "?__mode=backup_download&name=$file-$findex.xml&magic_token=" . $app->current_magic;
+            $url .= "&blog_id=$blog_id" if defined($blog_id);
-            push @files, {
-app->uri . "?__mode=backup_download&name=$file-$findex.xml&magic_token=" . $app->current_magic
+url
-                filename => $file . "-$findex.xml"
-            };
@@ -11023 +11037 @@
-            print $fh "</manifest>\n";
-            close $fh;
+            my $url = $app->uri . "?__mode=backup_download&name=$file.manifest&magic_token=" . $app->current_magic;
+            $url .= "&blog_id=$blog_id" if defined($blog_id);
-            push @files, {
-app->uri . "?__mode=backup_download&name=$file.manifest&magic_token=" . $app->current_magic
+url
-                filename => "$file.manifest"
-            };
@@ -11067 +11083 @@
-                $arc->writeToFileHandle($fh_arc);
-                close $fh_arc;
+                unlink File::Spec->catfile($temp_dir, $_->{filename}) foreach
+                    grep { !defined($_->{path}) } @files;
-                $app->_backup_finisher($fname, $param);
-            }
@@ -11079 +11097 @@
-    my $app = shift;
-    my $user = $app->user;
-
+
+
+
+
+
-    $app->validate_magic() or return;
-    my $filename = $app->param('filename');
@@ -11180 +11202 @@
-        $result = $app->restore_directory($dir, \$error);
-    } else {
+        $param->{restore_upload} = 1;
-        my $uploaded = $q->param('file');
-        my ($volume, $directories, $uploaded_filename) = File::Spec->splitpath($uploaded) if defined($uploaded);
-        if ($uploaded_filename =~ /^.+\.xml$/i) {
-            $param->{restore_upload} = 1;
-            $result = $app->restore_file($fh, \$error);
-        } elsif ($uploaded_filename =~ /^.+\.tar(\.gz)?$/i) {
@@ -11257 +11279 @@
-            $result = 0;
-            $error = $app->translate('Upload manifest file via the other form.');
+        } else {
+            $result = 0;
+            $error = $app->translate('Please use xml, tar.gz, zip, or manifest as a file extension.');
-        }
-    }
@@ -11292 +11317 @@
-        return 0;
-    }
+    if ($errormsg) {
+        $app->log({
+            message => $errormsg,
+            level => MT::Log::ERROR(),
+            class => 'system',
+            category => 'restore',
+        });
+       return 0;
+    }
-
-    $app->log({
@@ -11312 +11346 @@
-    }
-
+    my @errors;
-    my %error_assets;
-    require MT::BackupRestore;
-    my $deferred = MT::BackupRestore->restore_directory(
-
-
-
+
+
+
+
-        return 0;
-    }
@@ -11389 +11425 @@
-    return $app->errtrans("No manifest file was uploaded.") if $no_upload;
-
+    require MT::BackupRestore;
+    my $backups = MT::BackupRestore->process_manifest($fh);
+    return $app->errtrans("Uploaded file was not a valid Movable Type backup manifest file.") if !defined($backups);
+
+    my $files = $backups->{files};
+    my $assets = $backups->{assets};
+    my $file_next = shift @$files if defined($files) && scalar(@$files);
+    my $assets_json;
-    my $param = {};
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-    $param->{open_dialog} = 1;
-    $app->build_page('backup_restore.tmpl', $param);
@@ -11446 +11500 @@
-
-    my $uploaded = $q->param('file');
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-    }
-
@@ -11458 +11514 @@
-        return $app->build_page('dialog_restore_upload.tmpl', $param);
-    }
-
-    my $error;
-    my @obj_to_restore = (    ## Beware the order of keys is important.
-        {tag => 'MT::Tag'},
-        {author => 'MT::Author'},
-        {blog => 'MT::Blog'},
-        {template => 'MT::Template'},
-        {role => 'MT::Role'},
-        {category => 'MT::Category'},
-        {asset => 'MT::Asset'},
-        {entry => 'MT::Entry'},
-        {trackback => 'MT::Trackback'},
-        {comment => 'MT::Comment'},
-    );
- 
-    $app->{no_print_body} = 1;
@@ -11511 +11553 @@
-    }
-
-
+
+
-    my $asset;
+    my @errors;
-    require MT::BackupRestore;
-    if ($is_asset) {
@@ -11529 +11573 @@
-    } else {
-        MT::BackupRestore->restore_process_single_file(
-\@obj_to_restore, $objects, $deferred, \$error
+$objects, $deferred, \@errors
-    }
-
@@ -11545 +11589 @@
-    $param->{assets} = MT::Util::encode_html(JSON::objToJson($assets));
-    $param->{name} = $file_next;
-
+
+
+
+
+
+
+
-    $param->{is_dirty} = scalar(keys %$deferred);
-    if ($last) {
@@ -11572 +11622 @@
-                category => 'restore'
-            });
+            $param->{ok_url} = $app->uri(mode => 'backup_restore', args => {});
-        }
-    } else {
@@ -11579 +11630 @@
-        $param->{deferred_json} = JSON::objToJson($deferred);
-    
-$error if $error
+join('; ', @errors)
-        $param->{next_mode} = 'dialog_restore_upload';
-    }

branches/wheeljack/lib/MT/App/Wizard.pm

@@ -39 +39 @@
-    [ 'IO::Uncompress::Gunzip', 0, 0, 'IO::Uncompress::Gunzip is required in order to decompress files in backup/restore operation.', 'IO Uncompress Gunzip'],
-    [ 'Archive::Zip', 0, 0, 'Archive::Zip is required in order to archive files in backup/restore operation.', 'Archive Zip'],
-XPath', 0, 0, 'XML::XPath and/or its dependencies is required in order to restore from multiple files.', 'XML XPath
+SAX', 0, 0, 'XML::SAX and/or its dependencies is required in order to restore.', 'XML SAX
-);
-

branches/wheeljack/lib/MT/BackupRestore.pm

@@ -43 +43 @@
-            args => undef
-            }};
+        push @$obj_to_backup, {'MT::Notification' => {
+            term => { 'blog_id' => $blog_ids }, 
+            args => undef
+            }};
-        push @$obj_to_backup, {'MT::Template' => { 
-            term => { 'id' => $blog_ids }, 
+            args => undef
+            }};
+        push @$obj_to_backup, {'MT::TemplateMap' => {
+            term => { 'blog_id' => $blog_ids }, 
-            args => undef
-            }};
@@ -52 +60 @@
-                [ 'MT::Association', 'role_id', { blog_id => $blog_ids }, undef ]
-            }}};
+        push @$obj_to_backup, {'MT::Association' => {
+            term => { 'blog_id' => $blog_ids }, 
+            args => undef
+            }};
+        push @$obj_to_backup, {'MT::Permission' => {
+            term => { 'blog_id' => $blog_ids }, 
+            args => undef
+            }};
-        push @$obj_to_backup, {'MT::Category' => {
-            term => { 'blog_id' => $blog_ids }, 
@@ -64 +80 @@
-            args => undef
-            }};
+        push @$obj_to_backup, {'MT::FileInfo' => {
+            term => { 'blog_id' => $blog_ids }, 
+            args => undef
+            }};
+        push @$obj_to_backup, {'MT::ObjectTag' => {
+            term => { 'blog_id' => $blog_ids }, 
+            args => undef
+            }};
+        push @$obj_to_backup, {'MT::Placement' => {
+            term => { 'blog_id' => $blog_ids }, 
+            args => undef
+            }};
-        push @$obj_to_backup, {'MT::Trackback' => {
-            term => { 'blog_id' => $blog_ids }, 
-            args => undef
-            }};
+        push @$obj_to_backup, {'MT::TBPing' => {
+            term => { 'blog_id' => $blog_ids }, 
+            args => undef
+            }};
-        push @$obj_to_backup, {'MT::Comment' => {
-            term => { 'blog_id' => $blog_ids }, 
-            args => undef
-            }};
+        push @$obj_to_backup, {'MT::PluginData' => { term => undef, args => undef }};
-    } else {
-        push @$obj_to_backup, {'MT::Tag' => { term => undef, args => undef }};
-        push @$obj_to_backup, {'MT::Author' => { term => undef, args => undef }};
-        push @$obj_to_backup, {'MT::Blog' => { term => undef, args => undef }};
+        push @$obj_to_backup, {'MT::Notification' => { term => undef, args => undef }};
-        push @$obj_to_backup, {'MT::Template' => { term => undef, args => undef }};
+        push @$obj_to_backup, {'MT::TemplateMap' => { term => undef, args => undef }};
-        push @$obj_to_backup, {'MT::Role' => { term => undef, args => undef }};
+        push @$obj_to_backup, {'MT::Association' => { term => undef, args => undef }};
+        push @$obj_to_backup, {'MT::Permission' => { term => undef, args => undef }};
-        push @$obj_to_backup, {'MT::Category' => { term => undef, args => undef }};
-        push @$obj_to_backup, {'MT::Asset' => { term => undef, args => undef }};
-        push @$obj_to_backup, {'MT::Entry' => { term => undef, args => undef }};
+        push @$obj_to_backup, {'MT::FileInfo' => { term => undef, args => undef }};
+        push @$obj_to_backup, {'MT::ObjectTag' => { term => undef, args => undef }};
+        push @$obj_to_backup, {'MT::Placement' => { term => undef, args => undef }};
-        push @$obj_to_backup, {'MT::Trackback' => { term => undef, args => undef }};
+        push @$obj_to_backup, {'MT::TBPing' => { term => undef, args => undef }};
-        push @$obj_to_backup, {'MT::Comment' => { term => undef, args => undef }};
+        push @$obj_to_backup, {'MT::PluginData' => { term => undef, args => undef }};
+        $blog_ids = [];
-    }
-
@@ -93 +136 @@
-        $printer, $splitter, $finisher, $size, $obj_to_backup, $files);
-
-.else'
+', $blog_ids
-    $printer->($else_xml, q()) if $else_xml ne '1';
-
@@ -151 +194 @@
-    my ($fh, $errormsg, $callback) = @_;
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
-    );
-
-
-
-
-
-
-
+
-    $deferred;
-}
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-sub restore_process_single_file {
-    my $class = shift;
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-}
-
-sub restore_directory {
-    my $class = shift;
-
+s
-
-    my $manifest;
-    my @files;
-$$error = MT->translate("Can't open directory '[_1]': [_2]", $dir, "$!"
+push(@$errors, MT->translate("Can't open directory '[_1]': [_2]", $dir, "$!")
-    for my $f (readdir $dh) {
-        next if $f !~ /^.+\.manifest$/i;
@@ -260 +245 @@
-    closedir $dh;
-    unless ($manifest) {
-$$error =
+push @$errors,
-        return undef;
-    }
-
-    my $fh = gensym;
-$$error = MT->translate('[_1] cannot open.'
-
+push(@$errors, MT->translate("Can't open [_1].", $manifest)
+_PACKAGE__->
-    close $fh;
-    unless($backups) {
-$$error =
+push @$errors,
-        return undef;
-    }
@@ -275 +260 @@
-    $callback->(MT->translate("Manifest file: [_1]\n", $manifest));
-
-    my @obj_to_restore = (    ## Beware the order of keys is important.
-        {tag => 'MT::Tag'},
-        {author => 'MT::Author'},
-        {blog => 'MT::Blog'},
-        {template => 'MT::Template'},
-        {role => 'MT::Role'},
-        {category => 'MT::Category'},
-        {asset => 'MT::Asset'},
-        {entry => 'MT::Entry'},
-        {trackback => 'MT::Trackback'},
-        {comment => 'MT::Comment'},
-    );
-    my %objects;
-    my $deferred = {};
@@ -294 +267 @@
-        my $fh = gensym;
-        my $filepath = File::Spec->catfile($dir, $file);
-
-
-
-
-
-
+
-
-        my $result = __PACKAGE__->restore_process_single_file(
-@obj_to_restore, \%objects, $deferred, $error
+%objects, $deferred, $errors
-
-        close $fh;
@@ -311 +279 @@
-}
-
-
+
+
-    my ($stream) = @_;
-
-    if ((ref($stream) eq 'Fh') || (ref($stream) eq 'GLOB')){
-        seek($stream, 0, 0) or return undef;
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
-    }
-    return undef;
@@ -353 +306 @@
-
-    my $id = $asset_element->{asset_id};
-
-
+
+
+
+
-    my $asset = $objects->{"MT::Asset#$id"};
+    unless (defined($asset)) {
+        $asset = $objects->{"MT::Asset::Image#$id"};
+        unless (defined($asset)) {
+            $callback->(MT->translate('The asset ([_1]) was not restored.', $id));
+            return 0;
+        }
+    }
-    my $path = $asset->file_path;
-
+
+
+
+
-    my ($vol, $dir, $fn) = File::Spec->splitpath($path);
-    if (!-w "$vol$dir") {
@@ -392 +357 @@
-    }
-    1;
-}
-
-sub restore_upload_manifest {
-    my $class = shift;
-    my ($fh, $param) = @_;
-
-    my $backups = _process_manifest($fh);
-    return MT->translate("Uploaded file was not a valid Movable Type backup manifest file.") if !defined($backups);
-
-    my $files = $backups->{files};
-    my $assets = $backups->{assets};
-    my $file_next = shift @$files if defined($files) && scalar(@$files);
-    my $assets_json;
-
-    if (!defined($file_next)) {
-        if (scalar(@$assets) > 0) {
-            my $asset = shift @$assets;
-            $file_next = $asset->{name};
-            $param->{is_asset} = 1;
-        }
-    }
-    require JSON;
-    require MT::Util;
-    $assets_json = MT::Util::encode_html(JSON::objToJson($assets)) if scalar(@$assets) > 0;
-    $param->{files} = join(',', @$files);
-    $param->{assets} = $assets_json;
-    $param->{filename} = $file_next;
-    return q();
-}
-
@@ -489 +426 @@
-                push @elements, $name;
-                next;
-                #} elsif (('datetime' eq $coldefs->{$name}{type}) || ('timestamp' eq $coldefs->{$name}{type})) {
-                #    my $ts_iso = MT::Util::ts2iso(undef, $obj->column($name));
-                #    $ts_iso =~ s/ /T/;
-                #    $xml .= " $name='" . $ts_iso . "'";
-                #    next;
-            }
-            $xml .= " $name='" . MT::Util::encode_xml($obj->column($name), 1) . "'";
@@ -500 +432 @@
-    $xml .= '>';
-    $xml .= "<$_>" . MT::Util::encode_xml($obj->column($_), 1) . "</$_>" foreach @elements;
-    $xml .= $obj->children_to_xml($namespace, $args);
-    my $ext_xml = MT->run_callbacks('Backup.' . $obj->datasource, $obj);
-    $xml .= $ext_xml if $ext_xml ne '1';
-    $xml .= '</' . $obj->datasource . '>';
-    $xml;
@@ -537 +466 @@
-    }
-    (scalar(keys(%$parent_names)) == $done) ? 1 : 0;   
-}
-
-sub from_xml {
-    my $class = shift;
-    my (%param) = @_;
-    my $xp = $param{XPath};
-    my $element = $param{XmlNode};
-    my $objects = $param{Objects};
-    my $deferred = $param{Deferred};
-    my $error = $param{Error};
-    my $cb = $param{Callback};
-
-    require MT::BackupRestore;
-    my $namespace = $param{Namespace} || MT::BackupRestore::NS_MOVABLETYPE();
-
-    if (ref($class)) {
-        $class = ref($class);
-    }
-
-    my $err = $@;
-    if (defined($err) && $err) {
-        $cb->($err . "\n");
-        return undef;
-    }
-
-    my $obj = $class->new;
-    if (!$obj || !($obj->isa('MT::Object'))) {
-        $cb->(MT->translate("Invalid XML element to restore: [_1]\n", $class));
-        return undef;
-    }
-
-    my %data;
-    my $coldefs = $obj->column_defs;
-    my $attributes = $element->getAttributeNodes;
-    for my $attribute (@$attributes) {
-        my $colname = $attribute->getLocalName;
-        #if (('datetime' eq $coldefs->{$colname}{type}) || ('timestamp' eq $coldefs->{$colname}{type})) {
-        #    $data{$colname} = MT::Util::iso2ts(undef, $attribute->getNodeValue);
-        #} else {
-            $data{$colname} = $attribute->getNodeValue;
-        #}
-    }
-
-    my $success = 1;
-    my $parent_names = $obj->parent_names;
-    $success = $obj->restore_parent_ids(\%data, $objects) if scalar(keys %$parent_names);
-    if (!$success) {
-        $cb->(MT->translate("Restoring [_1] (ID: [_2]) was deferred because its parents objects have not been restored yet.\n", $class, $data{id}));
-        $deferred->{$class . '#' . $data{id}} = 1;
-        return undef;
-    }
-
-    $cb->(MT->translate("Restoring [_1]...\n", $class));
-
-    my @extension_names;
-    my $child_element_names = $obj->children_names;
-    my $nodeset = $xp->find("*", $element);
-    for my $index (1..$nodeset->size()) {
-        my $node = $nodeset->get_node($index);
-        next if !($node->isa('XML::XPath::Node::Element'));
-
-        my $ns = $node->getNamespace($node->getPrefix);
-        if ($ns && ($namespace eq $ns->getExpanded)) {
-            if (!exists($child_element_names->{$node->getLocalName})) {
-                $data{$node->getLocalName} = MT::Util::decode_xml($node->string_value);
-            }
-        } elsif ($ns) {
-            push @extension_names, $node->getLocalName;
-        }
-    }
-
-    my $old_id = $data{id};
-    delete $data{id};
-    $obj->set_values(\%data);
-    $obj->save or
-        $cb->($obj->errstr . "\n"), return undef;
-    $cb->(MT->translate("[_1] [_2] (ID: [_3]) has been restored successfully with new ID: [_4]\n",
-            $element->getLocalName =~ m/^[aeiou]/i ? 'An' : 'A',
-            $element->getLocalName,
-            $old_id,
-            $obj->id)
-    );
-    my $key = "$class#$old_id";
-    delete $deferred->{$key} if exists $deferred->{$key};
-    $objects->{$key} = $obj;
-
-    for my $name (keys %$child_element_names) {
-        my $children_set = $xp->find("*[local-name()='$name']", $element);
-        for my $index2 (1..$children_set->size()) {
-            my $node = $children_set->get_node($index2);
-            my $ns = $node->getNamespace($node->getPrefix);
-            next if !$ns || $namespace ne $ns->getExpanded;
-            
-            $param{XmlNode} = $node;
-            my $class = $child_element_names->{$name};
-            eval "require $class;";
-            my $child = $class->from_xml(%param);
-            next if !defined($child);
-            my $child_old_id = $node->getAttribute('id');
-            my $grand_children_names = $child->children_names;
-            if (scalar(keys %$grand_children_names)) {
-                my $child_key = "$class#$child_old_id";
-                $objects->{$child_key} = $child;
-            }
-        }
-    }
-
-    for my $ext_name (@extension_names) {
-        my $extension_set = $xp->find("*[local-name()='$ext_name']", $element);
-        for my $index3 (1..$extension_set->size()) {
-            my $ext_node = $extension_set->get_node($index3);
-            my $ns = $ext_node->getNamespace($ext_node->getPrefix);
-            next if !$ns || $namespace eq $ns->getExpanded;
-
-            MT->run_callbacks('Restore.' . $obj->datasource . ':' . $ns->getExpanded,
-                $xp, $ext_node, $obj, $objects, $deferred, $cb);
-        }
-    }
-    $obj;
-}
-
@@ -747 +557 @@
-package MT::Category;
-
-
-
-
+#
+#
+#
-
-sub children_to_xml {
@@ -1265 +1075 @@
-specified directory.
-
-restore_upload
+process
-
-TODO A method which is called from MT::App::CMS to process an uploaded
@@ -1273 +1083 @@
-=head1 Callbacks
-
+For plugins which uses MT::Object-derived types, backup and restore
+operation call callbacks for plugins to inject XMLs so they are
+also backup, and read XML to restore objects so they are also restored.
+
-Callbacks called by the package are as follows:
-
-=over 4
-
-.else
+
-    
-Calling convention is:
-
-
+, $blog_ids
-
-The callback is used for MT::Object-derived types used by plugins
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+