# # -*- Perl -*- # # This is free software with ABSOLUTELY NO WARRANTY. # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either versions 2, or (at your option) # any later version. # # This program is distributed in the hope that it will be useful # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA # package mt3; use strict; require 'util.pl'; require 'gfilter.pl'; require 'html.pl'; require 'mailnews.pl'; # # This pattern specifies movabletype(ver.3)'s individual archive file names. # You should customize follow line. my $MT3_MESSAGE_FILE = '\d{6}\.html'; sub mediatype() { return ('text/html; x-type=mt3'); } sub status() { return 'yes'; } sub recursive() { return 0; } sub pre_codeconv() { return 1; } sub post_codeconv () { return 0; } sub add_magic ($) { return; } sub filter ($$$$$) { my ($orig_cfile, $contref, $weighted_str, $headings, $fields) = @_; my $cfile = defined $orig_cfile ? $$orig_cfile : ''; util::vprint("Processing movabletype3 file ...\n"); unless ($cfile =~ /($MT3_MESSAGE_FILE)$/o) { return "is not MovableType(Ver.3) individual archive file! skipped."; # error } mt3_filter($contref, $weighted_str, $fields); html::html_filter($contref, $weighted_str, $fields, $headings); $$contref =~ s/^\s+//; mailnews::uuencode_filter($contref); mailnews::mailnews_filter($contref, $weighted_str, $fields); mailnews::mailnews_citation_filter($contref, $weighted_str); gfilter::line_adjust_filter($contref); gfilter::line_adjust_filter($weighted_str); gfilter::white_space_adjust_filter($contref); gfilter::show_filter_debug_info($contref, $weighted_str, $fields, $headings); return undef; } # Assume a normal message files by Movable Type (Ver.3) sub mt3_filter ($$) { my ($contref, $weighted_str) = @_; $$contref =~ s/