Partner Sites

Netbois Consulting
facturi
Asset Recovery

Login

Statistici

Membri: 192
Stiri: 1032
Linkuri: 24
Vizitatori: 1657334

Mirror MYLRo.org

Carti Linux direct de pe mirror-ul MYLRo.org
 
Reda un sunet E-mail
  • Currently 5.0/5 Stars.
  • 1
  • 2
  • 3
  • 4
  • 5

Rating: 5.0/5 (1 votes cast)

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

Comments
Add NewSearchRSS
Only registered users can write comments!

Copyright (C) 2007 Alain Georgette / Copyright (C) 2006 Frantisek Hliva. All rights reserved.
 

Ultimele comentarii

Tips & Tricks

O arhivare mai buna cu gzip
Daca preferi ca arhivele tale gzip sa fie cat mai bine comprimate, foloseste comanda export GZIP=--best. Data viitoare cand vei arhiva cu gzip, comprimarea va fi facuta la cel mai inalt nivel.
 

Vizitatori Online

Avem 4 vizitatori online

Doneaza pentru un banner MYLRo.org pe Distrowatch

Introdu o suma de macar 5$ (astfel incat suma donata sa fie cu ceva mai mare decat taxa de transfer PayPal) si trimite-mi un mail cu un link catre site-ul tau. Link-ul va fi afisat pe mainpage-ul MYLRo.org si 90% din paginile aferente site-ului pe intreaga perioada a hostarii bannerului de pe DistroWatch.

Ce altceva mai e interesant?