#!/usr/bin/perl

# Copyright (C) 1994,1997 Noboru Ikuta <noboru@ikuta.ichihara.chiba.jp>
#
# rbody: MIME decoder Ver.0.02
#        MIME base64 encoding $B$^$?$O(B Quoted-Printable encoding $B$5$l$?(B
#        $B%G!<%?$r%G%3!<%I$9$k!#(B
#
# $B;H$$J}(B : [ [j]perl ] rbody {-q|-b} [ $B%U%!%$%kL>(B ...]
#
#         mimer.pl $B$O!"4D6-JQ?t(B HOME$B"*(Brbody$B$HF1$8"*DL>o$N(B@INC $B$N=g$K%5(B
#         $B!<%A$5$l$^$9!#(B
#
# $BG[I[>r7o(B : $BCx:n8"$OJ|4~$7$^$;$s$,!"G[I[!&2~JQ$O<+M3$H$7$^$9!#(B

$home = $ENV{'HOME'};
$perl_dir = $0;
$perl_dir =~ s/\\/\//g;
substr($perl_dir, rindex($perl_dir, "/")) = '';
unshift(@INC, $home, $perl_dir);
require 'mimer.pl';

if ($#ARGV >= $[){
    if ($ARGV[$[] =~ /^-q$/i){
	shift;
	$coding = "qp";
	print STDERR "Quoted-Printable decoding\n";
    }elsif ($ARGV[$[] =~ /^-b$/i){
	shift;
	$coding = "b64";
	print STDERR "Base64 decoding\n";
    }else{
	$coding = "b64";
	print STDERR "Base64 decoding\n";
    }
}

binmode STDOUT;
while(<>){
    print &bodydecode($_,$coding);
}
print &bdeflush($coding);
