From b2420d8ffa4d347a75efbbdc376f4ce65c0eb172 Mon Sep 17 00:00:00 2001
From: Yukihiro Matsumoto <matz@ruby-lang.org>
Date: Mon, 10 Apr 1995 18:36:06 +0900
Subject: version 0.73
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

https://cache.ruby-lang.org/pub/ruby/1.0/ruby-0.73.tar.gz

Mon Apr 10 18:36:06 1995  Yukihiro Matsumoto  (matz@ix-02)

	* version 0.73

Fri Apr  7 13:51:08 1995  Yukihiro Matsumoto  (matz@ix-02)

	* cons.c->assoc.c: consの余計な機能は外してpairとしての機能だけを
	  残した．enumerableをincludeするのもやめた．

	* string.c(esub): 文字列置換イテレータ．perlのs///eの相当する．
---
 sample/from.rb | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)
 mode change 100644 => 100755 sample/from.rb

(limited to 'sample')

diff --git a/sample/from.rb b/sample/from.rb
old mode 100644
new mode 100755
index a8baf4f375..df82d5a745
--- a/sample/from.rb
+++ b/sample/from.rb
@@ -59,8 +59,11 @@ $ARGV[0] = '/usr/spool/mail/' + ENV['USER'] if $ARGV.length == 0
 
 $outcount = 0;
 def fromout(date, from, subj)
-  y, m, d = parsedate(date)
-  printf "%-2d/%02d/%02d [%.28s] %.40s\n", y, m, d, from, subj
+  y = m = d = 0
+  y, m, d = parsedate(date) if date
+  from = "sombody@somewhere" if ! from
+  subj = "(nil)" if ! subj
+  printf "%-2d/%02d/%02d [%-28.28s] %-40.40s\n", y, m, d, from, subj
   $outcount += 1
 end
   
@@ -83,7 +86,6 @@ while TRUE
   fromout fields['Date'], fields['From'], fields['Subject']
 
   while gets()
-#    print $_
     break if /^From /
   end
 
-- 
cgit v1.2.3