Better version of spkrtest using perl and dialog

Submitted by: Wolfram Schneider <wosch@cs.tu-berlin.de>

usr.sbin/spkrtest/Makefile

@@ -1,7 +1,8 @@
-NOMAN= noman
+MAN8=	spkrtest.8
+NOOBJ=  yes
 
 beforeinstall:
-	${INSTALL} -c -o ${BINOWN} -g ${BINGRP} -m ${BINMODE} \
-	    ${.CURDIR}/spkrtest.sh ${DESTDIR}/${BINDIR}/spkrtest
+	install -c -o ${BINOWN} -g ${BINGRP} -m ${BINMODE} \
+	    ${.CURDIR}/spkrtest.pl ${DESTDIR}${BINDIR}/spkrtest
 
 .include <bsd.prog.mk>

usr.sbin/spkrtest/spkrtest.8

@@ -0,0 +1,32 @@
+.Dd May, 1995
+.Dt SPKRTEST 8
+.Os FreeBSD
+
+.Sh NAME
+.Nm spkrtest
+.Nd test script for the speaker driver
+
+.Sh DESCRIPTION
+.Nm
+is an easy to use test script for the speaker driver.
+
+.Sh FILES
+.Bl -tag -width /dev/speakerxx
+.It Pa /dev/speaker
+speaker device file
+.El
+
+.Sh SEE ALSO
+.Xr spkr 4 ,
+.Xr dialog 1 ,
+.Xr perl 1
+
+.\" only for the record
+.\" .Sh AUTHOR
+.\" Eric S. Raymond <esr@snark.thyrsus.com) June 1990;
+.\" dialog+perl by Wolfram Schneider <wosch@cs.tu-berlin.de>, May 1995
+
+.Sh HISTORY
+The
+.Nm
+script appeared in FreeBSD 1.0

usr.sbin/spkrtest/spkrtest.pl

@@ -0,0 +1,96 @@
+#!/usr/bin/perl
+#
+# Test script for the speaker driver
+#
+# v1.0 by Eric S. Raymond (Feb 1990)
+# v1.1 rightstuff contributed by Eric S. Tiedemann (est@snark.thyrsus.com)
+# v2.0 dialog+perl by Wolfram Schneider <wosch@cs.tu-berlin.de>, May 1995
+#
+# NOTE for iso-* (latin1) fonts: use TERM=cons25-iso8859-1
+#
+
+$title = "
+reveille   -- Reveille 
+contact    -- Contact theme from Close Encounters 
+dance      -- Lord of the Dance (aka Simple Gifts) 
+loony      -- Loony Toons theme 
+sinister   -- standard villain's entrance music 
+rightstuff -- a trope from \"The Right Stuff\" score by Bill Conti
+toccata    -- opening bars of Bach's Toccata and Fugue in D Minor
+startrek   -- opening bars of the theme from Star Trek Classic
+";
+
+$music = "
+reveille   -- t255l8c.f.afc~c.f.afc~c.f.afc.f.a..f.~c.f.afc~c.f.afc~c.f.afc~c.f..
+contact    -- <cd<a#~<a#>f
+dance      -- t240<cfcfgagaa#b#>dc<a#a.~fg.gaa#.agagegc.~cfcfgagaa#b#>dc<a#a.~fg.gga.agfgfgf.
+loony      -- t255cf8f8edc<a>~cf8f8edd#e~ce8cdce8cd.<a>c8c8c#def8af8
+sinister   -- mst200o2ola.l8bc.~a.~>l2d#
+rightstuff -- olcega.a8f>cd2bgc.c8dee2
+toccata    -- msl16oldcd4mll8pcb-agf+4.g4p4<msl16dcd4mll8pa.a+f+4p16g4
+startrek   -- l2b.f+.p16a.c+.p l4mn<b.>e8a2mspg+e8c+f+8b2
+";
+
+$checklist = 'dialog \
+--title "Speaker test" \
+--checklist "Please select the melodies you wish to play (space for select)" \
+-1 -1 10 \
+';
+
+
+sub Exit {
+    unlink $tmp if $tmp;
+}
+
+$SIG{'INT'} = $SIG{'HUP'} = $SIG{'TRAP'} = $SIG{'QUIT'} = 
+    $SIG{'TERM'} = '&Exit';
+
+
+# make assoc array from variable 'var'
+# 'name -- description' -> $var{$name} = $description
+sub splitconfig {
+    local(*var) = @_;
+    local($t, $name, $description);
+
+    foreach $t (split('\n', $var)) {
+	($name, $description) = split('--', $t);
+
+	$name =~ s/^\s+//; $name =~ s/\s+$//;
+	$description =~ s/\s+//; $description =~ s/\s+$//;
+
+	$var{$name} = $description if $name && $description;
+    }
+}
+
+&splitconfig(*title);
+&splitconfig(*music);
+
+foreach $e (sort keys %title) {
+    ($t = $title{$e}) =~ s/(\")/\\$1/g;	# quote '"'
+    $checklist .= "\"$e\" \"$t\" OFF ";
+}
+
+$tmp = ($ENV{'TMP'} || "/tmp") . "/_spkrtest$$";
+system("$checklist 2> $tmp");	# start dialog
+
+if (!$?) {			# not cancel
+    open(SPEAKER, ">/dev/speaker") || die "/dev/speaker: $!\n";
+    select(SPEAKER); $| = 1;
+    select(STDOUT);  $| = 1;
+
+    if (! -z $tmp) {            # select melod(y/ies)
+	foreach $melody (split($", `cat $tmp`)) {
+	    $melody =~ s/^"//; $melody =~ s/"$//;
+	    print STDOUT "$title{$melody}\n";
+	    print SPEAKER "$music{$melody}";
+	    sleep 1;
+	}
+    } else {			# use default melody
+	$melody = (sort keys %title)[0];
+	print STDOUT "Use default melody: $title{$melody}\n";
+	print SPEAKER "$music{$melody}";	
+    }
+    close SPEAKER;
+}
+
+unlink $tmp;