Replace the perl script version of this with a sh(1) script.

Submitted by:	Riccardo "VIC" Torrini <riccardo@torrini.org>

4 files changed, 114 insertions, 142 deletions

diff --git a/usr.sbin/spkrtest/Makefile b/usr.sbin/spkrtest/Makefile
index e323c2c..8e9245a 100644
--- a/usr.sbin/spkrtest/Makefile
+++ b/usr.sbin/spkrtest/Makefile
@@ -1,8 +1,6 @@
 # $FreeBSD$
 
-MAINTAINER= wosch
-
-SCRIPTS=spkrtest.pl
+SCRIPTS=spkrtest.sh
 MAN=	spkrtest.8
 
 .include <bsd.prog.mk>
diff --git a/usr.sbin/spkrtest/spkrtest.8 b/usr.sbin/spkrtest/spkrtest.8
index 5dd8123..1128afb 100644
--- a/usr.sbin/spkrtest/spkrtest.8
+++ b/usr.sbin/spkrtest/spkrtest.8
@@ -39,7 +39,6 @@ speaker device file
 .El
 .Sh SEE ALSO
 .Xr dialog 1 ,
-.Xr perl 1 ,
 .Xr spkr 4
 .Sh HISTORY
 The
diff --git a/usr.sbin/spkrtest/spkrtest.pl b/usr.sbin/spkrtest/spkrtest.pl
deleted file mode 100644
index ccb1631..0000000
--- a/usr.sbin/spkrtest/spkrtest.pl
+++ /dev/null
@@ -1,138 +0,0 @@
-#!/usr/bin/perl
-#
-# Copyright (c) May 1995 Wolfram Schneider <wosch@FreeBSD.org>. Berlin.
-# All rights reserved.
-#
-# Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions
-# are met:
-# 1. Redistributions of source code must retain the above copyright
-#    notice, this list of conditions and the following disclaimer.
-# 2. Redistributions in binary form must reproduce the above copyright
-#    notice, this list of conditions and the following disclaimer in the
-#    documentation and/or other materials provided with the distribution.
-#
-# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
-# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
-# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
-# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
-# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# spkrtest - 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@FreeBSD.org>, May 1995
-#
-# NOTE for iso-* (latin1) fonts: use TERM=cons25-iso8859-1
-#
-# $FreeBSD$
-
-$title = qq{
-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 = qq{
-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 = ('/usr/bin/dialog', '--title',  'Speaker test', '--checklist',
-    'Please select the melodies you wish to play (space for select)',
-    '-1', '-1', '10');
-
-$speaker = '/dev/speaker';
-
-sub Exit {
-    unlink $tmp if $tmp; exit;
-}
-
-$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 (sort keys %title) {
-    push(@checklist, ($_, $title{$_}, 'OFF'));
-}
-
-srand; 
-$tmp = ($ENV{'TMP'} || "/tmp") . "/_spkrtest" . rand(9999);
-
-if (!open(SPEAKER, "> $speaker")) {
-    warn "You have no write access to $speaker or the speaker device is not " .
-	"enabled\nin kernel. Cannot play any melody! See spkr(4).\a\n";
-    sleep 2;
-}
-
-open(SAVEERR, ">&STDERR") || die "open >&STDERR: $!\n";
-open(STDERR, "> $tmp") || do { die "open > $tmp: $!\n"; };
-system @checklist;		# start dialog
-open(STDERR, ">&SAVEERR") || die "open >&SAVEERR: $!\n";
-$return = $? >> 8;
-
-# die if speaker device not avaiable
-if (fileno(SPEAKER) eq "") {
-    print "\nSorry, cannot play any melody!!!\n"; &Exit;
-}
-
-
-if (!$return) {			# not cancel
-    select(SPEAKER); $| = 1;
-    select(STDOUT);  $| = 1;
-
-    if (! -z $tmp) {		# select melod(y/ies)
-	print STDOUT "\n";
-	open(STDIN, $tmp) || do { die "open $tmp: $!\n"; };
-	foreach $melody (split($", <STDIN>)) {
-	    $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;
-}
-
-&Exit;
diff --git a/usr.sbin/spkrtest/spkrtest.sh b/usr.sbin/spkrtest/spkrtest.sh
new file mode 100644
index 0000000..c682b03
--- /dev/null
+++ b/usr.sbin/spkrtest/spkrtest.sh
@@ -0,0 +1,113 @@
+#!/bin/sh
+
+#
+# Copyright (c) 2002  The FreeBSD Project
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+# SUCH DAMAGE.
+#
+
+#
+# Inspired on spkrtest.pl, rewritten from scratch to remove perl dependency
+# $VER: spkrtest 0.3 (9.5.2002) Riccardo "VIC" Torrini <riccardo@torrini.org>
+# $FreeBSD$
+#
+
+cleanExit() {
+	rm -f ${choices}
+	exit ${1:-0}
+}
+
+trap 'cleanExit 1' 1 2 3 5 15	# HUP, INT, QUIT, TRAP, TERM
+
+choices=${TMP:-/tmp}/_spkrtest_choices.$$
+speaker=/dev/speaker
+
+test -w ${speaker}
+if [ $? -ne 0 ]
+then
+	echo "You have no write access to $speaker or the speaker device is"
+	echo "not enabled in kernel. Cannot play any melody! See spkr(4)."
+	sleep 2
+	cleanExit 1
+fi
+
+/usr/bin/dialog --title "Speaker test" --checklist \
+	"Please select the melodies you wish to play (space for select)" \
+	-1 -1 10 \
+	reveille "Reveille" OFF \
+	contact "Contact theme from Close Encounters" OFF \
+	dance "Lord of the Dance (aka Simple Gifts)" OFF \
+	loony "Loony Toons theme" OFF \
+	sinister "Standard villain's entrance music" OFF \
+	rightstuff "A trope from 'The Right Stuff' score by Bill Conti" OFF \
+	toccata "Opening bars of Bach's Toccata and Fugue in D Minor" OFF \
+	startrek "Opening bars of the theme from Star Trek Classic" OFF \
+		2> ${choices} || cleanExit 0
+
+echo ""
+tunes="`cat ${choices} | tr -d '\"'`"
+for tune in ${tunes:-DEFAULT}
+do
+	case ${tune:-NULL} in
+	DEFAULT)
+		title="(default melody)"
+		music="ec"
+		;;
+	reveille)
+		title="Reveille"
+		music="t255l8c.f.afc~c.f.afc~c.f.afc.f.a..f.~c.f.afc~c.f.afc~c.f.afc~c.f.."
+		;;
+	contact)
+		title="Contact theme from Close Encounters"
+		music="<cd<a#~<a#>f"
+		;;
+	dance)
+		title="Lord of the Dance (aka Simple Gifts)"
+		music="t240<cfcfgagaa#b#>dc<a#a.~fg.gaa#.agagegc.~cfcfgagaa#b#>dc<a#a.~fg.gga.agfgfgf."
+		;;
+	loony)
+		title="Loony Toons theme"
+		music="t255cf8f8edc<a>~cf8f8edd#e~ce8cdce8cd.<a>c8c8c#def8af8"
+		;;
+	sinister)
+		title="standard villain's entrance music"
+		music="mst200o2ola.l8bc.~a.~>l2d#"
+		;;
+	rightstuff)
+		title="a trope from 'The Right Stuff' score by Bill Conti"
+		music="olcega.a8f>cd2bgc.c8dee2"
+		;;
+	toccata)
+		title="opening bars of Bach's Toccata and Fugue in D Minor"
+		music="msl16oldcd4mll8pcb-agf+4.g4p4<msl16dcd4mll8pa.a+f+4p16g4"
+		;;
+	startrek)
+		title="opening bars of the theme from Star Trek Classic"
+		music="l2b.f+.p16a.c+.p l4mn<b.>e8a2mspg+e8c+f+8b2"
+		;;
+	esac
+	echo "Title: ${title}"
+	echo ${music} > ${speaker}
+	sleep 1
+done
+cleanExit 0