#!/usr/bin/perl

# Copyright (C) 1994,1997 Noboru Ikuta <noboru@ikuta.ichihara.chiba.jp>
#
# wbody: MIME encoder Ver.0.02
#        $B%G!<%?$r(B MIME base64 $B$^$?$O(B Quoted-Printable $B$G%(%s%3!<%I$9$k!#(B
#
# $B;H$$J}(B : [ [j]perl ] wbody {-q|-b} [ $B%U%!%$%kL>(B ...]
#
#         mimew.pl $B$O!"4D6-JQ?t(B HOME$B"*(Bwbody$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

## $B%G!<%?=hM}$N%V%m%C%/D9!J%P%$%H!K(B
$len = 1026; ## $B<B9T;~$N%a%b%j$,87$7$$>l9g$O(B 54 $B$^$G8:$i$7$F$_$F$/$@$5$$!#(B
             ## (mimew.pl$BCf$N(B$foldcol)/4*3 ($B%G%U%)%k%H$G(B54)$B$NG\?t$K$9$k$H(B
             ## $B8zN($,$h$/$J$j$^$9!#(B54$B$NG\?t$G$J$/$F$bLdBj$J$/F0$-$^$9!#(B

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

if ($#ARGV >= $[){
    if ($ARGV[$[] =~ /^-q$/i){
	shift;
	$coding = "qp";
    }elsif ($ARGV[$[] =~ /^-b$/i){
	shift;
	$coding = "b64";
    }else{
	$coding = "b64";
    }
}else{
    $coding = "b64";
}

unshift(@ARGV, '-') if $#ARGV < $[;
while ($ARGV = shift) {
    open(ARGV, $ARGV) || die "Can't open $ARGV.\n";
    binmode ARGV;
    while(read(ARGV, $_, $len)){
        print &bodyencode($_,$coding);
    }
    print &benflush($coding);
}
