#!/usr/local/bin/perl -w

use strict;
use lib '/home/mt';

use MT;
use MT::ConfigMgr;
use MT::Serialize;

my $data = {
    'webthemeroot'    => $ARGV[0] . '/mt-static/themes',
    'themeroot'       => $ARGV[1] . '/mt-static/themes',
    'current_theme_1' => 'theme-powell_street',
};

my $serial = MT::Serialize->new(MT::ConfigMgr->instance->Serializer);

my $result = $serial->serialize(\$data);
$result =~ s/\x00/\\0/g;

print $result;