source: server/lib/gutenbach-get-config @ 91abb7f

debianmacno-cupsweb
Last change on this file since 91abb7f was 30beeab, checked in by Jessica B. Hamrick <jhamrick@…>, 14 years ago

Remove "gutenbach-" from directory names and rename "gutenbach" to "gutenbach-server"

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