source: gutenbach/debian/lib/gutenbach-get-config @ 2e8b589

debianmacno-cupsnodebathenaweb
Last change on this file since 2e8b589 was 2e8b589, checked in by Jessica B. Hamrick <jhamrick@…>, 14 years ago

Updated paths and filenames to the correct values for the gutenbach package.

  • Property mode set to 100755
File size: 648 bytes
RevLine 
[b1d66d4]1#!/usr/athena/bin/perl
2use strict;
[2e8b589]3# Get configuration of gutenbach
[b1d66d4]4
[32b323f]5my $zephyr_class = "sipb-test";
6my $host = `hostname`;
[2e8b589]7my $queue = "gutenbach";
[28836c2]8my $mixer = "Headphone";
9my $channel = "Front Left";
[b1d66d4]10
11# Configuration
[2e8b589]12my $config_file = "/usr/lib/gutenbach/gutenbach-filter-config.pl";
[b1d66d4]13if (-r $config_file) {
14    # Inline the configuration file
15    local $/;
16    my $fh;
17    open $fh, $config_file;
18    eval <$fh>;
19}
20
21my %config = (
22    'zephyr-class' => $zephyr_class,
23    'host' => $host,
24    'queue' => $queue,
[28836c2]25    'mixer' => $mixer,
[32b323f]26    'channel' => $channel,
[b1d66d4]27);
28
29foreach my $argv (@ARGV)
30{
31    #print $argv . "\n";
32    print $config{$argv};
33}
Note: See TracBrowser for help on using the repository browser.