Print a warning before starting dialog(1) if the user
has no write access to /dev/speaker or the speaker device is not enabled in kernel. Code cleanup.
This commit is contained in:
parent
b23472acb2
commit
a7258e9fe6
Notes:
svn2git
2020-12-20 02:59:44 +00:00
svn path=/head/; revision=16925
@ -1,26 +1,27 @@
|
||||
#!/usr/bin/perl
|
||||
#
|
||||
# Test script for the speaker driver
|
||||
# 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@cs.tu-berlin.de>, May 1995
|
||||
# v2.0 dialog+perl by Wolfram Schneider <wosch@freebsd.org>, May 1995
|
||||
#
|
||||
# NOTE for iso-* (latin1) fonts: use TERM=cons25-iso8859-1
|
||||
#
|
||||
# $Id: $
|
||||
|
||||
$title = "
|
||||
$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
|
||||
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 = "
|
||||
$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.
|
||||
@ -29,17 +30,16 @@ 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 \
|
||||
';
|
||||
@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;
|
||||
unlink $tmp if $tmp; exit;
|
||||
}
|
||||
|
||||
$SIG{'INT'} = $SIG{'HUP'} = $SIG{'TRAP'} = $SIG{'QUIT'} =
|
||||
@ -65,21 +65,38 @@ sub splitconfig {
|
||||
&splitconfig(*title);
|
||||
&splitconfig(*music);
|
||||
|
||||
foreach $e (sort keys %title) {
|
||||
($t = $title{$e}) =~ s/(\")/\\$1/g; # quote '"'
|
||||
$checklist .= "\"$e\" \"$t\" OFF ";
|
||||
foreach (sort keys %title) {
|
||||
push(@checklist, ($_, $title{$_}, 'OFF'));
|
||||
}
|
||||
|
||||
$tmp = ($ENV{'TMP'} || "/tmp") . "/_spkrtest$$";
|
||||
system("$checklist 2> $tmp"); # start dialog
|
||||
|
||||
if (!$?) { # not cancel
|
||||
open(SPEAKER, ">/dev/speaker") || die "/dev/speaker: $!\n";
|
||||
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)
|
||||
foreach $melody (split($", `cat $tmp`)) {
|
||||
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}";
|
||||
@ -93,4 +110,4 @@ if (!$?) { # not cancel
|
||||
close SPEAKER;
|
||||
}
|
||||
|
||||
unlink $tmp;
|
||||
&Exit;
|
||||
|
Loading…
Reference in New Issue
Block a user