From 82d3a08d01e8d374dd7764ed8998f38ae50d8299 Mon Sep 17 00:00:00 2001
From: rsc <devnull@localhost>
Date: Sun, 18 Dec 2005 11:36:30 +0000
Subject: fix from plan 9

---
 bin/yesterday | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

(limited to 'bin/yesterday')

diff --git a/bin/yesterday b/bin/yesterday
index bf31dac6..04ef31c7 100755
--- a/bin/yesterday
+++ b/bin/yesterday
@@ -1,6 +1,20 @@
 #!/usr/local/plan9/bin/rc
 
-path=($path $PLAN9/bin)
+. 9.rc
+
+smon='s/Jan/01/
+	s/Feb/02/
+	s/Mar/03/
+	s/Apr/04/
+	s/May/05/
+	s/Jun/06/
+	s/Jul/07/
+	s/Aug/08/
+	s/Sep/09/
+	s/Oct/10/
+	s/Nov/11/
+	s/Dec/12/'
+
 
 fn usage {
 	echo 'usage: yesterday [-cd] [-[[yy]yy]mm]dd] [-n daysago] file ...' >[1=2]
@@ -48,8 +62,8 @@ while(! ~ $#* 0 && ~ $1 -* && ! ~ $1 --){
 		}
 		if not
 			days=`{echo $1 | sed 's/^-.//'}
-		last=`{date -r `{perl -e 'print time() - '$days'*60*60*24'} | 
-				9 sed -e 's%... (...) (..) ..:..:.. ... (....)%\3/\1\2%' -e 'y/ /0/' -e $smon}
+		last=`{date `{hoc -e `{date -n} ^ '-'$days'*60*60*24'} | \
+				sed -e 's%... (...) (..) ..:..:.. ... (....)%\3/\1\2%' -e 'y/ /0/' -e $smon}
 		shift
 	case -[0-9]
 		mon=`{date|9 sed 's/^....(...).*/\1/' -e $smon}
-- 
cgit v1.2.3