1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
# Movable Type (r) Open Source (C) 2001-2012 Six Apart, Ltd.
# This program is distributed under the terms of the
# GNU General Public License, version 2.
#
# $Id$
package MT::CMS::Export;
use strict;
use MT::Util qw( dirify );
sub start_export {
my $app = shift;
my %param;
my $blog_id = $app->param('blog_id');
my $perms = $app->permissions;
return $app->permission_denied()
if !$app->can_do('open_blog_export_screen');
my $blog = $app->model('blog')->load($blog_id);
return $app->return_to_dashboard( redirect => 1 )
if !$blog || ( $blog && !$blog->is_blog );
$param{blog_id} = $blog_id;
$app->load_tmpl( 'export.tmpl', \%param );
}
sub export {
my $app = shift;
my $charset = $app->charset;
require MT::Blog;
my $blog_id = $app->param('blog_id')
or return $app->error( $app->translate("Please select a blog.") );
my $blog = MT::Blog->load($blog_id)
or return $app->error(
$app->translate(
"Load of blog '[_1]' failed: [_2]", $blog_id,
MT::Blog->errstr
)
);
my $perms = $app->permissions;
return $app->error(
$app->translate("You do not have export permissions") )
unless $perms && $perms->can_do('export_blog');
$app->validate_magic() or return;
my $file = dirify( $blog->name ) . ".txt";
if ( $file eq ".txt" ) {
my @ts = localtime(time);
$file = sprintf "export-%06d-%04d%02d%02d%02d%02d%02d.txt",
$app->param('blog_id'), $ts[5] + 1900, $ts[4] + 1,
@ts[ 3, 2, 1, 0 ];
}
$app->{no_print_body} = 1;
local $| = 1;
$app->set_header( "Content-Disposition" => "attachment; filename=$file" );
$app->send_http_header(
$charset
? "text/plain; charset=$charset"
: 'text/plain'
);
require MT::ImportExport;
MT::ImportExport->export( $blog, sub { $app->print_encode(@_) } )
or return $app->error( MT::ImportExport->errstr );
1;
}
1;
|
