[Mew-dist 04544] Re: im-91.tar.gz

[OKUNISHI Fujikazu]

>>> "Wed, 6 May 1998 15:13:32 +0900" に発信されたメッセージ
>>> [Mew-dist : No.04521] にて

> あと、imtar を入れました。> 奥西さん

ありがとうございます。実は、入れてくださるとは思ってませんでした(^_^;
ソースの有無をチェックするようにしてましたので、パッチです。

;; 何分 perl の練習がてらのものなので、あとはどなたかがきれいにしてく
;; ださるのを祈っています(^_^; --debug も無意味なまま。

--ふ

--- imtar.in.orig	Fri May  1 18:52:42 1998
+++ imtar.in	Sun Apr 12 17:24:24 1998
@@ -38,7 +38,7 @@
 $Prog :: compress folder into a single file.
 $VERSION
 
-usage: $Prog [options] [+folder]
+usage: $Prog [options] [+folder] [msg(s)]
 ";
 
 @OptConfig =(
@@ -70,6 +70,7 @@
 @msgs = ('all') if (!@ARGV);
 
 $opt_dst = "stdout" if ($opt_noharm);
+
 make_mmdf($opt_src, $opt_dst, \@msgs);
 exit $EXIT_SUCCESS;
 
@@ -83,6 +84,8 @@
     my @msg_paths;
 
     @msg_paths = get_impath($src, @{$msgs});
+#   im_notice("\@msg_paths=\"@msg_paths\"\n");
+    im_die("no message.\n") if (@msg_paths == "");
 
     if ($dst eq "stdout") {
         binmode(stdout);
@@ -96,6 +99,7 @@
     }
     foreach (@msg_paths){
         $msg = $_;
+        im_notice("source file: \"$msg\"\n");
         &open_msg($msg);
     }
     close(MMDF) if ($dst ne "stdout");
@@ -105,12 +109,12 @@
 sub open_msg ($) {
     my $msg = $_;
     my $mmdf_delimiter="\001\001\001\001";
-    if (open(MSG, "<$msg")) {
-        binmode(MSG);
+    if (open(ART, "<$msg")) {
+        binmode(ART);
         print "$mmdf_delimiter\n";
-        print while(<MSG>);
+        print while(<ART>);
         print "$mmdf_delimiter\n";
-        close(MSG);
+        close(ART);
     } else {
         im_die("cannot open $msg\n");
     }