Browse Source

Plan 9 from Bell Labs 2003-11-06

David du Colombier 20 years ago
parent
commit
313e75576d
6 changed files with 50 additions and 11 deletions
  1. 4 3
      dist/replica/plan9.db
  2. 5 0
      dist/replica/plan9.log
  3. 14 4
      rc/bin/fshalt
  4. 6 3
      rc/bin/iwhois
  5. 20 0
      rc/bin/thesaurus
  6. 1 1
      sys/src/9/ip/icmp.c

+ 4 - 3
dist/replica/plan9.db

@@ -2974,7 +2974,7 @@ rc/bin/dosmnt - 775 sys sys 958526437 285
 rc/bin/eject - 775 sys sys 945617207 123
 rc/bin/fax - 775 sys sys 1015701359 2390
 rc/bin/fedex - 775 sys sys 1060187356 1244
-rc/bin/fshalt - 775 sys sys 1067991211 958
+rc/bin/fshalt - 775 sys sys 1068087338 1092
 rc/bin/homespool - 775 sys sys 945617207 339
 rc/bin/ipconf - 20000000775 sys sys 1058791152 0
 rc/bin/ipconf/inside - 775 sys sys 1058790955 427
@@ -2982,7 +2982,7 @@ rc/bin/ipconf/lra - 775 sys sys 1058791152 1558
 rc/bin/ipconf/outside - 775 sys sys 1058790951 550
 rc/bin/ipconf/theworld - 775 sys sys 1058790940 1212
 rc/bin/ipso - 775 sys sys 1035591514 2304
-rc/bin/iwhois - 775 sys sys 1032057928 435
+rc/bin/iwhois - 775 sys sys 1068053163 584
 rc/bin/kill - 775 sys sys 1018387014 132
 rc/bin/label - 775 sys sys 945617207 34
 rc/bin/lc - 775 sys sys 945617207 24
@@ -3076,6 +3076,7 @@ rc/bin/stock - 775 sys sys 1055701355 288
 rc/bin/stop - 775 sys sys 945617209 110
 rc/bin/tel - 775 sys sys 1019854296 136
 rc/bin/termrc - 775 sys sys 1064585645 2650
+rc/bin/thesaurus - 775 sys sys 1068054167 246
 rc/bin/tlsclienttunnel - 775 sys sys 1024375633 153
 rc/bin/tlssrvtunnel - 775 sys sys 1024375634 175
 rc/bin/troff2gif - 775 sys sys 1045504085 178
@@ -5151,7 +5152,7 @@ sys/src/9/ip/eipconvtest.c - 664 sys sys 1022588098 3135
 sys/src/9/ip/esp.c - 664 sys sys 1047260561 17084
 sys/src/9/ip/ethermedium.c - 664 sys sys 1066514880 15124
 sys/src/9/ip/gre.c - 664 sys sys 1047260562 4684
-sys/src/9/ip/icmp.c - 664 sys sys 1047260563 9437
+sys/src/9/ip/icmp.c - 664 sys sys 1068049000 9438
 sys/src/9/ip/icmp6.c - 664 sys sys 1047260563 18098
 sys/src/9/ip/igmp.c - 664 sys sys 1055700768 5175
 sys/src/9/ip/il.c - 664 sys sys 1055700772 26893

+ 5 - 0
dist/replica/plan9.log

@@ -14161,3 +14161,8 @@
 1067956269 0 a rc/bin/fshalt - 775 sys sys 1067955436 974
 1067959869 0 c rc/bin/fshalt - 775 sys sys 1067958750 898
 1067992260 0 c rc/bin/fshalt - 775 sys sys 1067991211 958
+1068049883 0 c sys/src/9/ip/icmp.c - 664 sys sys 1068049000 9438
+1068053491 0 c rc/bin/fshalt - 775 sys sys 1068052566 1102
+1068053491 1 c rc/bin/iwhois - 775 sys sys 1068053163 584
+1068055291 0 a rc/bin/thesaurus - 775 sys sys 1068054167 246
+1068087698 0 c rc/bin/fshalt - 775 sys sys 1068087338 1092

+ 14 - 4
rc/bin/fshalt

@@ -21,8 +21,13 @@ echo -n venti...
 venti/sync >[2]/dev/null
 
 for (i in $k){
-	echo -n $i
-	disk/kfscmd -n `{echo $i | sed 's%/srv/kfs.(.*).cmd%\1%'} sync
+	echo -n $i... 
+	switch($i){
+	case /srv/kfs.cmd
+		disk/kfscmd sync
+	case *
+		disk/kfscmd -n `{echo $i | sed -n 's%/srv/kfs.(.*).cmd%\1%p'} sync
+	}
 	sleep 2
 }
 
@@ -48,8 +53,13 @@ for(i in $f){
 }
 
 for (i in $k){
-	echo -n $i...
-	kfscmd -n `{echo $i | sed 's%/srv/kfs.(.*).cmd%\1%'} halt
+	echo -n $i... 
+	switch($i){
+	case /srv/kfs.cmd
+		kfscmd halt
+	case *
+		kfscmd -n `{echo $i | sed -n 's%/srv/kfs.(.*).cmd%\1%p'} halt
+	}
 }
 echo
 echo done

+ 6 - 3
rc/bin/iwhois

@@ -3,12 +3,15 @@ switch($1){
 case *@*
 	person=`{echo $1|sed s/@.*//}
 	machine=`{echo $1|sed s/.*@//}
+	fn boilerplate { sed '1,/^$/d' $* }
+case *.co.uk
+	person=`{echo $1|sed s/@.*//}
+	machine=whois.nic.uk
+	fn boilerplate { sed '/^ +WHOIS database last updated at/,$d' $* }
 case *
 	person=$1
 	machine=rs.internic.net
-}
-fn boilerplate {
-	tail -r $1|sed '/agree to/,$d'|tail -r
+	fn boilerplate { sed '1,/^$/d' $* }
 }
 file=/tmp/iwhois$pid
 echo ''$person'' | telnet -n tcp!$machine!whois > $file

+ 20 - 0
rc/bin/thesaurus

@@ -0,0 +1,20 @@
+#!/bin/rc
+
+hget 'http://thesaurus.reference.com/search?q='^$1 |
+	htmlfmt -l 1000 |
+	sed -n '
+		1,/^[0-9]+ entries found for/d
+		/ADVERTISEMENT/,$d
+		1,/^$/d
+		s/^Entry://p
+		/^Source:/{
+			N
+			d
+		}
+		/^[A-Z][a-z]*:/{
+			N
+			s/\n/	/gp
+		}
+	'
+
+

+ 1 - 1
sys/src/9/ip/icmp.c

@@ -479,7 +479,7 @@ icmpinit(Fs *fs)
 	icmp->advise = icmpadvise;
 	icmp->gc = nil;
 	icmp->ipproto = IP_ICMPPROTO;
-	icmp->nc = 16;
+	icmp->nc = 128;
 	icmp->ptclsize = 0;
 
 	Fsproto(fs, icmp);