sysinfo: add -e to include a reply-to e-mail address

rc/bin/sysinfo

@@ -1,12 +1,10 @@
 #!/bin/rc
 rfork e
-
 fn logprog{
 	echo % `{echo $"* | sed 's/#/''#''/g'}
 	$*
 	echo
 }
-
 fn print{
 	echo '% cd ''#ec''; for(i in *){echo $i ''='' `{cat $i}}'
 	cd '#ec'; for(i in *){echo $i '=' `{cat $i}}
@@ -42,10 +40,11 @@ fn print{
 	logprog cat '#A/volume'
 	logprog cat /mnt/apm/ctl
 }
-
 fn post{
 	file=/tmp/sysinfo.$user.$pid
-	print >$file >[2=1] 
+	if(! ~ $#e 0)
+		echo $e >$file
+	print >>$file >[2=1] 
 	@{
 		rfork n
 		webfs
@@ -55,11 +54,28 @@ fn post{
 		rm -f $file
 	}
 }
-
+argv0=$0
-switch($1){
+fn usage {
-case -p
+	echo usage: $argv0 '[ -e e-mail ] [ -p ]' >[1=2]
+	exit usage
+}
+e=()
+p=()
+while(~ $1 -*){
+	switch($1){
+	case -e
+		e=$2
+		shift
+	case -p
+		p=1
+		shift
+	case *
+		usage
+	}
+	shift
+}
+if(~ $p 1)
 	post
 	
-case *
+if not
 	print
-}

sys/man/1/sysinfo

@@ -4,6 +4,9 @@ sysinfo, sysupdate \- report information about, update the system
 .SH SYNOPSIS
 .B sysinfo
 [
+.B -e e-mail
+]
+[
 .B -p
 ]
 .br
@@ -27,7 +30,12 @@ which in turn forwards the message to a
 mailing list,
 .B 9front-sysinfo@9front.org.
 A URL pointing to the archived output is returned.
-This flag is useful for reporting new installs to the
+The
+.B -e
+flag causes a reply-to e-mail address to be included
+in the message (the e-mail address is not divulged
+to the mailing list).
+These flags are useful for reporting new installs to the
 development team.
 .PP
 .I Sysupdate