| Reda un sunet |
|
| Scris de Cypress | ||||||
| Thursday, 22 November 2007 | ||||||
|
#!/bin/bash ########################################################################## # Shellscript: sound - produce sound # Author : Heiner Steven < Aceasta adresa e-mail este protejata impotriva spamului, JavaScript trebuie activat pentru a putea vizualiza pagina. > # Date : 1995-06-21 # Requires : /dev/audio # Category : Desktop # SCCS-Id. : @(#) sound 1.3 04/11/09 ########################################################################## # Description # ########################################################################## PN=`basename "$0"` # Program name VER='1.3' : ${SOUNDPATH:=/usr/demo/SOUND/sounds} : ${AUDIODEV:=/dev/audio} usage () { echo >&2 "$PN - play audio files, $VER (stv '95) usage: $PN -l $PN [audiofile ...] $PN -l lists available audio files in SOUNDPATH=$SOUNDPATH. The second form plays the given audio file (the .au extension may be omitted). Default audio device is AUDIODEV=$AUDIODEV" exit 1 } msg () { for msgLine do echo "$PN: $msgLine" >&2 done } fatal () { msg "$@"; exit 1; } # Check arguments before setting them getopt hl "$@" > /dev/null 2>&1 || usage set -- `getopt hl "$@"` while [ $# -gt 0 ] do case "$1" in -l) # list audio files [ -d "$SOUNDPATH" -a -r "$SOUNDPATH" ] && ls -C "$SOUNDPATH" exit;; --) shift; break;; -h) usage;; -*) usage;; *) break;; # first file name esac shift done [ -c "$AUDIODEV" ] || fatal "cannot find audio device: $AUDIODEV" for AudioFile do if [ -r "$AudioFile" ] then File="$AudioFile" elif [ -r "$AudioFile.au" ] then File="$AudioFile.au" ] elif [ -r "$SOUNDPATH/$AudioFile" ] then File="$SOUNDPATH/$AudioFile" elif [ -r "$SOUNDPATH/$AudioFile.au" ] then File="$SOUNDPATH/$AudioFile.au" else msg "cannot find audio file $SOUNDPATH/$AudioFile.au" continue fi cp "$File" "$AUDIODEV" done exit 0
Only registered users can write comments! Powered by !JoomlaComment 3.12 Copyright (C) 2007 Alain Georgette / Copyright (C) 2006 Frantisek Hliva. All rights reserved. |
||||||



Va inlocui Empathy Pidgin?
pidginul merge beton,pacat ca nu are si ...
NASA o face lata
The laptops carried by astronauts report...
Torvalds: da, as lucra la Microsoft
Eu zic ca omul e diplomat .... adica tre...
Pystar da in judecata Apple
nu-i asa de simplu, poate ca o sa dai 39...
Pystar da in judecata Apple
Ai dreptate - s-ar putea sa nu fie aceea...
Pystar da in judecata Apple
Pystar facea referire la nucleul OS X. E...
In the Space Cube, noone can hear you scream
cu un design un pic mai stilat avem noul...