package MT::Plugin::ChangeUploadPath;

use vars qw( $IS_LOCAL_SITE_PATH $EXTRA_ARCHIVE_PATH $EXTRA_SITE_PATH );
$IS_LOCAL_SITE_PATH = 1;
$EXTRA_ARCHIVE_PATH = '';
$EXTRA_SITE_PATH = 'image';

use strict;

require MT::Plugin;
require MT;

my $plugin = MT::Plugin->new({
    name => 'Change Upload Path',
    description => 'Change upload path of file.'
});
MT->add_plugin($plugin);

MT->add_callback('bigpapi::template::upload', 9, $plugin, \&change_upload_path);

sub change_upload_path {
    my ($cb, $app, $template) = @_;
    my ($old, $new);

    if ($IS_LOCAL_SITE_PATH) {
        $old = <<RADIO_ARCHIVE_OLD;
<input type="radio" name="site_path" value="0" checked="checked" />
RADIO_ARCHIVE_OLD
        $old = quotemeta($old);
        $new = <<RADIO_ARCHIVE_NEW;
<input type="radio" name="site_path" value="0" />
RADIO_ARCHIVE_NEW
        $$template =~ s/$old/$new/;
        $old = <<RADIO_SITE_OLD;
<input type="radio" name="site_path" value="1" />
RADIO_SITE_OLD
        $old = quotemeta($old);
        $new = <<RADIO_SITE_NEW;
<input type="radio" name="site_path" value="1" checked="checked" />
RADIO_SITE_NEW
        $$template =~ s/$old/$new/;
    }
    if ($EXTRA_ARCHIVE_PATH) {
        $old = <<EXTRA_ARCHIVE_PATH_OLD;
<input name="extra_path_archive" /><br />
EXTRA_ARCHIVE_PATH_OLD
        $old = quotemeta($old);
        $new = <<EXTRA_ARCHIVE_PATH_NEW;
<input name="extra_path_archive" value="$EXTRA_ARCHIVE_PATH" /><br />
EXTRA_ARCHIVE_PATH_NEW
        $$template =~ s/$old/$new/;
    }
    if ($EXTRA_SITE_PATH) {
        $old = <<EXTRA_SITE_PATH_OLD;
<input name="extra_path_site" />
EXTRA_SITE_PATH_OLD
        $old = quotemeta($old);
        $new = <<EXTRA_SITE_PATH_NEW;
<input name="extra_path_site" value="$EXTRA_SITE_PATH" />
EXTRA_SITE_PATH_NEW
        $$template =~ s/$old/$new/;
        $old = <<EXTRA_SITE_PATH_OLD;
<p>&lt;<MT_TRANS phrase="Local Site Path">&gt; / <input name="extra_path_site" /></p>
EXTRA_SITE_PATH_OLD
        $old = quotemeta($old);
        $new = <<EXTRA_SITE_PATH_NEW;
<p>&lt;<MT_TRANS phrase="Local Site Path">&gt; / <input name="extra_path_site" value="$EXTRA_SITE_PATH" /></p>
EXTRA_SITE_PATH_NEW
        $$template =~ s/$old/$new/;
    }
}

1;