--- a/postcnv	Thu May 03 17:09:32 2012 +0900
+++ b/postcnv	Wed Nov 12 02:46:27 2014 +0900
@@ -1,8 +1,25 @@
 #!/usr/bin/perl
 
-@A = ();
-$i = 0;
-$tmp = "/tmp/postaa$$";
+my @A = ();
+my $i = 0;
+my $tmp = "/tmp/postaa$$";
+my $host = "yourhost.cr.ie.u-ryukyu.ac.jp";
+my $f;
+my $file;
+my @U;
+my $debug = 0;
+
+if ($debug) {
+   open(LOG,">>/tmp/postcnv.log");
+}
+
+sub mysystem {
+   my ($arg) = @_;
+   print LOG "$arg\n" if ($debug);
+   system $arg;
+}
+
+# system "echo @ARGV >> /tmp/ahoaho";
 
 #     /usr/local/mh/lib/post [-alias aliasfile]
 #          [-filter filterfile] [-nofilter] [-format] [-noformat]
@@ -18,21 +35,39 @@
     } elsif( /^-filter/ ) {
        push(@A,$_); $_ = shift(@ARGV); push(@A,$_);
     } elsif( /^-idanno/ ) {
-       push(@A,$_); $_ = shift(@ARGV); push(@A,$_);
+       shift(@ARGV);
+       # push(@A,$_); $_ = shift(@ARGV); push(@A,$_);
     } elsif( /^-library/ ) {
        push(@A,$_); $_ = shift(@ARGV); push(@A,$_);
     } elsif( /^-width/ ) {
        push(@A,$_); $_ = shift(@ARGV); push(@A,$_);
     } elsif( /^-/ ) {
-       push(@A,$_);
+       push(@A,$_); 
     } else {
        $f = $tmp . $i++;
-       system("nkf -j -m0 < $_ > $f");
-       push(@A,$f); push(@U,$f);
+       $file = $_;
+       push(@A,$f); # push(@U,$_);
     } 
 }
 
-system "/usr/local/lib/mh/post @A";
+# system "refile -link -src +drafts last +send";
+# print STDERR "/bin/cp $f $new\n";
+if ($file) {
+    my $new  = `/usr/local/mh/bin/mhpath +send new`;
+    # system("nkf -j -m0 --overwrite $file");   too late?
+    mysystem("/bin/cp $file $new");
+    mysystem("scp $file ${host}:${f}");
+}
 
-unlink(@U);
+# system "echo remote @A >> /tmp/ahoaho";
+# how to handle error?
+mysystem("ssh  $host /usr/local/mh/lib/post @A");
 
+if (! $debug) {
+  mysystem("ssh $host rm $f");
+}
+
+# unlink(@U);
+1;
+
+#end